Allora questo è il mio ciclo:
codice:
strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\mdb-database\mailing.mdb")
set myconn =server.createobject ("ADODB.Connection")
myconn.Open strCon
mysel = "select TOP 100 * from mailing WHERE attivo=True ORDER BY data DESC"
set dbc = myconn.Execute (mysel)
if not dbc.EOF then
do until dbc.EOF
Set myMail = Server.CreateObject("CDO.Message")
myMail.Subject = "SITO:" & request.form("titolo")
myMail.To=dbc("email")
myMail.From="info@xxxxx.it"
myMail.HTMLBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">
<body bgcolor=""#FFFFFF""><font size=""2"" face=""Verdana"">MAILING TEST<font>"
myMail.Fields("urn:schemas:httpmail:importance").Value = 2 = 1
myMail.Fields.Update()
myMail.Send()
response.write dbc("email") &"
"
dbc.movenext ()
loop
end if
set dbc = nothing
myconn.Close ()
set myconn = nothing