prova così
codice:
<%

dim rs_mod 
set rs_mod=Server.CreateObject("ADODB.Recordset") 

sql3="select * from comunicati where id_com in (" & news & ")"

rs_mod.open sql3, conn 

record=0 
Dim miaMail 



do while not rs_mod.EOF 

Set miaMail = CreateObject("CDONTS.NewMail") 
miaMail.From = "mail" 
miaMail.To = "mail" 
miaMail.Subject = "Newsletter" 
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0 
miaMail.Importance = 1 

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 

miaMail.Body = messaggio

miaMail.Send 

Set miaMail = Nothing

loop 







%>