< 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>