<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("D:\web\redskyeredangus.com\counter.txt")
ct = cInt(a.ReadLine)
if Session("ct") = "" then
ct = ct + 1
Session("ct") = ct
a.close
Set a = fs.CreateTextFile("D:\web\redskyeredangus.com\counter.txt", True)
a.WriteLine(ct)
end if
a.Close
%>
