Aiuto urgente con invio neswletter in asp

[FaBi0nE]

Ciao a tutti.
Ho un piccolo problema con l'invio di una neswletter in ASP.

--------------------------
Vi incollo qui di seguito lo script che utilizzo

<%@LANGUAGE = VBScript%>
<%
' Recupero tutte le variabili per l'applicazione
Dim messaggio, pag, cn, rs, quante, tot, i, email

' Recupero il corpo della mail
messaggio = "invio newsletter"

' Recupero e controllo il numero di pagina corrente
pag = Request.QueryString("pag")
If IsNumeric(pag) = False Or pag < 1 Then pag = 1

' Memorizzo il messaggio in una sessione per disporne
If messaggio <> "" Then
Session("messaggio") = messaggio
Else
Response.End
End If

' Mi connetto al database
Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
cn.Open "stringa di connessione

' Lancio la query
rs.Open "SELECT email FROM TabNewsletter", cn, 1

' Predispongo la paginazione
quante = 50
rs.CacheSize = quante
rs.PageSize = quante
rs.AbsolutePage = pag
tot = CInt(rs.PageCount)
i = 0

' Invio le mail una alla volta a blocchi da 50
Do While Not rs.EOF
Set email = Server.CreateObject("CDO.Message")
email.From = "newsletter@miosito.com"
email.To = rs("email")
email.Subject = "Newsletter del " & Date()
email.TextBody = Session("messaggio")
email.Send
Set email = Nothing
i = i + 1
If i = quante Then Exit Do
rs.MoveNext
Loop

' Un po di pulizia
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

' Mi sposto al blocco della pagina successiva
If CInt(pag) < CInt(tot) Then
Response.redirect "ProvaNewsletter.asp?pag=" & CInt(pag) + 1
End If

' Monitorizzo il numero di pagina corrente
Response.write ("Pagina corrente: " & pag)
%>
------------------------

In questo modo funziona tutto correttamente e sulla mail mi arriva il messaggio "invio newsletter" che sta in testa.

Se io dovessi però inviare una pagina html e del testo html come si può fare?
Qualcuno può aiutarmi?
Grazie a tutti

[Roby_72]

email.HTMLBody = Session("messaggio")

Roby

[FaBi0nE]

ok perfetto fino a qui piu o meno c'ero arrivato!!

Ma all'interno di
messaggio = "testo del messaggio"

io metto

messaggio = "<table><tr><td>blablablaba</td></tr></table>"

ovviamente va in errore.
Se levo le " va in errore comunque...

[Roby_72]

Se nel messaggio metti quello che hai scritto tu non va in errore, scommetti?
E' chiaro che se nel corpo del messaggio e nell'HTML hai delle virgolette " le dovrai raddoppiare.

Roby

[FaBi0nE]

l'errore me lo da, probabilmente, perchè ad un certo punto sono costretto ad andare a capo.

Guarda (ovviamente vado a capo subito solo per semplificare il codice).

----------------
Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/ProvaNewsletter.asp, line 7

messaggio = "<table width=""551"" .................................................. .......</tr>

--------------------


Sotto a queste righe, nel codice asp, ci sono altre 7 righe di codice html.

[Roby_72]

messaggio = "<table width=""551"" .........................................................</tr>" &_
                 "pipo, pippo" &_
                 "topolino, topolino"

Roby

[FaBi0nE]

Perfetto
Grazie mille per l'aiuto e buona giornata!

[FaBi0nE]

secondo te un invio del genere può andare in errore se ci sono una cosa tipo 2500 indirizzo email a cui spedire?

[Roby_72]

Devi spezzattare l'invio a blocchi di 50-100 email.

Roby

[FaBi0nE]

Eh ma in teoria lo script già dovrebbe spezzettare tutti gli invii in 50 blocchi, no?
Sinceramente non lo so perchè di linguaggio ci capisco poco, però da quello che ho letto da dove l'ho scaricato, diceva che spezzettavo gli invii in blocchi da 50.
Me ne puoi dare conferma o, semmai, aiutarmi a implementare lo script?
Grazie