No, come hai fatto tu è completamente sbagliato ... provo ad aiutarti :

codice:
<%
sql2 = "select top 1 * from newsletter order by id desc" 
rs.Open sql2, conn, 1, 3
data = rs("Data")
oggetto = rs("Oggetto")
testo = rs("Testo")
rs.close

sql = "select * from iscritti order by Nome"
rs.Open sql, conn, 1, 3

do while not rs.EOF
email = rs("Email")

sTo=  email
sFrom = "info@centropopolareeuropeo.com"
sSubject = "Messaggio dal sito CentroPopolareEuropeo.com"
	sMessage = "<html><body>
" &_
        "Web Form from CentroPopolareEuropeo.com
" &_
	"
"&_
	Message  &"
" &_
        "
" &_
	"Data :" & data & "
" &_
	"
" &_
	" Oggetto : " & oggetto & "
" &_
	"
" &_
	" Testo : " & testo & "
" &_
	"
</body></html>" 
 
	Set objNewMail = CreateObject("CDONTS.NewMail")
	objNewMail.BodyFormat = 0 
	objNewMail.MailFormat = 0
	objNewMail.Importance = 1
	objNewMail.Send sFrom, sTo, sSubject, sMessage
	Set objNewMail = Nothing
	
rs.movenext
loop

Response.Redirect ("contatto.asp")
%>
Così salvo errori di battitura, dovrebbe funzionare tutto ho sostituito i tuoi vbcrlf con i
il discorso del tag html lo metti solo nella variabile sMessage