<% response.buffer = true %> <% Set objConnect = Server.CreateObject("ADODB.Connection") objConnect.Open "DBQ=" & Server.Mappath("db\SIMSShell_REVISED.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};" Select Case cint(Request.QueryString("type")) Case 1 sqlStatement = "DELETE * FROM Calendar WHERE ENTRY_ID=" & Request.QueryString("id") set rsConnect = objConnect.execute(sqlStatement) Case 2 If session("STAFF_ID") = Request.QueryString("usr") Then sqlStatement = "DELETE * FROM AlertRecipients WHERE ENTRY_ID=" & Request.QueryString("id") set rsConnect = objConnect.execute(sqlStatement) sqlStatement = "DELETE * FROM Calendar WHERE ENTRY_ID=" & Request.QueryString("id") set rsConnect = objConnect.execute(sqlStatement) End If End Select Response.Redirect("logon.asp") rsConnect.close set objConnect = nothing %> DELETING