The number of visitors to this page since November 17, 2002
<% Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile("D:\209.35.80.68\indexcount.txt") ip = Clng(a.ReadLine) if Session("ip") = "" then Session("ip") = ip ip = ip + 1 a.close Set a = fs.CreateTextFile("D:\209.35.80.68\indexcount.txt", True) a.WriteLine(ip) end if a.Close Response.Write ip %>