<Script Language = "VBScript"  RunAt = "Server">
Sub Application_OnStart()
    Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart()
    Session.Timeout = 20 
    Application.Lock
    Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.UnLock
End Sub
Sub Session_OnEnd()
    Application.Lock
    Application("ActiveUsers") = Application("ActiveUsers") - 1
    Application.UnLock
End Sub
</Script>
