io uso questo codice che sostanzialmente è uguale a quello che hai postato e l'unica cosa che aggiungo nella index dove deve spuntare il numeo di utenti collegati è :

codice:
<% = "Utenti connessi: " & Application("UtentiConnessi") %>

il file global.asa (io l'ho messo nella root del mio sito) :

codice:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

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

Sub Session_OnStart()
  Application("UtentiConnessi")=Application("UtentiConnessi") + 1
End Sub

Sub Session_OnEnd()
  Application("UtentiConnessi")=Application("UtentiConnessi") - 1
End Sub

Sub Application_OnEnd()
End Sub

</SCRIPT>