<%
On Error Resume Next
err = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("d:\web\sepcrc.org\www\data\aspcount.txt")
ct = Clng(a.ReadLine)
if NOT isnumeric(ct) then ct = 750
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
Set a = fs.CreateTextFile("d:\web\sepcrc.org\www\data\aspcount.txt", True)
a.WriteLine(ct)
end if
a.Close
%>
You are visitor <%= ct %>
