ho questo problema:
sto ultimando un sistema d invio mail ad utenti ch s isino registrati;

chi gestirà questo sistema dovrà selzionare da una lista di news cosa inviare agli utenti;

questa persona seleziona spuntando check box da questa lista di news, dopodichè, cliccando su pubblica partirà questa email agli utenti;

prelevando con request.form gli id delle news, li devo splittare con split...da questi id separati posso costruire una tabella con un cliclo dove possono essere visualizzate le news, titolo, descrizione, ect;

come posso inserire in miaMail.Body = ""&messaggio&"" usando cdonts
il risultato di questo recordset?

in praticam i trovo sempre e solo il primo record!

posto unm pò di codice:
news = split((news),",")

for i=0 to ubound(news)
newsnl = news(i)
dim rs_mod
set rs_mod=Server.CreateObject("ADODB.Recordset")

sql3="select * from comunicati where id_com="&newsnl

rs_mod.open sql3, conn

record=0
do while not rs_mod.EOF
record=record+1
titolo=rs_mod("TITOLO")
occhiello=rs_mod("occhiello")
argomento=rs_mod("argomento")


messaggio = "<table width=98% border=0 align=center cellpadding=2 cellspacing=1>"
messaggio = messaggio + "<tr>"
messaggio = messaggio + "<td>"&titolo&"</td>"
messaggio = messaggio + "</tr>"
messaggio = messaggio + "<tr>"
messaggio = messaggio + " <td>"&occhiello&"</td>"
messaggio = messaggio + "</tr>"
messaggio = messaggio + "<tr>"
messaggio = messaggio + " <td>"&argomento&"</td>"
messaggio = messaggio + "</tr>"
messaggio = messaggio + "</table>"

rs_mod.movenext
loop

next



Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mail"
miaMail.To = "mail"








miaMail.Subject = "Newsletter"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 1


miaMail.Body = ""&messaggio&""



miaMail.Send
Set miaMail = Nothing