Newsletter

Lo script genera una semplice newsletter. La pagina "request.asp" permette di scrivere il messaggio mentre "mailing.asp" spedisce 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 
della 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 
%>