[ASP] Errore: Input past end of file

[gelova]

[ASP] Errore: Input past end of file

Ho inserito un contatore che punta ad un file "visite.txt" solo
che mi dà il seguente errore:

Microsoft VBScript runtime error '800a003e'
Input past end of file
/index.asp, line 145

il codice è questo

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

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

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

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

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

Set filestream = Nothing
Set objFile = Nothing

Response.Write "<strong>Numero visite:</strong> " &visite
%>
Qualcuno sa dirmi a cosa è dovuto l'errore ?
Grazie !:)

[paocavo]

Il problema è dovuto alla lunghezza del file visite.txt, ovviamente il file deve esistere e deve avere una dimensione in Byte maggiore di zero. Prova ad aprirlo memorizzare uno spazio e riprova!

[gelova]

Sei un mito era proprio quello il problema infatti ho messo 0 ed è andato !

Grazie !