Script ASP - Email: Newsletter - Morpheusweb.it - Webmaster resources: programming, asp script, using asp, file asp, asp, asp post, database asp, asp login, vb asp, asp access, asp download, asp script, formmail, area riservata, paginazione, scripts asp, mailform, asp script download

Newsletter

How to realize a Newsletter.



					
					We have two pages: "request.asp" to write the message, and "mailing.asp" to send te mail to all subscribers. 

					

					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 

					%>