Problemi esportazione Dati da Database Access a File TXt...

[d_felloni]

Buongiorno a tutti,
ho la necessità di esportare una lista di valori (e-mail) da un db access utilizzando asp. I dati devono essere scritti in formato .txt e posizionati in una cartella del sito.
esempio:
nome1@dominio,
nome2@dominio,
nome3@dominio
ecc...

ho trovato indicazioni nel forum su come esportare in formato excel... vorrei evitare questo passaggio, è possibile?

[Roby_72]

Alcune indicazioni.
http://www.aspcode.it/articoli/artic...how_art&idx=26

Roby

[d_felloni]

grazie questo non l'avevo visto, adesso provo.

[d_felloni]

Posto il codice che mi permette di riepilogare i valori estrapolati da db e scritti in un file .txt

'Creazione dell'istanza FSO.
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")

'Apertura del file , se esso esiste lo sovrascrive.
Set tsTextStream = fsoMyFile.CreateTextFile(Server.MapPath("/folder/export/file.txt"), True)
Set rsT = Server.CreateObject("ADODB.Recordset")
set rsC = Server.CreateObject("ADODB.Recordset")

Set rs=nothing
Set rs=application("database").execute("SELECT a, b, c, d FROM tabella ORDER BY a DESC")

dim valori

if not rs.eof then
valori =rs("a")&","&rs("b")&","&rs("c")&","&rs("d")& vbcrlf

do while not(rs.eof)

'Scrive i valori
tsTextStream.Write (valori)

rs.MoveNext

loop

end if


rs.close
set rs=nothing

'Chiude il file.
tsTextStream.Close


il file.txt viene creato regolarmente
ma in esso compare solo i valori del primo nominativo, le righe successive (tante quante i record presenti nel db) contengono sempre i valori dello stesso nominativo:

valore a,valore b,valore c,valore d
valore a,valore b,valore c,valore d
valore a,valore b,valore c,valore d
valore a,valore b,valore c,valore d
ecc...

[Roby_72]

Devi invertire queste due righe...

valori =rs("a")&","&rs("b")&","&rs("c")&","&rs("d")& vbcrlf
do while not(rs.eof)

Roby

[d_felloni]

.. quando si diventa troppo vecchi per questo mestiere...

funziona perfettamente, spero che questo post sia di aiuto ad altri amici.

grazie