No se graba el dato.

[carlunchos]

Buenas Sras, Sres:
estoy practicando lo de mostrar los nombres de los usuarios conectados pero me surge este problemita. Si bien en la pagina logro mostrar los usuarios no logro grabar la salida en base del usuario. Aca va el codificado del Global.asa:

<script Language=Vbscript RUNAT=SERVER>

Sub Application_OnStart


End Sub


Sub Session_OnStart

Session.Timeout=5

End Sub


Sub Session_OnEnd

'On Error Resume Next
strProvider="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\Mantenimiento") & "\conectados.mdb;"

set conexion = Server.CreateObject("ADODB.Connection")
conexion.open strProvider

set tab = Server.CreateObject("ADODB.Recordset")
sql="Select * from Tabla1 where sesion='"&Session.SessionID&"'"
tab.open sql,conexion,3,2

tab("salida")=Now()
tab.update

tab.close
set tab = nothing
conexion.close
set conexion = nothing


End Sub


Sub Application_OnEnd

End Sub

</script>

El valor del Session.SessionID se genera y se graba en base pero al cerrar el navegador no se guarda en "salida" el valor de Now.
Hay algo mal o falta indicar algo mas en el global.asa?.

Saludos

[carlunchos]

Por lo visto parace que al cerrar el navegador el codificado que se encarga de grabar el Now() de salida no se produce.
Debo decir que este es un tip que VGaray dejo en el foro en su momento. Si alguien lo ha implementado en algun sitio tal vez me diga que hago mal.

Saludos y los creditos para VGaray.

[Gurrutello]

hola
prueba esto

tab.addnew
tab("salida")=Now()
tab.update

no se si funcionará pero por probar??

[carlunchos]

No Gurrutello, no funciona. Seguire probando.

Gracias y saludos.

[Vitorino]

A ver voy a intentar darte 2 opciones..espero que alguna te valga..

1) en vez de abrir la conexion 2,3......pon 1,3,1

set tab = Server.CreateObject("ADODB.Recordset")
sql="Select * from Tabla1 where sesion='"&Session.SessionID&"'"
tab.open sql,conexion,1,3,1

2) usar la propia conexion para hacer un update...es decir..

strsql="UPDATE TABLA1 SET SALIDA=NOW WHERE SESION='" & Session.SessionID & "'"
conexion.execute(strsql)

suerte un saludo.....

[carlunchos]

Hola Vitorino, pruebo y te comento.

Saludos.