Contador de Usuarios Activos

Contar los usuarios activos que hay en el sitio - [Por CoRSA]

Este conocido script que se encuentra en casi todos los sitios de ASP, sirve para contar los visitantes activos (presentes en el momento), que hay en nuestro sitio web.
El ejemplo que esta aqui abajo muestra cuantos visitantes hay activos en este momento en SoloASP.com.ar
El codigo se debe usar en el archivo Global.asa. No debe ir encerrado entre <% y %> y debe ser lo unico que haya dentro del mismo. (Bueno, no lo unico, pero jugar con el Global.asa no lo recomiendo).

Aqui esta el codigo que va en el Global.asa

<script language=vbscript runat=server>

Sub Application_OnStart
Application("Activos") = 0
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
Application.Lock
Application("Activos") = Application("Activos") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("Activos") = Application("Activos") - 1
Application.Unlock
End Sub

</script>

Y para mostrar la informacion que recoge el Global.asa, o sea para mostrar los usuarios activos como lo hice yo en mi ejemplo, deben poner lo siguiente en la pagina que muestran el dato:

<P>En este momento hay <%=Application("Activos")%> usuario/s en nuestro sitio</P>