Veamos a ver, he estado trasteando un poco :P
Código PHP:
sub session_onStart()
'sentencias a ejecutar al irse el último usuario
application.lock
application("num_usuarios") = application("num_usuarios") + 1
application.unlock
session("usuario")=request.Cookies("usuario")
dim connexio
if session("usuario")<>"" then
set connexio = Server.CreateObject ("ADoDB.connection")
connexio.open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("/mdb-database/fcb.mdb")
dim rs00, isql00
set rs00=Server.createObject("ADODB.Recordset")
rs00.CursorType=1
rs00.LockType=2
isql00="select * from usuarios where email='"&session("usuario")&"'"
rs00.open isql00,connexio,1,2
rs00.fields(9)=1
rs00.update
rs00.close
end if
end sub
sub session_onEnd()
'sentencias que se ejecutan cada vez que entra un usuario
application.lock
application("num_usuarios") = application("num_usuarios") - 1
application.unlock
dim connexio
if session("usuario")<>"" then
set connexio = Server.CreateObject ("ADoDB.connection")
connexio.open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("/mdb-database/fcb.mdb")
dim rs00, isql00
set rs00=Server.createObject("ADODB.Recordset")
rs00.CursorType=1
rs00.LockType=2
isql00="select * from usuarios where email='"&session("usuario")&"'"
rs00.open isql00,connexio,1,2
rs00.fields(9)=0
rs00.update
rs00.close
end if
end sub
Cuando el usuario entra a la web y esta registrado en el campo "online" (rs00.fields(9)) pone un 1.... hasta aqui bien.....
Cuando el usuario sale de la web.... debería poner un 0 y es esto lo que no hace :S
¿Alguien sabe porque?
Muchas gracias!