<% dim fs, f IP = Request.ServerVariables("REMOTE_ADDR") set fs=Server.CreateObject("Scripting.FileSystemObject") set f=fs.OpenTextFile(Server.MapPath("tik.txt"),8,true) f.WriteLine("Referans IP Adresi " & IP & " Tarih " & date() & " Zaman " & time()) f.Close set f=nothing set fs=nothing %>