Salve a tutti, ho il seguente problema:
ho un elenco di file in una cartella nominati ognuno con un codice.
I codici li prendo da DB e per ognuno creo un nome di un file.
Devo inserire il contenuto dei file in un campo della tabella da dove ho preso i codici.
Lo script che uso mi restitusce un errore:

Input past end of file
..script.asp, line 29

ECCO LO SCRIPT (in grassetto la linea 29)

Dim strLinea, FileObject, Instream, strFile, intTipo
sql="select distinct codice from TABELLA"
set r=conn.execute(sql)
if not r.eof then
r.movefirst
do while not r.eof
nomefile=trim(r("codice"))
nomefile=nomefile&".txt"
nomefile=trim(nomefile)
strLinea=""
strFile = Server.MapPath("isbntxt/"&nomefile)
intTipo = 1 ' lettura
'creo l'oggetto
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
'apro il file
if FileObject.FileExists(strFile) then
Set InStream = FileObject.OpenTextFile(strFile, intTipo, true)
'leggo tutte le linee
strLinea = InStream.ReadAll()
'inserimento nella tab
strLinea=replace(strLinea,"'","''")
q="update TABELLA set descrizione='"&strLinea&"' where
codice='"&nomefile&"'"
conn.execute(q)
InStream.Close
Set InStream = Nothing
Set FileObject = Nothing
end if
r.movenext
loop
end if



GRAZIE

No mi da lo stesso errore!!!

Grazie!!!
ORA FUNZIONA.