< script language="vbscript" runat="server">
sub session_onend
cancelme=trim(session("userid"))
application.lock
application("onlineuser")=replace(application("onlineuser"),cancelme,"")
application.unlock
end sub
< /script>
< script language="vbscript" runat="server">
sub session_onend
cancelme=trim(session("userid"))
application.lock
application("onlineuser")=replace(application("onlineuser"),cancelme,"")
application.unlock
end sub
< /script>