Counter fejl?

Jeg har før anvendt dette script som en simpel counter på et website, og den fungerede fint:

<%
Function Counter()

  Dir = Server.Mappath("counter.txt")
  Set File = CreateObject("Scripting.FileSystemObject")
  Set Count = File.OpenTextFile(Dir)
  Counter = Cint(Count.ReadLine)
  Count.Close
  If Session("Counter") = "" Then
    Session("Counter") = Counter
    Counter = Counter + 1
    Set Count = File.CreateTextFile(Dir,true)
    Count.WriteLine(Counter)
    Count.Close
  End If
  Set File = Nothing
  Set Count = Nothing
End Function
%>

Nu vil jeg benytte den igen på et nyt website på min lokale IIS, men filen "counter.txt", som er der hvor værdien af counter-tallet placeres tæller ikke. Der bliver ved med at stå "1". Der er givet skriverettigheder på filen. Jeg kan ikke forstå hvorfor det ikke virker, er her nogen der kan se det?