Sistema de Log de usuarios usando Global.asa

[sjam7]

[quote=Shiryu_Libra;2009466]estaba mirando esta parte mira sjam7

Código PHP:

  If rs.EOF Then rs.AddNew 
   

Bueno, lo habia puesto en una sola linea, de cualquier forma lo puse como lo pusiste y sale todo igual...

fijate que me fui por el lado de usar cookies, deje el codigo asi:

Código:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
    Application.Lock
        Application("Active") = 0
    Application.Unlock
End Sub

Sub Session_OnStart

    sesion=request.cookies("sesion")
    inicio=request.cookies("inicio")
    usuario=request.cookies("user")
    
    if sesion="" then sesion=session.SessionID
    if inicio="" then inicio=now()

    Set conexion = Server.CreateObject("ADODB.Connection")
    Set RS = Server.CreateObject("ADODB.Recordset")
    conexion.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=xxxxx;PORT=3306;DATABASE=xxx; USER=xx;PASSWORD=xxx;OPTION=3;"
    
    sql="Select * From conexiones WHERE sesion_id=" & sesion
    rs.open sql, conexion,2,3,1
    
    If rs.EOF Then
    rs.AddNew
    
    rs("sesion_id") = CLng(sesion)
    rs("ip") = Request.ServerVariables("REMOTE_HOST")
    rs("inicio") = inicio
    rs("usuario") = usuario
    
    rs.Update
    end if
    
    Application.lock()
        Application("NumVisitas") = Application("NumVisitas") + 1
    Application.unlock()
    
    rs.close
        
End Sub


Sub Session_OnEnd

    sesion=request.cookies("sesion")
    inicio=request.cookies("inicio")
    usuario=request.cookies("user")
    
    if sesion="" then sesion=session.SessionID
    if inicio="" then inicio=now()

    sql="Select * From conexiones WHERE sesion_id=" & sesion
    rs.open sql, conexion,2,3,1

    if not rs.eof then 
        rs("fin") = Now()
    end if
    
    rs.Update
    rs.close
    
     Application.lock()
         Application("NumSesion") = Application("NumSesion") - 1
     Application.unlock()
End Sub

Sub Application_OnEnd
    rs.close
End Sub
</SCRIPT>

y que crees...no funciona , me guarda todos los damos menos el de salida, la base de datos tiene los siguientes campos:
id, sesion_id, usuario, inicio, fin, ip y es una MySQL.

Las cookies que uso las creo al momento de ingresar como usuario asi:

Código:

response.cookies("inicio")=now()
response.Cookies("sesion")=session.SessionID
response.Cookies("user")=rs("usuario")