<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
	Application("online")=0
end sub

sub Session_OnStart
	Session.Timeout=10
	Session("Start")=Now
	Application.Lock
	Application("online")=Application("online")+1
	Application.unlock
end sub
sub Session_OnEnd
	Application.Lock
	Application("online")=Application("online")-1
	Application.unlock
end sub
</SCRIPT>