Gastenboek
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/data.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT Datum, Naam, Bericht FROM gastenboek ORDER BY Datum DESC", conn
%>
<%do until rs.EOF%>
| <%Response.Write(rs.Fields("Datum").value)%> |
|
<%Response.Write(rs.Fields("Naam").value)%> |
|
| <%Response.Write(rs.Fields("Bericht").value)%> |
|
|
<%rs.MoveNext%>
<%loop
rs.close
conn.close
%>
Wilt u een berichtje plaatsen klik dan op onderstaande knop. Nadat u het berichtje heeft geplaatst dient u het
scherm te verversen, daarvoor kunt u op de tweede knop klikken of op F5 drukken op uw toetsenbord.