codice:
<%

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

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

rs_mod.open sql3, conn 

record=0 
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 


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 

miaMail.Body = ""&messaggio&"" 

miaMail.Send 

loop 



Set miaMail = Nothing



%>