<% Dim objConn Dim objRS Dim strSQL Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("btlsa.mdb") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT gbName,gbEmail,gbCountry,gbStateProvince,gbMessage FROM guestbook;" objRS.CursorType = 2 objRS.LockType = 3 objRS.Open strSQL,objConn objRS.AddNew objRS.Fields("gbName") = Request.Form("gbName") objRS.Fields("gbEmail") = Request.Form("gbEmail") objRS.Fields("gbCountry") = Request.Form("gbCountry") objRS.Fields("gbStateProvince") = Request.Form("gbStateProvince") objRS.Fields("gbMessage") = Request.Form("gbMessage") objRS.Update objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing Response.Redirect "gbView.asp" %>