<% response.buffer = true %> <% Set objConnect = Server.CreateObject("ADODB.Connection") objConnect.Open "DBQ=" & Server.Mappath("db\SIMSShell_REVISED.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" sqlStatement = "DELETE * FROM AlertRecipients WHERE ENTRY_ID=" & Request.QueryString("id") & " AND STAFF_ID='" & session("STAFF_ID") & "'" set rsConnect = objConnect.execute(sqlStatement) Response.Redirect("logon.asp") %>