<% if session("administrator")="" then response.redirect "edit-a.asp" end if %> <% ID = Request("ID") Page=Request("Page") Set CN=Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("search.mdb") CN.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&DBPath SET RS=Server.CreateObject("ADODB.RecordSet") SQL="DELETE FROM SEARCH WHERE ( id = " & ID & ")" RS.Open SQL,CN,1,3 Response.Redirect "DEFAULT.ASP" RS.CLOSE CN.CLOSE %>