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>
De antemano muchas gracias
Mode Lineal
