Input past end of file su contatore visite

[Titta2013]

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

[optime]

invece di

'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

prova con

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

[Titta2013]

Grazie per la tempestività della risposta. Adesso provo subito !!! Ciao e buona serata
Cinzia

[Titta2013]

Ho fatto la modifica che mi hai suggerito tu optime, ma il problema si è ripresentato. il contatore non ha dato nessun problema per qualche giorno poi si svuota il file visite.txt ottenendo: Input past end of file
Non so più cosa fare !!!!!!!!!!!

[optime]

da qualche parte deve esserci qualcosa che svuota quel file

[Titta2013]

Questo l'ho pensato anch'io ma non riesco a capire cosa possa essere !!! Sono disperata!

[Massimo61]

Ciao,

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

if not objFile.FileExists(nomefile) then
Set filestream = objFile.OpenTextFile(nomefile, 2, true)
filestream.Write("0")
end if

Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close

if Session("visiting") <> "si" then
visite = visite + 1
Session("visiting") = "si" 
end if

Set filestream = objFile.CreateTextFile(nomefile, true)
filestream.WriteLine(visite)
filestream.Close

Set filestream = Nothing
Set objFile = Nothing
%>


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

Massimo.

[Titta2013]

Grazie Massimo ci provo subito !! grazie, grazie

[Titta2013]

Ciao Massimo, scusa se solo ora ti rispondo, ma ho voluto appositamente attendere un po' di giorni per accertarmi che il tutto funzionasse !!!! Grazie al tuo script il contatore NON si è più svuotato. Adesso funziona e non dà più nessun problema. Grazie, grazie e ancora grazie
Cinzia