si,giusto,non ho tolto i cosi per andare a capo nei file testuali.adesso si.
il codice mi risulta così:

<html>
<%
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 = vbcrlf _
& "Web Form from CentroPopolareEuropeo.com" & vbcrlf _

& Message
%>


<%
& "Data :" & data
%>


<%
& " Oggetto : " & oggetto
%>


<%
& " Testo : " & testo
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")
%></html>

con questo errore:

Microsoft VBScript compilation error '800a0400'

Expected statement

/admin/send-newsletter.asp, line 27

& "Data :" & data