Errore al secondo giro di un ciclo

[Mauro74]

Ciao,

ho un problema al secondo giro di questo 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

[optime]

se tu ammazzi gli oggetti (set oggetto=nothing) all'interno del ciclo, è ovvio che al secondo passaggio non siano più disponibili....

[Mauro74]

e si in effetti, sono un assassino.

Grazie mille per l'aiuto.
Mauro