<% IPAddress=Request.ServerVariables ("REMOTE_ADDR") Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("c:\log.txt", forappending) objFile.WriteLine (IPAddress) objFile.close Set objFile=nothing Set objFSO=nothing %>