Newsletter

Realizzare una newsletter.

Abbiamo due pagine: "request.asp" che consente di scrivere il messaggio da inviare, e "mailing.asp" che invia la newsletter agli iscritti.

request.asp

<html>
<body bgcolor="#FFFFFF">
<form action="mailing.asp" method="POST">
  <p><input type="text" size="20" name="oggetto">
     Oggetto dell'e-mail</p>
  <p>
  <select name="priorita" size="1">
    <option value="2">Alta</option>
    <option selected value="1">Normale</option>
    <option value="0">Bassa</option>
  </select>Priorità</p>
  <p>
    <textarea name="testo" rows="8" cols="28"></textarea>
    Testo da inviare agli iscritti
  </p>
  <p>
    <input type="submit" name="B1" value="Invia messaggi">
    <input type="reset" name="B2" value="Reimposta"></p>
</form>
</body>

mailing.asp

<%
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
%>