<%
VisitorsIP=Request.ServerVariables (REMOTE_ADDR)
Set fs = CreateObject(Scripting.FileSystemObject)
Set wfile = fs.OpenTextFile(c:\\Mydir\\mylog.txt, forappending)
wfile.WriteLine (VisitorsIP)
wfile.close
Set wfile=nothing
Set fs=nothing
response.write(IP registered)
%>
