Almacenar N Fechas

[Neuron_376]

Vete linea por linea haciendo un:

Response.write strSql
Response.End()

Luego esa consulta pegala en tu administrador de SQL y mira que error te arroja, o bien si te esta arrojando datos, etc..

Despues de eso, pones aqui que esta pasando, eso sera lo mejor para ver tu caso, porque la verdad no entiendo bien que esta pasando en tu codigo:

En mi opinion podrias hacer todo al mismo tiempo:

dns="DSN=mantto"
set conn = Server.CreateObject("ADODB.connection")
conn.open(dns)
set rs = server.CreateObject("ADODB.Recordset")
' cnn.Open "DSN=mantto"
'sql ="select nombre from ips where ip = & ip "
sql = "SELECT * FROM ips WHERE ip = '" & ip & "'"
rs.open sql,conn,1,1

if rs.eof then

con="insert into ips (ip,nombre,depto,area,visito) values ('"&ip&"',' ',' ',' ',1)"
conn.execute(con)

else

' ejecuta la consulta
'cnn.Execute (sql)
set rs = conn.Execute(sql)

//Aqui actualizas la base de datos, porque sabes que es repetido

actualiza= "Update ips set visito = visit + 1 WHERE '" & ip & "' = ip"
conn.Execute(actualiza)

end if

//Inmediatamente realizar el insert de log logos de la tabla, porque siempre pasara, esto, la primera vez, la segunda vez, es decir, siempre tienes que poner en la segunda tabla la fecha de la visita, pero estabas insertando en ips, y ls logs deben ser en otra tabla, entonces es como a continuacion, ademas le tienes que señalar para cual ip es la nueva fecha.

sSQL="INSERT INTO ipsLog (ip, Fecha) VALUES ('"&ip&"', '"&h&"')"
Conn.Execute(sSQL)

Bueno, revisalo nuevamente toda la logica y pruebalo