CDOSYS per invio multiplo email

[lapiadina]

Ciao a tutti, dovrei inviare email multiple con il CDOSYS. Con lo script riportato qui sotto mi manda l'email solo all'indirizzo presente nel primo record del db:
...
strSQL = "SELECT configurazione.* FROM configurazione;"
rsconfiguration.CursorType = 3
rsconfiguration.Open strSQL, adoCon
If NOT rsconfiguration.EOF Then
emailamministratore = rsconfiguration("email_address")
...
objCDOMail.To = "<" & emailamministratore & ">"

vorrei che invece l'email fossero inviate a tutti quelli presenti nel campo del db "email_address".
Un aiutino?

[maximum]

strSQL = "SELECT configurazione.* FROM configurazione;" 
rsconfiguration.CursorType = 3 
rsconfiguration.Open strSQL, adoCon 
do while NOT rsconfiguration.EOF   
      emailamministratore = rsconfiguration("email_address") 
      ... 
      objCDOMail.To = "<" & emailamministratore & ">" 
   rsconfiguration.movenext
loop

[fero]

select


do while not rsconfiguration.eof

invio mail

rsconfiguration.movenext
loop

[lapiadina]

Grazie!! azz.. ke rapidità!! come devo chiudere la funzione prima era così:

End if
rsconfiguration.Close
Set rsconfiguration = Nothing

ho provato a togliere tutto e scrivere come mi avete suggerito

rsconfiguration.movenext
loop

mi manda però solo una email..
scusate la mia ignoranza con asp

[asva]

ma il send e_mail lo hai messo prima o dopo il loop?

[lapiadina]

Ciao asva, il send è nella pagina asp, mentre il loop è nell'include..così:
pagina asp :
..
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDO.Message")
objCDOMail.From = Ublogname & " <" & emailamministratore & ">"
objCDOMail.To = "<" & emailamministratore & ">"
objCDOMail.Subject = strEmailSubject
objCDOMail.Send
Set objCDOMail = Nothing
End If
rsAddCommenti.Close
Set rsAddCommenti = Nothing
Set adoCon = Nothing
Set strCon = Nothing

include:
..
do while NOT rsconfiguration.EOF
Ublogname = rsconfiguration("nomeblog")
emailamministratore = rsconfiguration("email_address")
rsconfiguration.movenext
loop
End if
rsconfiguration.Close

Grazie per il tuo aiuto!!

[asva]

ma dove metti l'include?

è chiaro che se vuoi mandare + e mail devi fare la definizione del destinatario tra il do e il loop:
esempio:

<%
mittente=Mail_cli
percorso="/mdb-database/web.mdb"
%>

<%
set rs=server.CreateObject("ADODB.recordset")
strSql="Select * FROM operatori"
set rs=cn.Execute(strSql)
DO while not rs.EOF
destinatario=rs("mail")
%>
<%oggetto="Segnalazione inviata dal cliente: "&Ragione%>
<%


'Impostiamo le nostre preferenze




'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")

'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto

'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.HTMLBody = strbody 

'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()

'Inviamo la mail!
eMail.Send()

'Eliminiamo l'oggetto...
Set eMail = Nothing




rs.Movenext
loop

[lapiadina]

ariciao asva,
l'include è all'inizio della pagina asp e definisce la connessione al db e il destinatario "emailamministratore" il quale si trova tra il do e il loop..ma spedisce l'email solo al primo indirizzo del db.
e' come nel tuo ultimo esempio ma praticamente spezzato in due file asp, include+pagina. Non capisco perchè non fa il loop...
bye

[asva]

il mio esempio funziona....lo uso normalmente

controlla bene

[lapiadina]

ok, grazie hai vostri aiuti ci sono riuscito..

set data = server.createobject("ADODB.Recordset")
data.activeconnection = strCon
data.source = "SELECT * FROM configurazione"
data.open

do while NOT data.EOF

emailamministratore = "nome@dominio.com"
Ublogname = data("nomeblog")
Mittente = Ublogname & " <" & emailamministratore & ">"
Destinatario = data("email_address")
Oggetto = "Inserito nuovo Blog"

Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDO.Message")
objCDOMail.From = Mittente
objCDOMail.To = Destinatario
objCDOMail.Subject = Oggetto
objCDOMail.HTMLBody = "testo"

objCDOMail.Send()

Set objCDOMail = Nothing

data.Movenext
loop

GRAZIE!!!!!