Ciao,

ho un problema al secondo giro di questo codice :

codice:
While (NOT rstPiante.EOF)
nome = rstPiante("NomeLatino")
id = rstPiante ("id")
nomefile1 = nome &"_"& id &".html"
nomefile = Replace ((nomefile)," ","_")
Set OutStream=FileObject.CreateTextFile (Server.MapPath (nomefile1),true,0)
Outstream.WriteLine rstPiante("NomeLatino")
OutStream.Close
Set OutStream=Nothing
Set FileObject=Nothing

Response.Write nomefile1&"
"

rstPiante.MoveNext
wend
mi restituisce questo errore :

Aesculus hippocastanum_3.html

Microsoft VBScript runtime error '800a01a8'

Object required

/piante/archivio.asp, line 25

la linea 25 è questa Set OutStream=FileObject.CreateTextFile (Server.MapPath (nomefile1),true,0)

avete idea di dove sbaglio?
Sono alle prime armi con i cicli, mi potete aiutare .

ciao Mauro