<% Dim objRS Dim strSQL DIM sid sid = Request.Form("sid") Set objRS = Server.CreateObject("ADODB.Recordset") SET objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../users/btlsa.mdb") strSQL = "SELECT bmsUsername,bmsPassword,bmsFirstName,bmsSurname," & _ "bmsAddress1,bmsAddress2,bmsAddress3,bmsAddress4,bmsTelephone," & _ "bmsCellphone,bmsEmailAddress,bmsFacsimile FROM bmsWebUsers " & _ "WHERE id_bmsUsers = " & sid & ";" objRS.CursorType = 2 objRS.LockType = 3 objRS.Open strSQL,objConn objRS.Fields("bmsUsername") = Request.Form("bmsUsername") objRS.Fields("bmsPassword") = Request.Form("bmsPassword") objRS.Fields("bmsFirstName") = Request.Form("bmsFirstName") objRS.Fields("bmsSurname") = Request.Form("bmsSurname") objRS.Fields("bmsAddress1") = Request.Form("bmsAddress1") objRS.Fields("bmsAddress2") = Request.Form("bmsAddress2") objRS.Fields("bmsAddress3") = Request.Form("bmsAddress3") objRS.Fields("bmsAddress4") = Request.Form("bmsAddress4") objRS.Fields("bmsTelephone") = Request.Form("bmsTelephone") objRS.Fields("bmsCellphone") = Request.Form("bmsCellphone") objRS.Fields("bmsEmailAddress") = Request.Form("bmsEmailAddress") objRS.Fields("bmsFacsimile") = Request.Form("bmsFacsimile") objRS.Update objRS.Close Set objRS = Nothing Set objConn = Nothing Response.Redirect("../userEdit.asp?sid=" & sid) %>