MailingLst2

<%

oggetto=request.form("oggetto")
priorita=request.form("priorita")
testo=request.form("testo")
dim dove
dove="driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("clienti.mdb")
Set rs=Server.CreateObject("ADODB.recordset")
dim stmsql
stmsql="Select nomecompleto,email FROM tabellaclienti"
rs.Open stmsql,dove
do while not rs.EOF
Set objMail = Server.CreateObject("CDONTS.NewMail")
danome="Nostro sito"
damail="<webmaster@boss.it>" ' Qui il nostro indirizzo e-mail tra < >
dachi=chr(34) & danome & chr(34) & damail
objMail.From=dachi
objMail.Body=testo
objMail.To=chr(34) & rs("nomecompleto") & chr(34) &"<"& rs("email")&">"
objMail.Subject=oggetto
objmail.importance=priorita
objMail.Send
set objMail = nothing
rs.MoveNext
loop
rs.close
Set rs = NOTHING

%>