Bygdebesøg i Tiniteqilaaq

JAlbum 4.4 & AC

<% dim filesys, filetxt Const ForWriting = 2, ForAppending = 8 Set filesys = CreateObject("Scripting.FileSystemObject") Set filetxt = filesys.OpenTextFile(Server.MapPath("stat.txt"), ForAppending, True) filetxt.WriteLine((Request.ServerVariables("REMOTE_ADDR") & " ") & Now & " " & (Request.ServerVariables("HTTP_REFERER"))) filetxt.Close Set filetxt = Nothing Set filesys = Nothing %>