<% 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 bmsDelete FROM bmsWebUsers WHERE id_bmsUSers = " & sid & ";" objRS.CursorType = 2 objRS.LockType = 3 objRS.Open strSQL,objConn objRS.Fields("bmsDelete") = "true" objRS.Update objRS.Close SET objRS = Nothing objConn.Close SET objConn = Nothing Response.Redirect("../webUsers.asp") %>