<% Option Explicit Response.ExpiresAbsolute = Now() -1 Response.addHeader "pragma","no-cache" Response.addHeader "cache-control","private" Response.CacheControl = "no-cache" Dim conn, inserir, inserindo Set conn = server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("host.mdb") & ";UID=;PWD=" inserir = "INSERT INTO Logando (Ip, DataHora) values ('" & Request.ServerVariables("REMOTE_ADDR") & "', Now)" Set inserindo = conn.execute(inserir) %>