<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") HitsFile = Server.MapPath ("/statistic") & "\basseopl.txt" Set InStream= FileObject.OpenTextFile (HitsFile,8) ' Skriv Starttidspunkt, Browsertype og version i en txt-fil Session("Starttidspunkt") = Now 'Set bc = Server.CreateObject("MSWC.BrowserType") strDatoKl = Now strIP = request.ServerVariables("REMOTE_ADDR") uAgent = request.ServerVariables("HTTP_USER_AGENT") bType = request.ServerVariables("SERVER_SOFTWARE") komFra = request.ServerVariables("HTTP_REFERER") Alt = request.ServerVariables("ALL_HTTP") 'InStream.WriteLine Session("Starttidspunkt") bc.version & cType InStream.WriteLine strDatoKl InStream.WriteLine "IP-Adresse: " & strIP & " UserAgent: " & uAgent InStream.WriteLine " " ' Åbn filen til læsning og læs linie 'Set InStream = OpenTextFile(filespec,1) 'Response.write InStream.ReadLine InStream.Close %>