<% Set objRs_Visitas = Server.CreateObject("ADODB.Recordset") strSql_Visitas = "SELECT Visitas FROM tblClientesPromo WHERE IdCliente = 148" objRs_Visitas.Open strSql_Visitas, objConnection, 3, 1, 1 objRs_Visitas.MoveFirst IF objRs_Visitas("Visitas") <> "" THEN strVisita = int(objRs_Visitas("Visitas")) + 1 ELSE strVisita = 1 END IF SqlVisitas = "UPDATE tblClientesPromo SET Visitas = "& strVisita &" WHERE IdCliente = 148" objConnection.Execute (SqlVisitas) %> AUTOS-PLAZA .:::. Bienvenidos

Diseño: Area contenidos del portal de coches www.ciudaddelautomovil.com