<%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)};"
com.execute "delete * from msg where  edt<#" & date & "#"
com.close
response.redirect "admsg.asp"%>