Erro Com Global.asa

[ldrwebsite]

Olá my friends! É o seguinte, encontrei um apostila de ASP e nela ensina a

fazer um global.asa para mostrar o número de usuários online no momento. O

código é o seguinte.

<script LANGUAGE=VBSCRIPT RUNAT=SERVER>

Sub Application_OnStart

Application("online")=0

End sub

Sub Application_OnEnd

End sub

Sub Session_OnStart

Application.Lock

Application("online")=Application("online")+1

Application.UnLock

End sub

Sub Session_OnEnd

Application.Lock

Application("online")=Application("online")-1

Application.UnLock

End sub

</SCRIPT>

Na apostila fala que para cada usuário é aberta uma nova Session e nela tá indicado

para acrescentar o valor +1 quando o usuário entrar (OnStart) e quando sair

retirar o valor com -1 (OnEnd). Testei o código com um amigo na rede da

empresa onde trabalho e aconteceu o seguinte. Ele entra na página da intranet (meu PC é o server)

e faz o login, aí aparece 1 usuário online, criei uma variavel chamada online

na página de login que mostra o valor da Application e coloquei assim:

dim online

online=application("online")

Aí com o meu amigo logado, eu entrei na página e fiz o meu login, ná página

apareceu 2 usuários online. Meu amigo ao clicar em atualizar muda para 2 usuários

online também. Então fiz o seguinte, fechei o meu IE e pedi para ele atualizar,

ainda ficou como 2 usuários online (?). Ao abrir novamente meu IE e fazer o login

apareceu 3 usuários online e meu amigo ao atualizar a página dele também

apareceu 3 usuários sendo que só estavamos nos dois online. O que pode estar acontecendo?

Porque quando eu fecho meu browser e meu amigo atualiza, a indicação não cai pra

1 usuário online? E porque tá aparecendo 3 usuários?

Se alguém puder ajudar, posta aí! Valeu!

[ldrwebsite]

Aí galera! ninguém vai me dar uma forçinha!?