Questo è lo script completo, la query funziona bene (testata) ma durante la fase del REPEAT con il loop ... mi ripete sempre solo una linea del db...cosa potrebbe essere? Chi mi può aiutare?

<%
Dim FileObject
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")
Set OutStream=FileObject.CreateTextFile(Server.MapPath ("file.txt"),true,0)
testo=""


While (NOT rsprod.EOF)
testo=prodotto&"|"&descrizione&"|"&marca&"|"&prezz o&"|http://www.miosito.com/scheda.asp?id="&id&"|http://www.miosito.com/prodotti/"&codice&"_g.jpg|Informatica;"&categoria&""
Outstream.WriteLine(testo)
rsprod.movenext()
wend
Rsprod.close()


OutStream.Close
Set OutStream=Nothing
Response.Write "File creato con successo."
Set FileObject=Nothing
%>