• User Attivo

    [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 !:)


  • Moderatore

    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!


  • User Attivo

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

    Grazie !:ciauz: