<%
dim fs,f,antal
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.OpenTextFile(Server.MapPath("text.htm"),8,true)
f.WriteLine "Time: " & now() & " IP adress: " & Request.ServerVariables("remote_host") & "
"
f.Close
set f=Nothing
set f=fs.OpenTextFile(Server.MapPath("antal.htm"),1,true)
antal=f.readline
antal=antal+1
set f=fs.CreateTextFile(Server.MapPath("antal.htm"))
f.write(antal)
set f=Nothing
set fs=Nothing
Response.Redirect "http://www.catchartersbelize.com/"
%>