<% Dim strConnect, objConn, objRS, adOpenForwardOnly, adLockReadOnly, adCmdText, adoCon, strSQL1, strSQL2, strSQL3 strID = Request.QueryString("ID") if strID = "" then strID = Request.Form("ID") note = Request.Form("note") status = "0" if note = "" Then note = "." strSQL1 = "Select * From life 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 "life.asp" %>