<script language="vbscript" RunAt="server">
Sub Application_OnStart
 Application("Count")=0
End Sub
 
 Sub Session_OnStart
  Application.Lock
 Application("Count")=Application("Count")+1
 Application.UnLock
End Sub

 Sub Session_OnEnd
  Application.Lock
 Application("Count")=Application("Count")-1
 Application.UnLock
End Sub

Sub Application_OnEnd
 
End Sub
</script>