Errore recupero corpo email in newsletter

ancora niente

pagina bianca, e nessuna email inviata

in più con questa ultima modifica la pagina di destinazione appende ...asp?pag=2

ora viene visualizzata a video l'esito delle pagine inviate o meglio:
Pagina corrente: 10

e diciamo che si nota l'elaborazione del database... come se leggesse le email.
Il problema è che non arrivano...

non so se la variabile resta vuota o meno. Noto che cmq la pagina ci mette un po' ad elaborare quindi come se interrogasse il database e come se facesse realmente tutti i cicli dovuti.
Fatto sta che non arrivano le email quindi può anche darsi che la variabile messaggio sia vuota...

:crying: madoooo, e mo come faccio

oh grazie, sono obbligato

certo, lo mantiene.
Esce il messaggio inviato e un contatore...

abortito... non arrivano le email.

Mi dice: pagine: 10 e basta.

NO...NON ARRIVA NULLA


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

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

' Recupero il corpo della mail
If CInt(pag) = 1 Then
messaggio = Request.Form("corpoemail")
Else
messaggio = Session("messaggio")
End If



' 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 "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("supporter.mdb")

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

' Predispongo la paginazione
quante = 20
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 = "info@blblba.com"
email.To = rs("email")
email.Subject = "Newsletter del " & Date()
email.HtmlBody = ""&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 "newsletter.asp?pag=" & CInt(pag) + 1
End If

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