<% Ip = request.servervariables ("http_x_forwarded_for") if ip = "" "" remote_addr ") 'ip = request.servervariables (" remote_addr ")' response.write (ip)%>
<% Set fso = server.createObject ("scripting.filesystemObject") set f = fso.opentextfile (Server.MAppath ("IP.TXT"), 8, TRUE) 'parameter 2, write; 8, append F.WriteLine (IP & "Access Time:" & now ()) f.closset f = NothingSet Fso = Nothing'Response.write ("Test")%>