Counter problem

Hvorfor virker dennne Counter ikke når der er kommet mere end 32768 besøg.

<%
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
%>

Besøgs tal er i filen Counter.txt