più destinatari con CDONTS

[darlette]

Ciao a tutti,
sto realizzando una mailing list per inviare la stessa email a tutti gli utenti iscritti.So che la sintassi è la seguente:

<%
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")

miaMail.bcc = "persona2@dominio.net, persona3@dominio.net, persona4@dominio.net"
Se sono più destinatari nascosti
miaMail.Subject = "Oggetto della mail"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Body = "Questo è il messaggio di prova inserito nella e-mail."
miaMail.Send
Set miaMail = Nothing
%>

Il problema è che io devo passare gli indirizzi email da un'altra pagina, semplicemente spuntando le caselle dei destinatari (passando come variabile l'id utente), recupero i dati con un request che mi estre gli indirizzi dagli id passati, ma se mi occorre inviare a tutti, vale la stessa cosa?
Non vorrei incartarmi, c'è un metodo più semplice?
Grazie in anticipo.

[Mems]

Le caselle di spunta devono avere lo stesso name e come value, ognuno l'id relativo all'utente da selezionare.
Supponiamo che il name sia idutente
Con

utenti = request.form("idutente")
' arriva una stringa composta così:
' 1, 3, 5, 6, 99, 134, 255
if inStr(utenti," ") > 0 then utenti = replace(utenti," ","")

if inStr(utenti,",") > 0 then
  utenti = split(utent,",")
  for i = 0 to uBound(utenti)
    id = utenti(i)
    ' con la variabile id fai una query sulla tabella prelevi l'indirizzo email e invii la mail.
    sql = "SELECT indirizzoEmail FROM tabellaEmail WHERE idUtente = " & id
    set rs = conn.execute(sql)
    indirizzoEmail = rs("indirizzoEmail")
    rs.close
    set rs = nothing
    ' qui il codice tuo che invia la mail mettendo come destinatario la variabile indirizzoEmail...
  next
else ' vuol dire che c'è un solo destinatario perchè manca la virgola nella stringa degli id presi con la request
  id = utenti
  ' invii la mail prendendo l'indirizzo dalla tabella utenti in base al valore id
  sql = "SELECT indirizzoEmail FROM tabellaEmail WHERE idUtente = " & id
    set rs = conn.execute(sql)
    indirizzoEmail = rs("indirizzoEmail")
    rs.close
    set rs = nothing
    ' qui il codice tuo che invia la mail mettendo come destinatario la variabile indirizzoEmail...
end if

[darlette]

Ciao Mems,
provo a fare come mi hai suggerito

[darlette]

scusami...
siccome l'id_account lo passo tramite spunta di checkbox, va bene questa sintassi?

utenti=split(request.querystring("checkbox"),",",-1,1)

invece di
utenti = request.form("id_account")

[Mems]

Lo split viene fatto dopo.
Con il tuo sistema, se selezioni un solo destinatario, allora otterrai un bel errore oppure nessun array.
Fidati.
E poi, secondo me, è meglio mettere post come method della form e prendere i dati con request.form e non con request.queryString

[darlette]

Allora seleziono gli utenti a cui inviare l'email con checkbox, clicco su "invia email" ma nella pagina visualizzo questo errore:

Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: 'conn'
(riga 25)

Alla riga 25 c'è:

25 set rs = conn.execute(sql)
26 indirizzoEmail = rs("email")
27 rs.close
28 set rs = nothing

[Mems]

Devi personalizzarlo, ovviamente.
conn nel mio esempio è l'oggetto connessione al database...

[darlette]

Hai ragione scusa....
è che usando dreamweaver la connessione al db si crea sempre in automatico

[Mems]

Originariamente inviato da darlette
Hai ragione scusa....
è che usando dreamweaver la connessione al db si crea sempre in automatico

Che cosa orripilante...

[darlette]

Mi sa che ho fatto un casino, adesso mi da questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80040e51'

Il provider non è in grado di ricavare le informazioni sui parametri e la funzione SetParameterInfo non è stata richiamata.