Sub Session_OnEnd
session("username")=""
session("online")=""
session("userid")=""
offline()
End Sub
function offline
Set conn=Server.CreateObject("Adodb.Connection")
conn.Open ("driver={SQL Server};server=(local);uid=XX;pwd=XX;")
conn.execute "delete from buycart where cart_sessionid='"&session.sessionid&"'"
conn.close
set conn=nothing
end function