Ciao a tutti, ho fatto questo script che mi scrive i campi del mio database in un file di testo, però non riesco a sistemare il comando
<%While (NOT rsprod.EOF)%> all'interno dello script per inserirci tutti i campi del database (dal primo all'ultimo)...come faccio per creare il REPEAT?

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

testo=""&prodotto&"|"&descrizione&"|"&marca&"|"&pr ezzo&"|http://www.miosito.com/scheda.asp?id="&id&"|http://www.miosito.com/foto/"&codice&"_g.jpg|"&categoria&""

Outstream.WriteLine(testo)
OutStream.Close
Set OutStream=Nothing
Response.Write "Ho scritto sul file prova.txt"
Set FileObject=Nothing
%>


Qualcuno mi saprebbe modificare questo script?