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