Numero de usuarios conectados

[algicor]

tengo una aplicacion web, en la que los usuarios se conectan mediante su usr y pwd, en la pagina de identificacion tengo el sgte codigo:
'***********************'
'Control de usuarios Activos'
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
'***********************'
que me permite saber el numero de usuarios que se han identificado, y lo utilizaba para saber el nº de usuarios q estan online en la aplicacion.
Mediante el sgte codigo:
'***********************'
Application("ActiveUsers")
'***********************'
Pero si el usuario cierra el navegador, es imposible saber si se ha desconectao de la aplicacion...
alguan sugerencia?

[eltano]

Eso me imagino que esta en el Onstart no ??

yo agregue lo siguiente en el onEnd

SUB Session_OnEnd
Application.Lock
Application("usersonline")= Application("usersonline") - 1
Application.UnLock
END SUB

[algicor]

si, pero eso es valido unicamente si cierran la aplicacion correctamente, es decir, si pulsan algun boton de cerrar session o algo asi, pero si unicamente cierran la ventana del explorador, no se como hacer esa operacion. Es decir, en caso de cerrar la ventana del explorador, como hago:
SUB Session_OnEnd
Application.Lock
Application("usersonline")= Application("usersonline") - 1
Application.UnLock
END SUB

[3pies]

Por defecto (aunque lo puedes cambiar), transcurridos 20 minutos de inactividad, se restará ese usuario (-1). Lógicamente, si cierra el navegador, y no vuelve a entrar en la web, al cabo de 20 minutos, contará como 1 usuario conectado menos.

Salu2

[algicor]

gracias voy a probarlo

[eltano]

Iniciado por algicor

si, pero eso es valido unicamente si cierran la aplicacion correctamente, es decir, si pulsan algun boton de cerrar session o algo asi, pero si unicamente cierran la ventana del explorador, no se como hacer esa operacion. Es decir, en caso de cerrar la ventana del explorador, como hago:
SUB Session_OnEnd
Application.Lock
Application("usersonline")= Application("usersonline") - 1
Application.UnLock
END SUB

EDITADO: la respuesta la dio 3pies. Si no te jode para el resto de la aplicacion, lo que podes hacer es bajarle tiempo de vto de la sesion....

saludos eltano