Problema Con Global.asa

[darkmcloud]

Buenas amigos de foros del web...necesito capturar la hora y fecha en que un usuario inicio sesion en mi sitio y ademas saber si esta online o no.....bueno, tengo este codigo en el globa.asa pero no me actualiza los datos....este es el codigo :

Código PHP:

  <SCRIPT LANGUAGE='VBScript' RUNAT='Server'> 
 
 
Sub Session_OnStart 
 
    Session.Timeout = 2
    Session.lcid=13322
    Session("cnx") = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID='sa';Password='redes';Initial Catalog='bodega';Data Source='TALLER'"
 
End Sub
 
 
Sub Application_OnStart
application.lock
fechacuenta=date()
    timecuenta=time()
    ip= Request.ServerVariables("REMOTE_HOST")
    usuarioconta=Session("id_usuario")
    
    set Cnn=Server.CreateObject("ADODB.Connection")
    set rs4=Server.CreateObject("ADODB.Recordset")
    Cnn.Open Session("cnx")
strSQL4 = "Update tblusuarios Set fecha_acceso= '" & fechacuenta  & "', time_acceso= '" & timecuenta  & "', ip= '" & ip  & "', accion= ' entro ' where Tblusuarios.idusuario='" & usuarioconta &"' "    
set rs4 = Cnn.Execute(strSQL4)
cnn.Execute(strSQL4)
 
application.unlock 
End Sub
 
</SCRIPT> 
  

tambien he probado colocarlo en el evento Sub Session_OnStart pero tampoco.....

De antemano muchas gracias