<script language="vbscript" runat="server">
sub application_onstart( )
hr=Hour(Now())
if hr >= 8 and hr <= 12 then
application("currentusers")=5
elseif hr >= 15 and hr <= 18 then
application("currentusers")=5
else
application("currentusers")=3
end if
end sub
sub session_onstart( )
application.lock
application("currentusers")=application("currentusers")+1
application.unlock
end sub
sub session_onend( )
application.lock
application("currentusers")=application("currentusers")-1
application.unlock
end sub
sub application_onend()
end sub
</script>