Besöksräknare i asp nollställs ger error, vad gör jag för fel

[Locutus]

Jag har skapat en besöksräknare som nollställer text-filen den skriver till, eller åtminstone ger ett Past EOF liknande error, var 3:e månad eller så. Kan någon hjälpa mig se vad som är fel?

<%
'create a FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'this is the path to our counter file
CounterFile = Server.MapPath("visitors.txt")
Set objCount = objFSO.OpenTextFile(CounterFile)
visitorcount = CLng(objCount.ReadLine)
if Session("visitorcount") = "" then
Session("visitorcount") = visitorcount
visitorcount = visitorcount + 1
objCount.close
Set objCount = objFSO.CreateTextFile("visitors.txt", True)
objCount.WriteLine(visitorcount)
end if
objCount.Close
'display count

%>

 

Tack