<%@ 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 WhatsNewID %> <% %> <% '------------ =================== ------------ %> <% WhatsNewID = Request.QueryString("p") sSQL = "delete whatsnew where whatsnewid=" & WhatsNewID %> <%=sSQL%> <% set oRs1 = Server.CreateObject("ADODB.Recordset") oRs1.Open sSQL, oConn, 3, 3 Response.Redirect "WhatsNew.asp?c=edit" %>