<%Response.Expires = 0 Response.CacheControl = "Private" myname=session("myname") myid=session("myid") if myname="" or myid="" then response.end id=request("id") stype=request("stype") sql="" redirectstr="getcall.asp?stype=outbox" if id<>"" then sql="delete from calls where who='"&myname&"' and ID="&cint(id) elseif stype="inbox" then sql="delete from calls where towho='"&myname&"' and read" redirectstr="getcall.asp?stype=inbox" elseif stype="outbox" then sql="delete from calls where who='"&myname&"' and read" end if if sql<>"" then conn.execute(sql) conn.close set conn=nothing response.redirect(redirectstr)%>