[BC3] ASP, Access, Apache op een Linuxserver... - Serversoftware en clouddiensten

zondag 13 mei 2001 11:51

Acties:

Ramon

kan je niet een tweede pc de acces db laten serveren?

Check mijn V&A ads: https://tweakers.net/aanbod/user/9258/

zondag 13 mei 2001 11:51

Acties:

BC3 Victim

Topicstarter

Zou je vanaf de linuxpc dan een access database op een NT-server kunnen koppelen?
Het zou wel DE oplossing zijn.

De username van de oorspronkelijke plaatser van deze posting is bij Big Crash 3 eind mei 2001 verloren gegaan. Om toch de posting zelf terug te kunnen plaatsen is de user BC3 Victim in het leven geroepen

zondag 13 mei 2001 11:51

Acties:

UniCache2

Gebruik gewoon een dsn-less connectie, ben je van alle problemen af

vb.:

strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="
strConn = strConn & Server.mappath("database.mdb") & ";"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConn

zondag 13 mei 2001 11:51

Acties:

BC3 Victim

Topicstarter

En waar kan ik die instellingen dan neerzetten op de Linuxserver?
Net op Internet naar gezocht maar niet kunnen vinden.

De username van de oorspronkelijke plaatser van deze posting is bij Big Crash 3 eind mei 2001 verloren gegaan. Om toch de posting zelf terug te kunnen plaatsen is de user BC3 Victim in het leven geroepen

zondag 13 mei 2001 11:51

Acties:

Rob

Op vrijdag 11 mei 2001 11:13 schreef tuxfreak het volgende:
En waar kan ik die instellingen dan neerzetten op de Linuxserver?
Net op Internet naar gezocht maar niet kunnen vinden.

In de ASP code

In the beginning the Internet was a bunch of smart users with dumb terminals. Now...

zondag 13 mei 2001 11:51

Acties:

soepkip

Kratjes kunnen nu ook voorin

hoeveel asp is het ?
anders is het handiger omschrijven

Beste film ooit

zondag 13 mei 2001 11:51

Acties:

BC3 Victim

Topicstarter

Dit is een gedeelte van mijn huidige asp:

<form method="post" action="storingsformulier.asp">
<font face="Verdana, Arial, Helvetica, sans-serif">
<input type=submit value="Storing melden" name="CMD">
<input type=hidden value="GBOOK" name="dbfname">
<input type=hidden value="GUESTBOOK" name="tblname">
</font>

De username van de oorspronkelijke plaatser van deze posting is bij Big Crash 3 eind mei 2001 verloren gegaan. Om toch de posting zelf terug te kunnen plaatsen is de user BC3 Victim in het leven geroepen

zondag 13 mei 2001 11:51

Acties:

soepkip

Kratjes kunnen nu ook voorin

Op vrijdag 11 mei 2001 13:44 schreef tuxfreak het volgende:
Dit is een gedeelte van mijn huidige asp:

<form method="post" action="storingsformulier.asp">
<font face="Verdana, Arial, Helvetica, sans-serif">
<input type=submit value="Storing melden" name="CMD">
<input type=hidden value="GBOOK" name="dbfname">
<input type=hidden value="GUESTBOOK" name="tblname">
</font>

volgens mij is het voor jouw makkelijker om die asp te hernoemen naar html/htm
als dit is wat er in die asp staat..:o

Beste film ooit

zondag 13 mei 2001 11:51

Acties:

BC3 Victim

Topicstarter

Okee, hier dan mijn volledige ASP file:

code:

<!-- storingsformulier.ASP -->
<!--
Author: S. Albrecht
Date  : 26-03-2001
Description:
This file displays the contents of a Errorform table and allows new 
messages to be added. The file contains all it needs to in itself to
perform these functions.
      Variables passed to this page by this page:
Variables are passed via an HTML FORM.
CMD = this variable hold either "storing melden" to add a record 
or "Versturen" to process the record.
-->
<!-- #include file="adovbs.inc" -->
<script language="vbscript">
 'validation function
   function myForm_onSubmit
   Dim msgError
   Dim fRef
   Set fRef = Document.myForm

  if trim(fRef.naam.Value)="" and trim(fRef.lokaal.Value)="" and trim(fRef.omschrijving.Value)="" then  
  msgError=msgError & "U mag geen lege velden opslaan in de database."
  end if

   If msgError <> "" Then
    MsgBox "Er is een probleem met het toevoegen van uw gegevens:" _
       & Chr(13) & msgError & Chr(13) & Chr(13) _
       & "Controleer uw invoer en probeer het opnieuw."
    MyForm_onSubmit = False
   Else
    MyForm_onSubmit = True
   End If
End Function
</script>


<%
' Open ACCESS database
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "GBOOK"

' set up sql statement
sql = "select * from guestbook order by date desc"
Set RS = Conn.Execute(sql)
%>

<html>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate">
<meta HTTP-EQUIV="Expires" CONTENT="0">
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-validate">
<title>Storingsformulier EZW ROC-TerAA</title>
</head>

<body text="#0000cc" link="#0000FF" vlink="#0000FF" alink="#0000FF" background="images/back.jpg" bgproperties="fixed">
<p align="left"><font face="Verdana, Arial, Helvetica, sans-serif"><%
if Request("CMD") <> "" then
' if the CMD variable holds information then process accordingly 

   ' if CMD = OK the insert new record
   if Request("CMD") = "Versturen" then
set oRS=Server.CreateObject("ADODB.Recordset")
oRs.Open "guestbook", "GBOOK", adOpenKeyset, adLockPessimistic, adCmdTable
oRS.AddNew
oRS.Fields("naam")=Request.Form("naam")
oRS.Fields("lokaal")=Request.Form("lokaal")
      oRS.Fields("invoerdatum")=Request.Form("invoerdatum")  
oRS.Fields("omschrijving")=Request.Form("omschrijving")
'oRS.Fields("website")=Request.Form("website")
'    oRS.Fields("gekomen")=Request.Form("gekomen")
'oRS.Fields("mening")=Request.Form("mening")
'    oRS.Fields("ip-adres")=Request.Form("ip-adres")
'oRS.Fields("opmerkingen")=Request.Form("opmerkingen")
      oRS.Update
oRS.Close
Set oRS = Nothing
%>
<b>
<%
Begroeting = "Bedankt voor uw melding mijnheer/mevrouw "
Punt = "."
Dim naam
  naam = Request.Form("naam")
  Begroeting = begroeting & Request.Form("naam") & punt
  Response.Write begroeting & "<BR><BR>"
%></b>
<head>
<meta http-equiv="refresh" content="5; url=storingsformulier.asp">
</head>
 Uw gegevens zijn ingevoerd, over vijf seconden wordt u doorverwezen naar 
  de statuspagina </font></p>
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="storingsformulier.asp">Klik 
  hier als u niet langer wilt wachten (of als uw browser u niet automatisch 
  doorverwijst)</a></font></p>
<%
   end if

   ' if CMD = Toevoegen then collect message information
   if Request("CMD") = "Storing melden" then
sql = "select * from GUESTBOOK"
Set RS = Conn.Execute(sql) %> 
<form action="storingsformulier.asp" method="post" name="myForm">
  <font face="Verdana, Arial, Helvetica, sans-serif"> 
  <input type="hidden" name="Date" value="<% =dt %>" size="50">
  <% dt = date & " " & time %> 
  <input type="hidden" name="Date" value="<% =dt %>" size="50">
  <input type=hidden value="GBOOK" name="dbfname">
  <input type=hidden value="GUESTBOOK" name="tblname">
<input type="hidden" name="ip-adres" value="<%=Request.ServerVariables("REMOTE_ADDR")%>" size="50">

</font>Vul eerst de gegevens in <BR>alvorens u op "Versturen" klikt...<BR><BR>
<table border="3" width="400">
    <tr> 
    <TD align="left" width="220"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><B>Naam:</B></font></TD>
    <TD VALIGN=TOP width="470"> 
      <input name="Naam" value="" size="50">
    </TD>
    </tr>
    <tr> 
    <TD align="left" width="220"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Lokaal:</b></font></TD>
    <TD VALIGN=TOP width="470"> 
      <input name="lokaal" value="" size="8">
    </TD>
    </tr>
    <tr> 
    <TD align="left" width="220"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><B>Invoerdatum:</B></font></TD>
    <TD VALIGN=TOP width="470"> 
      <input name="invoerdatum" value="<% = DAY(DATE) %>-<% = MONTH(DATE) %>-<% = YEAR(DATE) %>" size="8">
    </TD>
    </tr>
    <tr> 
    <TD align="left" width="220"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><B>Omschrijving:</B></font></TD>
    <TD VALIGN=TOP width="470"> 
      <textarea name="omschrijving" cols="43" rows="7"></textarea>
    </TD>
    </tr>
  </table>
  <table width="500">
     <tr>
<td align="center" width="100%">
 <form action="storingsformulier.asp" method="post" name="myForm">
 <input type="submit" value="Versturen" name="CMD"></td></tr>
     <tr>
<td align="center" width="100%">
 <input type="reset" value="Wissen"></td>
     </tr>
  </table>

</form>
<% end if 

else
' Attempt to display records

   ' if there are no records returned then tell user
   if rs.eof then %> 
<p>&nbsp;</p>
<form method="post" action="storingsformulier.asp">
  <font face="Verdana, Arial, Helvetica, sans-serif"> 
  <input type=submit value="Storing melden" name="CMD">
  <input type=hidden value="GBOOK" name="dbfname">
  <input type=hidden value="GUESTBOOK" name="tblname">
  </font>
  <hr align="center">
  <p><font face="Verdana, Arial, Helvetica, sans-serif" size="4" text="#408080">Gefeliciteerd, 
    u bent de eerste die het nieuwe online-storingsformulier invult !</font></p>
</form>
<font face="Verdana, Arial, Helvetica, sans-serif"><%

   ' otherwise get data and display it
   else 
   %> </font>
<table border="0" width="500">
  <tr> 
    <td> 
    <form method="post" action="storingsformulier.asp">
      <p> 
        <input type=submit value="Storing melden" name="CMD">
        <input type=hidden value="GBOOK" name="dbfname">
        <input type=hidden value="GUESTBOOK" name="tblname">
      </p>
      <p> <%
    cnt=1
    Do While Not RS.EOF %> 
      <table border="1" width="550">
        <tr> 
        <td valign="top" width="40%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Naam: </b></font></td>
        <td valign="top" width="60%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><% =RS("naam") %>&nbsp; 
          </font></td>
  </tr>
  <tr>
        <td valign="top" width="40%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Lokaal: </b></font></td>
        <td valign="top" width="60%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><% =RS("lokaal") %>&nbsp; 
          </font></td>
        </tr>
        <tr> 
        <td valign="top" width="40%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Invoerdatum: </b></font></td>
        <td valign="top" width="60%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><% =RS("invoerdatum") %></font></td>
        </tr>
        <tr> 
        <td valign="top" width="40%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Omschrijving: </b></font></td>
        <td valign="top" colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><% =RS("omschrijving") %>&nbsp; 
          </font></td>
        </tr>
        <tr> 
        <td valign="top" width="200"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Datum afgewerkt: </b></font></td>
        <td valign="top" colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><% =RS("afgewerkt") %>&nbsp; 
          </font></td>
        </tr>
        <tr> 
        <td valign="top" width="200"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b>Uitgevoerde reparatie: </b></font></td>
        <td valign="top" colspan="3"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><% =RS("reparatie") %></font></td>
        </tr>
        <tr> 
        <td valign="top" colspan="4"> 
          <p>&nbsp;</p>
          <p>&nbsp;</p>
        </td>
        </tr>
      </table>
      <%
    RS.MoveNext
    Loop
   %> 
    </form>
    </td>
  </tr>
</table>
<% end if %> <% end if %> 
</body>
</html>

De username van de oorspronkelijke plaatser van deze posting is bij Big Crash 3 eind mei 2001 verloren gegaan. Om toch de posting zelf terug te kunnen plaatsen is de user BC3 Victim in het leven geroepen

zondag 13 mei 2001 11:51

Acties:

Verwijderd

Euh dit gaat om een gastenboek? Vraag me af w''rom je dit in een access databasje doet? Kan het toch gewoon zelfs in een text file met php gooien. Dat is veel makkelijker lijkt mij!

zondag 13 mei 2001 11:51

Acties:

BC3 Victim

Topicstarter

Het lijkt i.d.d. een gastenboek maar het is verbouwd tot een storingsformulier.
Ik gebruik dit op me werk om de gebruikers daar storingen in te laten vullen.

De username van de oorspronkelijke plaatser van deze posting is bij Big Crash 3 eind mei 2001 verloren gegaan. Om toch de posting zelf terug te kunnen plaatsen is de user BC3 Victim in het leven geroepen