Uso questo codice per conteggiare le visite:

codice:
<% 
 Set f = CreateObject("Scripting.FileSystemObject")
 Percorso = Server.MapPath("/mdb-database/contatore.txt")
 Set a = f.OpenTextFile(Percorso)
 conta_visite = cint(a.ReadLine) 
 If Session("conta_visite") = 0 then 
 Session("conta_visite") = conta_visite
 conta_visite = conta_visite + 1
 a.close
 Set a = f.CreateTextFile(Percorso, True)
 a.WriteLine(conta_visite)
 End If
 a.Close 
%>
e poi stampo a video il totale:

codice:
<%=conta_visite%>
Fino a ieri questo codice ha funzionato perfettamente, improvvisamente quest'oggi si è messo a fare i capricci e mi restituisce questo messaggio di errore:

Microsoft VBScript runtime error '800a0006'

Overflow: 'cint'

/top.asp, line 26
La linea 26 è la linea evidenziata in grassetto sopra.

Premetto che il file di testo si trova all'interno della cartella dove risiede il DB e su questo continuo a fare tutti gli oaggiornamenti del caso, per cui è da escludere che si tratti di perdita dei permessi.

Chi mi sa dare un aiuto in merito?

Grazie anticipatamente!