<% Dim strConnect, objConn, objRS, adOpenForwardOnly, adLockReadOnly, adCmdText, adoCon, strSQL1, strSQL2, strSQL3 category = Request.QueryString("category") if category = "" then category = Request.Form("category") strID = Request.QueryString("ID") if strID = "" then strID = Request.Form("ID") note = Request.Form("note") status = "0" if note = "" Then note = "." strSQL1 = "Select * From questions Where ID like '" & strID & "'" Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject ("ADODB.Recordset") objConn.Open strConnect objRS.Open strSQL1, objConn, adOpenStatic, adLockOptimistic, adCmdText objRS("status")= "0" objRS.Update objConn.Close Response.Redirect "questions.asp?category=" & category %>