ciao a tutti!! mi rendo conto di essere un pò in ritard ocon la risposta...
ho modificato un pò l'invio di questa newsletter..i problemi ora sono 2...

1 sulla mia mail di gmail visualizzo corretamente la mail mentre su quella dell'ufficio ( uso outlook 03 ) non mi appare la pagina html che invio...

2 non mi inserisce nella mail il testo che ho evidenziato in rosso qui sotto...


qualcuno sa aiutarmi?

<%@LANGUAGE="VBSCRIPT"%>
<html>
<head>
<title>MIO Sito - Conferma invio</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
Dim rs, mail, subject, message, scelta, data_source, sql_select, no

no = 0
scelta = Request.Form("scelta")
subject = Request.Form("subject")
message = Request.Form("testo")
message = message & vbcrlf & vbcrlf & "




INFO: Stai ricevendo questa mail perchè sei iscritto alla mailing list di http://www.miosito.it
Se questo messaggio ti giunge in errore o non desideri ricevere più questo tipo di informazioni per favore clicca il collegamento qui sotto, cancella il tuo indirizzo dalla mailing list e non sarai piu' disturbato."
message = message & vbcrlf & "www.miosito.it/del.asp?email="
if scelta = "azienda" then
sql_select = "SELECT * FROM aziende"
else
sql_select = "SELECT * FROM privati"
end if
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("mdb-database\mail.mdb")
If Len(message) Then

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql_select, data_source
do while not rs.EOF
'recuperi email e la mandi

Dim iMsg
Dim iConf
Dim Flds
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update

With iMsg
Set .Configuration = iConf
.To = rs("email")
.From = "www.miosito.it"
.Bcc = ""
.Subject = subject
.CreateMHTMLBody "http://www.miosito.it/messaggio_newsletter.htm"
.Send
End With



rs.MoveNExt
Loop

rs.Close
Set rs = Nothing

Else
Response.Redirect "admin.htm"
End If
%>
</head>

<body>

<%
scelta = Request.Form("scelta")
Set conn=server.CreateObject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&server.MapPath("mdb-database/mail.mdb")
if scelta = "azienda" then
sql = "SELECT * FROM aziende"
else
sql = "SELECT * FROM privati"
end if
set rs =server.CreateObject("adodb.recordset")
rs.open sql,conn
%>
<table width="755" border="0" align="center">
<tr>
<td colspan="2" align="center">[img]logo.jpg[/img]</td>
</tr>
<tr>
<td colspan="2" align="center">
<table border="0" align="center">
<tr>
<td width="755" height="15" colspan="2" bgcolor="E4E4E4" align="right">
<a href="newsletter_riservata.asp">
<font color="#006633" size="+1">
.:back:.
</font>
</a>

<a href="index.htm">
<font color="#006633" size="+1">
.:home:.
</font>
</a>
</td>
</tr>
</table>
<tr>
<td align="center"><font color="#006633">E-mail inviata a:</font></td>
</tr>

<tr>
<td align="center"><font color="#000080" size="2"><%=rs("email")%> </font>
</td>
</tr>
<% do until (rs.eof) %>

<%
rs.movenext
loop
rs.Close
Set rs = Nothing
%>
</table>

</body>
</html>


Grazie mille

Ciao!

D.