Ao que me parece o unico problema do seu contador é que ele não atualiza o numero de pessoas online quando alguem sai do site.
Peguei na internet agora um código pronto pra ver as diferenças com o seu era só isso que tinha de diferente.
Segue abaixo
global.asa<script language="VBScript" runat="Server">
Sub Application_OnStart
Application("visitas")=0
End Sub
Sub Session_OnStart
Application.Lock
Application("visitas") = Application("visitas") + 1
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("visitas") = Application("visitas") - 1
Application.Unlock
End Sub
</script>
Só pra lembrar, o global.asa tem que estar na raiz do site

[]s