<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") HitsFile = Server.MapPath("/") & "\Visitas.txt" Set InStream= FileObject.OpenTextFile (HitsFile, 8, true ) InStream.WriteLine(now() & " - " & Request.ServerVariables("REMOTE_ADDR")) %>