<% 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") status = "0" strSQL1 = "Select * From feedback 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 "feedback-view.asp" %>