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