Ciao a Tutti vi chiedo cortesemente un aiuto. Ho messo su di una pagina un contatore visite. Succede che per qualche giorno conta le visite senza nessun problema, poi improvvisamente si "vuota" il file visite.txt e mi dà questo errore: Input past end of file. Ormai è la quarta volta che trasferisco il file visite.tx con le visite aggiornate, ma puntualmente si ripresenta lo stesso problema. Per un paio di giorni tutto bene...poi
Input past end of file. Ho pensato persino ad un bug nelle pagine del sito che svuota il file visite.txt, insomma non riesco proprio a capire!! Grazie e ciao a chi vorrà aiutarmi :-)

Il codice è il seguente:
<%
Dim nomefile, filestream
nomefile = Server.MapPath("cgi-bin/visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")

'se il file non esiste, crealo
if not objFile.FileExists(nomefile) then
Set filestream = objFile.OpenTextFile(nomefile, 2, true)
filestream.WriteLine("0")
end if

'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close

'se non è ancora presente la variabile di sessione
if Session("visiting")<>1 then
Session("visiting") = 1 'crea la variabile di sessione
visite = visite + 1 'incrementa di uno gli accessi al sito
end if

'scrive nel file il valore aggiornato di visite
Set filestream = objFile.CreateTextFile(nomefile, true)
filestream.WriteLine(visite)
filestream.Close

Set filestream = Nothing
Set objFile = Nothing
%>


<%
Response.Write "Numero visite: " &visite
%>