<% Set Conexion = Server.CreateObject("ADODB.Connection") Conexion.Open "Accesos" strSQL = "Select * FROM Accesos WHERE Acceso_Unique = 1; " Set rstAcces = Conexion.Execute(strSQL) strSQL = "UPDATE Accesos SET Accesos.Accesos = " strSQL = strSQL & rstAcces("Accesos") + 1 strSQL = strSQL & ", Accesos.LastLogin = '" & Now() & "' " strSQL = strSQL & "WHERE Acceso_Unique= 1;" Set rstUpdate = Conexion.Execute(strSQL) Conexion.Close %>

Quiénes Somos     Qué hacemos         Productos         Clientes         Contáctanos