<% IF SESSION("ADMIN")="" THEN RESPONSE.REDIRECT "LOGIN.ASP" END IF ID=REQUEST("ID") Page=REQUEST("PAGE") SET CN=SERVER.CREATEOBJECT("ADODB.CONNECTION") DBPATH = SERVER.MAPPATH("CONTACT.MDB") CN.OPEN "DRIVER={MICROSOFT ACCESS DRIVER (*.MDB)};DBQ="&DBPATH SET RS=SERVER.CREATEOBJECT("ADODB.RECORDSET") SQL="DELETE FROM CONTACT WHERE ( ID = " & ID & ")" RS.OPEN SQL,CN,1,3 RESPONSE.REDIRECT "LIST.ASP" RS.CLOSE CN.CLOSE %>