global.asa

[juliko]

Tengo el siguiente global.asa

<script Language="VBScript" RUNAT=Server>
Sub Application_OnEnd()
End Sub

Sub Application_OnStart()
Application("NumSesion") = 0
Application("NumVisitas") = 0
End Sub

Sub Session_OnEnd()
set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\acceso\bd\acceso.mdb"))
actualizar="update accesos set fecha_salida='" & date & "', hora_salida='" & time & "' where id_sesion='59309';"
conexion.execute(actualizar)
Application("NumSesion") = Application("NumSesion") - 1
End Sub

Sub Session_OnStart()
set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\acceso\bd\acceso.mdb"))
actualizar="update accesos set fecha_salida='" & date & "', hora_salida='" & time & "' where id_sesion='59309';"
conexion.execute(actualizar)
Application("NumSesion") = Application("NumSesion") + 1
Application("NumVisitas") = Application("NumVisitas") + 1
End Sub
</script>


Resulta que en el evento "Sub Session_OnStart()" me actualiza el registro de la base de datos perfectamente pero en el evento "Sub Session_OnEnd()" no me lo hace y por tanto no decrementa la variable de aplicación.Como podeis comprobar el codigo es el mismo en ambos casos.
He probado quitando el código de la actualización de la bd y entoces si funciona bien, me decrementa la variable de aplicación, el problema creo que viene de la cadena " conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\acceso\bd\acceso.mdb"))
", pero no se el motivo ya que esta misma cadena en el evento de inicio funciona correctamente.
Gracias

[sqa212]

Pues yo tampoco lo entiendo, el global.asa me esta dando muchisimos dolores de cabeza.

[sqa212]

He visto que no usas Lock y unlock:
El codigo deberia ser
sub session_onStart()
application.lock
set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\acceso\bd\acceso.mdb"))
actualizar="update accesos set fecha_salida='" & date & "', hora_salida='" & time & "' where id_sesion='59309';"
conexion.execute(actualizar)
Application("NumSesion") = Application("NumSesion") + 1
Application("NumVisitas") = Application("NumVisitas") + 1
application.unlock
end sub

Sub Session_OnEnd()
application.lock
set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("\acceso\bd\acceso.mdb"))
actualizar="update accesos set fecha_salida='" & date & "', hora_salida='" & time & "' where id_sesion='59309';"
conexion.execute(actualizar)
Application("NumSesion") = Application("NumSesion") - 1
application.unlock
end sub

Espero que esto te arregle el problema

[juliko]

nada, sigue sin funcionar el jodido global.asa

[sqa212]

Si quitas la conexion a la bd te toma Application("NumVisitas") el valor correcto al entar y al salir de la session???

[Luchi]

Hola , yo tambien estoy teniendo problemas con sessio_onend.Necesito que cuando termina la sesion se ejecuten acciones y probe poner en una pagina.asp session.abandon, la cual sea llamada por otra.Prueba hacer esto.

El tema es que algo de lo que se encuentra en session_onend funciona pero otras cosas no. Les paso el codigo haber si alguien me puede dar una mano:

Les explico algo mas: necesito guardar cuando termina la sesion el tiempo que duro la misma, pero el problema al llamar a guardar.asp en session_onend no funciona,Como podria hacer para llamar guardar.asp el usuario abandona la session????
aca les paso el codigo para que lo miren, desde ya muchas gracias

<script language="vbscript" runat="server">

sub Application_OnStart()
application ("conectados") = 0
end sub


sub Session_OnStart()

application.lock
application ("conectados") = application ("conectados") + 1
application.unlock

Session("hora_inicial")= Time

end sub


sub Session_OnEnd()

application.lock
application ("conectados") = application ("conectados") - 1
application.unlock

Session("hora_actual")= Time

pagina="guardar.asp" 'Esto no funciona
response.redirect pagina 'Esto no funciona



end sub

</SCRIPT>

En guardar.asp resto Session("hora_actual")= Time - Session("hora_inicial")= Time y lo almaceno en la base de datos.

[juliko]

Iniciado por sqa212

Si quitas la conexion a la bd te toma Application("NumVisitas") el valor correcto al entar y al salir de la session???

Si, ese es el caso que lo que funciona mal es la conexión, pero en el evento de inicio funciona correctamente y es la misma cadena de conexión

[sqa212]

Has probado a mirar despues de 20 minutos en la base de datos por si se han insertado los registros (suponiendo que no hallas modificado el session timeout que esta por defecto)

[juliko]

Lo he comprobado y nada, y como te he comentado antes la cadena de conexión y la actualización funcionan porque lo he probado, y además he colocado el código de el evento final en el evento inicio y ahí funciona perfectamente. Ya no se lo que hacer.

[juliko]

¿Quién me puede echar un cable ? Estoy ya desesperado. Gracias de todos modos