Originariamente inviato da Grambo
sicuro che non verrai identificato come spammer? O.o
Perché dovrebbe essere considerato spam?
Comunque sto testando questo script:
codice:
<%@LANGUAGE = VBScript%>
<%
' Recupero tutte le variabili per l'applicazione
Dim messaggio, pag, cn, rs, quante, tot, i, email
' Recupero il corpo della mail
messaggio = "Corpo della mail da recuperare da un form..."
' 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 ' QUI LA STRINGA DI CONNESSIONE
' Lancio la query
rs.Open "SELECT email FROM newsletter", 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 = "news@miosito.ext"
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 "newsletter.asp?pag=" & CInt(pag) + 1
End If
' Monitorizzo il numero di pagina corrente
Response.write ("Pagina corrente: " & pag)
%>
il problema è che però il "Response.write ("Pagina corrente: " & pag)" compare solamente alla fine dell'invio di tutte le mail. Quindi se trasmetto diverse email, l'utente visualizzerà soltanto una pagina bianca. Come faccio a monitorare l'invio progressivo delle mail