<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
	Application("activeUsers")=0
end sub
Sub Session_OnStart
	Session.Timeout=10
	Session("Start")=Now
	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>