<% 
' manca la parte relativa alla connessione - da aggiungere

' salvo il messaggio in una var di sessione così da recuperarlo sulle altre pagine
if len(Request("messaggio"))>0 then
 Session("messaggio") = Request("messaggio")
end if

rs.Open strSQL, conn, 1, 3

' paginazione
mypage = Request("pg")
if mypage="" then mypage = 1

strPageSize = 20
rs.cachesize = strPageSize
rs.pagesize = strPageSize
rs.absolutepage = mypage
maxpages = CInt(rs.pagecount)

i = 0

 do while not rs.EOF
   danome = "Nostro sito"
  damail = "<webmaster@boss.ext>"
   dachi = chr(34) & danome & chr(34) & damail

   Set objMail = Server.CreateObject("CDONTS.NewMail")
   objMail.From = dachi
  objMail.Body = Session("messaggio")
   objMail.To = chr(34) & rs("nomecompleto") & chr(34) &"<"& rs("email")&">"
   objMail.Subject = oggetto
   objMail.Send
   set objMail = nothing

  i = i + 1
  if i = strPageSize then Exit Do

   rs.MoveNext
 loop

 rs.close
Set rs = Nothing

if Cint(mypage)<Cint(maxpages) then Response.redirect("invia.asp?pg=" & CINT(mypage)+1)

Response.write ("Caricate " & maxpages & " pagine")

%>