<%@ Language=VBScript %> <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Provider = "Microsoft.Jet.OLEDB.4.0" Connect.ConnectionString = "Data Source=" & Server.MapPath ("Sample.mdb") Connect.Open Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "SELECT * from logbog", Connect, 1,3 %>

Skriv indlæg i gæstebogen


Navn:

>>>>



<% 'Add a blank record Rs.addnew 'Store name to Rs("Date") = Date & " " & Time Rs("PostedBy") = Request.form("PostedBy") Rs("Message")=Request.form("Message") if Request.form("Message") <> "" and Request.form("PostedBy") <> "" and Request.form("Kode") = "anniflemming" then Rs.update 'Deinitialize the Connection and Recordset set Rs = nothing set Connect = nothing Response.redirect "read.asp" end if %>