Wed Mar 30, 2011 11:35 pm
<%
IPAddress=Request.ServerVariables ("REMOTE_ADDR")
Set objFileStream= CreateObject("Scripting.FileSystemObject")
Set objFileObject= objFileStream.OpenTextFile("c:\codemiles\ipaddress.txt", forappending)
objFileObject.WriteLine (IPAddress)
objFileObject.close
Set objFileObject=nothing
Set objFileStream=nothing
%>
Codemiles.com is a participant in the Amazon Services LLC Associates Program, an affiliate advertising program designed to provide a means for sites to earn advertising fees by advertising and linking to Amazon.com
Powered by phpBB © phpBB Group.