guest_book
<% if request.Form("btnSubmit")="Sub" then if trim(request.form("txtfullname")) = "" then response.write("Please enter the full name") else dim conn set conn = server.CreateObject("ADODB.connection") conn.mode = admodeWrite conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("registration.mdb") conn.open dim rec set rec = server.CreateObject("ADODB.recordset") rec.open "SELECT * FROM registration", conn, adOpenDynamic, adLockOptimistic rec.addnew rec.Fields("Full Name") = request.Form("txtfullname") rec.Fields("E-mail address") = request.Form("Emai-address") rec.Fields("Website") = request.Form("Website") rec.fields("Comment") = request.Form("txtarea") rec.fields("Date") = date() rec.update rec.close set conn = nothing set rec = nothing response.Redirect("index.html") end if end if %>