<% Dim objRS Dim strSQL DIM sid sid = Request.Form("sid") SET objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../users/btlsa.mdb") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT bmsWebPages.bmsPageName,bmsWebPages.bmsPageText " & _ "FROM bmsWebPages WHERE id_bmsPage = " & sid & ";" objRS.CursorType = 2 objRS.LockType = 3 objRS.Open strSQL,objConn objRS.Fields("bmsPageName") = Request.Form("bmsPageName") objRS.Fields("bmsPageText") = Request.Form("bmsPageText") objRS.Update objRS.Close Set objRS = Nothing Set objConn = Nothing Response.Redirect("../editPage.asp") %>