<% DIM objConn DIM objRS DIM strSQL DIM sid sid = Request.QueryString("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 bmsActive FROM bmsWebUsers WHERE id_bmsUSers = " & sid & ";" objRS.CursorType = 2 objRS.LockType = 3 objRS.Open strSQL,objConn objRS.Fields("bmsActive") = "false" objRS.Update objRS.Close SET objRS = Nothing objConn.Close SET objConn = Nothing Response.Redirect("../webUserDetail.asp?sid=" & sid) %>