He utilizado el objeto dictionary y lo hemetido en una variable de sesion, entonces cuando tengo que añadir datos va bien pero para elminar datos lo tengo ke hacer en el Global.asa xq son usuarios y tengo ke eliminarlo en el application_end.
Me es imposible eliminiarlo, alguien sabe xq puede ser???
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Inicializar contador al arrancar el servidor
Application("ActiveUsers") = 0
set Application("tablaUsuarios")=Usuarios
End Sub
Sub Session_OnStart
' El timeout de la Sesión será de 20 minutos
Session.Timeout = 20
' Hora de comienzo de sesión (importantes sólo para asegurarnos de que iniciamos una sesión)
Session("Start") = Now
' Incrementar los visitantes activos cuando se inicializa una sesión
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Session("IdUser")=Application("ActiveUsers")
Application.UnLock
End Sub
Sub Session_OnEnd
' Cuando se cierra la sesión se decrementa el número de usuarios activos
Application.Lock
'Application.Contents.Remove(Application("tablaUsu arios").Remove(Session("IdUser")))
'Application("tablaUsuarios").Contents.Remove(Sess ion("IdUser"))
Application("tablaUsuarios").Remove(Session("IdUse r"))
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
