% fname = Server.MapPath ("/") + "\dsl-zugang\doorway.log" Set fso= Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile (fname, 8, TRUE) f.WriteLine(Date & ";" & Time & ";" & Request("REMOTE_ADDR") & ";") f.WriteLine("Referer: "&Request.ServerVariables("HTTP_REFERER")) f.WriteLine("USER_AGENT: "&Request.ServerVariables("HTTP_USER_AGENT")) f.WriteLine("") f.Close %>