Scrivere tutti i campi di un db in un file di testo

[metyuston]

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?

[Roby_72]

<% 
Dim FileObject 
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 
Set OutStream=FileObject.CreateTextFile(Server.MapPath("file.txt"),true,0) 
testo = ""
'Apri connessione
'Apri recordset

Do While NOT rsprod.EOF
prodotto = rsprod("prodotto")
descrizione = rsprod("descrizione")
....
....
....

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

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

Roby

[metyuston]

funziona!!!!

però dovrei andare a capo alla fine di ogni riga del database, come posso risolverlo?

....rodotti/"&codice&"_g.jpg|Informatica;"&categoria&""

se metto
alla fine non funziona, dove lo devo inserire?


Grazie anticipate

[Sammy73]

invece di mettere il "writeline" alla fine lo metti ad ogni ciclo!

[metyuston]

scusa ma non ti seguo, non è da molto che provo ad usare asp
mi potresti fare un esmpio pratico?

[Sammy73]

<% 
Dim FileObject 
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 
Set OutStream=FileObject.CreateTextFile(Server.MapPath("file.txt"),true,0) 
testo = ""
'Apri connessione
'Apri recordset

Do While NOT rsprod.EOF
prodotto = rsprod("prodotto")
descrizione = rsprod("descrizione")
....
....
....

testo=prodotto&"|"&descrizione&"|"&marca&"|"&prezzo&"|http://www.miosito.com/scheda.asp?id="&id&"|http://www.miosito.com/foto/"&codice&"_g.jpg|"&categoria&"" 
Outstream.WriteLine(testo) 
rsprod.MoveNext
Loop


OutStream.Close 
Set OutStream=Nothing 
Response.Write "Ho scritto sul file prova.txt" 
Set FileObject=Nothing 
%>

così dovrebbe andare (spero)

non ti credere che sia un guru di asp (e neanche di qualcos'altro)

[metyuston]

così va a capo ma scrive sempre la stessa riga del db

[Sammy73]

strano...

[metyuston]

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
%>

[Roby_72]

Tra il tuo script e il mio manca un piccolo dettaglio che non hai colto... vediamo se riesci...In fin dei conti dovevi solo copiare... :rollo:

Roby