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