si, ma ti conviene usare la paginazione, facendo inviare magari 50 email alla volta.

cesarino ha scritto:

in quel server c'e' anche il sito!! potrebbe recare problemi?
e per evitare la paginazione?

No la paginazione la metti apposta, altro che evitarla.
La paginazione serve per inviare email a blocchi di n alla volta, per lasciare una frazione di secondo di tempo al server insomma

no, la paginazione dell'invio email non da nessun problema al server.

usi una pagina intermedia fra il form dove inserisci il titolo e il corpo dell'email.
in questa pagina intermedia salvi il contenuto del form in 2 var di sessione
session("titolo")ùsession("body")
e mandi il redirect alla pagina di invio email

strSQL="SELECT email FROM user"
Set record = Server.CreateObject("ADODB.Recordset")
record.CursorLocation=3
record.Open strSQL, objkonn
record.PageSize=30 '30 email alla volta
totPagine=record.RecordCount

if request("pagina")="" then
pagina=1
else
pagina=cint(Request("pagina"))
end if

record.AbsolutePage=pagina


do while NOT (record.EOF or record.AbsolutePage <> pagina)

Set myMail = Server.CreateObject("CDONTS.NewMail")

myMail.Subject = session("titolo")
myMail.To=record("mail")
myMail.From="tuosito@tuodominio.com"
myMail.Body = session("body")
myMail.Send

set myMail=nothing

record.movenext
Loop
%>
poi
<meta HTTP-EQUIV="REFRESH" CONTENT="2; URL=invianews.asp?pagina=<%=pagina+1%>">

inia le successive 30 dopo 2 secondi

oppure clicca su un <a href=invianews.asp?pagina=<%=pagina+1%>><clicca quì</a>