invio mail previo controllo campo db

[daduz]

ciao !
ho questo codice che spedisce una newsletter a tutti gli utenti di un db:

<%
TESTO_MAIL=replace(Request.Form("TESTO_MAIL"),"'", "''")
TESTO_MAIL = Replace(TESTO_MAIL,vbCrLf,"
")


Dim miaMail

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../fpdb/mail.mdb"))

set rsMUsers = Server.CreateObject("ADODB.recordset")
rsMUsers.Open "SELECT mail FROM tabella" , conn

while not rsMUsers.eof
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mail@mail.it"
miaMail.To = rsMUsers(0) 'MANDA LA MAIL A TUTTI
miaMail.Subject = "oggetto mail"
miaMail.Importance = 1
miaMail.BodyFormat = CdoBodyFormatHTML
miaMail.MailFormat = CdoMailFormatMime
miaMail.body=TESTO_MAIL
miaMail.Send
rsMUsers.movenext
Set miaMail = Nothing
wend

rsMUsers.close
conn.close
response.write TESTO_MAIL
%>

come faccio a inserire un controllo che mandi la mail solo a tutti gli utenti che nel campo FLAG del db abbiano come valore 1 ??

un grazie a tutti

[[trodat]]

rsMUsers.Open "SELECT mail FROM tabella WHERE CAMPOFLAG = 1" , conn

[daduz]

grazie 1000 !!!

[daduz]

stesso db... altro problemino, attualmente visiono tutti gli utenti insieme e poi modifico il campo FLAG utente per utente richiamandomi singolarmente il record (lo so è da matti ma per me è già tanto essere riuscito a farlo!!), come posso variare il campo FLAG spuntandolo con tutti gli utenti in lista uno sotto l' altro

[[trodat]]

Inserisci la query di update all'interno del ciclo.

[daduz]

ehmm... in parole povere povere povere....

[[trodat]]

Originariamente inviato da daduz
ehmm... in parole povere povere povere....

while not rsMUsers.eof
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mail@mail.it" 
miaMail.To = rsMUsers(0) 'MANDA LA MAIL A TUTTI
miaMail.Subject = "oggetto mail"
miaMail.Importance = 1
miaMail.BodyFormat = CdoBodyFormatHTML
miaMail.MailFormat = CdoMailFormatMime
miaMail.body=TESTO_MAIL
miaMail.Send 

query_update = "UPDATE tabella SET campoflag=quellochetipare WHERE campoflag=quellochetipare"
conn.execute (query_update)

rsMUsers.movenext
Set miaMail = Nothing
wend

[daduz]

OK questo mi aggiorna il campo flag e me lo reimposta a quello che vorrei thanks!

il mio problema era un' altro però, per aggiornare io il campo flag a mano ordevo aggironare un record alla volta tramite una pagina edit che è questa:

<%
cod=request.querystring("cod")
NOME=replace(Request.Form("NOME"),"'","''")
MAIL=Request.Form("MAIL")
FLAG=Request.Form("FLAG")


SQL="UPDATE tabella set NOME='"&NOME&"' , MAIL='"&MAIL&"', FLAG='"&FLAG&"' WHERE id="&cod
Conn.Execute(SQL)
Response.Redirect "gestisci_indirizzi.asp"
%>

per aggiornare tutti i campi in tempo reale tramite un checkbox si può?