Necesito alguna buena idea para controlar las sesiones

[moNTeZIon]

Buenos días.
Necesito mostrar en una página la siguiente información:
- Número de usuarios activos anónimos
- Número de usuarios activos autenticados
La idea que he desarrollado es muy sencilla, pero en realidad no funciona.
Básicamente se trata del siguiente código en global.asax:

Código VB.NET:

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        Application("UsuariosActivos") = 0
        Application("UsuariosActivosAutenticados") = 0
    End Sub
 
    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        Application.Lock()
        Application("UsuariosActivos") += 1
        Application.UnLock()
        If User.Identity.IsAuthenticated Then
            Application.Lock()
            Application("UsuariosActivosAutenticados") += 1
            Application.UnLock()
        End If
    End Sub
 
    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        If User.Identity.IsAuthenticated Then
            Application.Lock()
            Application("UsuariosActivosAutenticados") -= 1
            Application.UnLock()
        End If
        Application.Lock()
        Application("UsuariosActivos") -= 1
        Application.UnLock()
    End Sub
 

Parece muy simple y muy bonito, la pega es que no funciona.
El número de usuarios siempre va creciendo, y nunca decrece, por motivo de no ejecutar NUNCA el evento Session_End.
He buscado algo de información al respecto y, aparentemente, este evento se ejecuta al finalizar la sesión, pero sólo en caso de que el manejo de sesiones sea del tipo "InProc", que efectivamnente así es en mi aplicación. Esto se puede comprobar con la siguiente linea:

Código VB.NET:

Session.Mode.ToString
 

Pero mi problema es que nunca se ejecuta el código del método Session_End.
En principio, el tiempo de sesión de mi aplicación son los 20 minutos por defecto que aplica IIS, y por lo tanto, el comportamiento que espero es que tras esos 20 minutos de inactividad, la sesión finalice y se ejecute el código de Session_End, pero no es así.
¿Alguien me puede iluminar?
Gracias compañeros.

[jaullo]

Eso depende de el metodo que uses para autenticarlos, usas las tablas por defecto de asp.net u algo personalizado?

[moNTeZIon]

Gracias por responder jaullo.
Uso algo personalizado.

[moNTeZIon]

Hola de nuevo.
Se me ha ocurrido una sencilla idea que considero medianamente "digna".
Cabe comentar que me han aconsejado utilizar membership y role provider para controlar las sesiones de forma precisa. Pero después de hacer algunas pruebas he visto que se trataba de bastantes cambios en la aplicación tal y como está montada, y como decía, la forma en que lo he realizado ofrece un buen resultado, si no eres muy exigente.
He montado una tabla Sesiones en la base de datos, con los campos CodigoSesion, FechaHora, IP, IDCliente, y luego sus clases para las inserciones, etc.
Este es el código del global.asax

Código VB.NET:

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        'Obtenemos los datos de la sesion para guardarlos en la tabla Tienda_Sesiones
        Session("CodigoSesion") = Guid.NewGuid.ToString
        Dim misDetallesSesion As New DetallesSesion
        misDetallesSesion.CodigoSesion = Session("CodigoSesion")
        misDetallesSesion.FechaHora = Now
        misDetallesSesion.IP = Request.ServerVariables("REMOTE_HOST")
        misDetallesSesion.IDCliente = 0
        If User.Identity.IsAuthenticated Then
            FormsAuthentication.SetAuthCookie(User.Identity.Name, True)
            'Al estar autenticado, nos guardamos el IDCliente para la tabla Tienda_Sesiones
            misDetallesSesion.IDCliente = User.Identity.Name
        End If
        Dim objSesiones As New SesionesDB
        objSesiones.Insertar(misDetallesSesion)
        'Y eliminamos las sesiones expiradas
        objSesiones.EliminarExpiradas()
    End Sub
 

EliminarExpiradas lo que hace es eliminar aquellos registros con FechaHora < DateAdd(DateInterval.Minute, -FormsAuthentication.Timeout.Minutes, Now)

Luego, en cada Request del usuario voy actualizando el campo FechaHora de su sesión.

Y para controlar si es un usuario autenticado o anónimo, en la pantalla de login guardo el IDCliente del usuario en el campo IDCliente de su sesión correspondiente.
De la misma forma, en el codigo de Logout también limpio el campo IDCliente del usuario que se está deslogando.

Si alguien le interesa esta solución en más detalle podemos comentarlo aquí.
Saludos.