inserire un ciclo in email

[alfietto82]

salve,

devo prelevare da un database determinati dati che si ripetono ed inserirli nel corpo di una email da inviare con CDONTS. Questo è ilk codice che ho generato:

sql2 = "SELECT * FROM acquisti WHERE id_user= '" & session("user") & "' AND trans = '"& now() & "'"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql2, conn

dim oggetto
do while not rs.EOF
oggetto = "articolo
id:"& rs("id_prod") &"
tipologia:" & rs("gnr") &"
"
rs.movenext
loop

set objmails = server.CreateObject("CDONTS.newmail")
objmails.from = "xxx"
objmails.to = xxx
objmails.subject = "Acquisto sul sito"
objmails.bodyformat = 0
objMails.MailFormat = 0
objmails.body = oggetto
objmails.importance = 1
objmails.send

Set rs = Nothing
set conn = Nothing

nell'email che invia però, mi arriva soltanto un risultato dal recordset anche quando ce ne dovrebbero essere di più. dove sbaglio?

[steweb]

Xchè cosi rimarrà memorizzato solo l'ultimo passaggio del loop dei dati devi come sommare le varie righe !!


dim oggetto
oggetto=""
do while not rs.EOF
body = "articolo
id: "& rs("id_prod") &"
tipologia: " & rs("gnr") &"
"
oggetto = oggetto + body
rs.movenext
loop

Steweb

[alfietto82]

grazie...
una cosa del genere avrebbe avuto senso?

oggetto = oggetto & rs("id_prod") & "-" & rs("gnr") & vbCrLf

[alfietto82]

con la soluzione che mi hai suggerito l'email viene completamente vuota!

[steweb]

Scusami !
Così

oggetto= " Corpo mail 
"
do while not rs.EOF 
oggetto = oggetto & "articolo
id: "& rs("id_prod") &"
tipologia: " & rs("gnr") &"
" 
rs.movenext 
loop

Prova ora !

Steweb

[alfietto82]

così si!