<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("D:\Inetpub\www\aspenhillredangus\counter.txt")
ct = cInt(a.ReadLine)
if Session("ct") = "" then
ct = ct + 1
Session("ct") = ct
a.close
Set a = fs.CreateTextFile("D:\Inetpub\www\aspenhillredangus\counter.txt", True)
a.WriteLine(ct)
end if
a.Close
%>
You are visitor # <%=session("ct")%> since
November 12, 2003
