global.asa

[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