<%@ Language=VBScript %> <% Option Explicit %> <% Dim oConn, oRs1, sSql 'DB Connection Variables %> <% Set oConn = Server.CreateObject("ADODB.Connection") %> <% oConn.Open Application("CONNSTR") 'Init DB Connection %> <% '------------ Init Page Variables ------------ %> <% Dim SubscriberID %> <% %> <% '------------ =================== ------------ %> <% SubscriberID = Request.QueryString("p") sSQL = "update subscribers set Status='Inactive', LastUpdate='" & Date() & "' where subscriberid=" & SubscriberID %> <%=sSQL%> <% set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 Response.Redirect "Subscriber.asp?view=inactive" %>