<% dim iplg, logFile8 set iplg=createObject("scripting.FileSystemObject") set logFile8=iplg.openTextFile(server.mappath("iplog.txt"),8) logFile8.write Request.ServerVariables("Remote_Addr") & vbcrlf logFile8.close set logFile8=nothing set iplg=nothing %>