Session.timeout

[bea0013]

Tengo un session.timeout en el que le digo que el tiempo de sesion es de 60 minutos, pero al acabar este tiempo no me resta al usuario, bueno os pongo el global.asa que tengo para ver que narices es lo que tengo mal, a ver si alguien me puede ayudar, snif snif:
/////////////////////////////////////////////////////////////////////
//////////////INICIO global.asa////////////////////////////////
/////////////////////////////////////////////////////////////////////

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("VisitasActivas")=0
End Sub
Sub Session_OnStart
msgbox "sesion star"
Session.Timeout = 60
Application.Lock
Application("VisitasActivas")=Application("Visitas Activas")+1
Application.Unlock
End Sub
Sub Session_OnEnd
//msgbox "session End"
Application.Lock
Application("VisitasActivas")=Application("Visitas Activas")-1
Application.Unlock
End Sub
</SCRIPT>

/////////////////////////////////////////////////////////////////////
//////////////FIN global.asa////////////////////////////////
/////////////////////////////////////////////////////////////////////

Lo que pasa es que no me borra usuarios o eso creo.

Creo que ya se lo que pasa y es que cuando se cierra por la ventana en vez de por la referencia no pasa por la funcion Session_OnEnd

¿COMO PUEDO HACER QUE PASE POR ESTA FUNCION CUANDO SE CIERRA DESDE LA CRUZ?