<%if session("loc")=0 then response.redirect "admin.asp"
set com=server.createobject("adodb.connection")
com.open "DBQ="& Server.MapPath("../data.mdb")  &";Driver={Microsoft Access Driver (*.mdb)};"
for each a in request("de")
com.execute "delete * from msg where id="& a
next
com.close
response.redirect "admsgd.asp"%>