www.volcreole.com Le forum de discussion des Dom-Tom ! Guadeloupe, Martinique, Guyane, Réunion St Pierre et Miquelon, Mayotte, Polynésie, Wallis et Futuna, ...
Posté le: 20 Avr 2003 21:26 Sujet du message: Tuto : création d'une mailing list en ASP
bon voila je commence la série de Tuto. Dans ce premier tuto j'expliquerai comment créer une mailing administrable.
Le tuto étant assez long il sera fait sur 3 jours.
1) création de la bdd
2) création d'un formulaire d'enregistrement des mails dans la bd
3) zone admin permettant l'envois et la supression des mels
Etape création d'une la bdd sous access
Créer un nouvel base de données et enregistrer la sous le nom projet
Puis créer un table en cliquant sur table puis créer un table en mode création .
Créer deux champs. Un champs id qui sera de type numéro auto et champs mail qui sera lui de type texte.
La cré primaire sera le champs id pour cera sélectionner le champs id puis faites un clique droit et séléctionner clé primaire
vous devez avoir qqch comme ceci
enregistre la table en faisant CTRL+s sous le nom mailing
voila vous pouvez fermer Access . A demain pour la deuxième étape
2.on cree une variable Email puis on l'incrémente du champs mail avec un request.form
Citation:
Email = Request.Form("mail")
3.on vérifie si le mel n'est pas déja dans la bdd.
Citation:
' vérifie si le mel n'est pas déja dans la bdd
SQL="SELECT * FROM mailing where mail='" & Email & "'"
Set RS = server.createobject("ADODB.Recordset")
RS.Open SQL,Oc, 3, 3
IF RS.eof = false then 'si la sélection est vide
message="le mail est déja dans la mailing list."
else
3.on ajoute le mail a la bdd
[quote:d1631e0926\'ajout
RS.ADDNEW
RS("mail")=Email
RS.Update
message="vous êtes inscrit a la mailing list"
4.ferme la connexion
Citation:
'ferme la connexion
rs.close : set rs=nothing
oc.close : Set conn=nothing
5.nous écrivons le message
Citation:
response.write(message)
le code ASP entier :
Citation:
<%
'-----------------------connexion a la bdd-------------------------------------------
Set oC = CreateObject("ADODB.Connection")
oC.Provider = "Microsoft.Jet.OLEDB.4.0"
oC.Open "Data Source=" & Server.MapPath("projet.mdb")
'---------------------------------------------------------------------------------
' INSERTION DES MELS DANS LA BDD
'--------------------------------------------------------------------------------
Email = Request.Form("mail")
' vérifie si le mel n'est pas déja dans la bdd
SQL="SELECT * FROM mailing where mail='" & Email & "'"
Set RS = server.createobject("ADODB.Recordset")
RS.Open SQL,Oc, 3, 3
IF rs.eof = false then 'si la sélection est vide
message="Le mail est déja dans la mailing list"
rs.close
else
'ajout
RS.ADDNEW
RS("mail")=Email
RS.Update
message="vous êtes inscrit a la mailing list"
'ferme la connexion
rs.close : set rs=nothing
oc.close : Set conn=nothing
End if
'ecris le message
response.write(message)
%>
Ps: désolé pour les fautes si vous rencontrais des erreurs au niveau du code ou des problèmes merci de me le signaler
Posté le: 22 Avr 2003 13:23 Sujet du message: Tuto : création d'une mailing list en ASP
merci Arablack
yop tout le monde voici la dernière étape.Dans ce dernier Exercice j'ai volontairement séparée la partie envois et la supression de mail afin que le code soit le plus clair possible pour vous.
Envois de mel
Pour cela nous alons tout d'abord créer un formulaire contenant un <texterea></texterea> son name sera : message et bouton submit cette page s'appellera form_envois.asp
Voyez c pas tres compliqué. le formulaire pointe vers la page que l'on créa plus tard "envois.asp".
Dans la page envois ASP
1. nous récupérons le messsage du texterea
Citation:
texte=(request.form("message")
2.fais une connextion a la bdd
Citation:
'-----------------------connexion a la bdd-------------------------------------------
Set oC = CreateObject("ADODB.Connection")
oC.Provider = "Microsoft.Jet.OLEDB.4.0"
oC.Open "Data Source=" & Server.MapPath("projet.mdb")
'---------------------------------------------------------------------------------
3.on crée un recordset
Citation:
Set RS = server.createobject("ADODB.Recordset")
sql="SELECT * FROM mailing"
RS.Open SQL,Oc, 3, 3
4. on crée un boucle qui va envoyer le mel a chacun des inscrits pour l'envois nous allons utiliser l'objets Cdonts. Mettez votre mail et votre titre
Citation:
rs.movefirst
do While not rs.EOF
Set Mailer = Server.CreateObject("CDONTS.NewMail")
' on crée l'objet CDONTS
Mailer.To=rs("mail")
' email du destinataire
Mailer.From = "expediteur@email.com"
' email de l'expediteur
Mailer.Subject = "Titre du message"
' titre du message
Mailer.Body = texte
' corps du message
Mailer.Send
rs.movenext
loop
5. on ferme la connexion et on écris un message
Citation:
Response.Write "votre mail est bien envoyé "
rs.close : set rs=nothing
oc.close : Set conn=nothing
La page du code Asp en entier :
<%
texte=request.form("message")
'-----------------------connexion a la bdd-------------------------------------------
Set oC = CreateObject("ADODB.Connection")
oC.Provider = "Microsoft.Jet.OLEDB.4.0"
oC.Open "Data Source=" & Server.MapPath("projet.mdb")
'---------------------------------------------------------------------------------
Set RS = server.createobject("ADODB.Recordset")
sql="SELECT * FROM mailing"
RS.Open SQL,Oc, 3, 3
'----------------------------envois du mails a toutes la base de donnes--------------------
rs.movefirst
do While not rs.EOF
Set Mailer = Server.CreateObject("CDONTS.NewMail")
' on crée l'objet CDONTS
Mailer.To=rs("mail")
' email du destinataire
Mailer.From = "expediteur@email.com"
' email de l'expediteur
Mailer.Subject = "Titre du message"
' titre du message
Posté le: 22 Avr 2003 13:40 Sujet du message: Tuto : création d'une mailing list en ASP
Supression de mel
Le javascript n'étant pas sans faille c interessant d'avoir une page vous permettant de supprimer des mels.
Nous allors crée un select qui vous permettra de sélectioner le mel a suprimer
1. ouvre la connexion
Citation:
'-----------------------connexion a la bdd-------------------------------------------
Set oC = CreateObject("ADODB.Connection")
oC.Provider = "Microsoft.Jet.OLEDB.4.0"
oC.Open "Data Source=" & Server.MapPath("projet.mdb")
'---------------------------------------------------------------------------------
2. on crée un recordset puis on sélectionne tous les mels dans la mailing list
Citation:
Set RS = server.createobject("ADODB.Recordset")
sql="SELECT * FROM mailing"
RS.Open SQL,Oc, 3, 3
3.On crée un un formulaire qui pointe vers la page "sup.asp" il y a un select et un bouton submit
le code du select un peut particulier car la liste se fait grace a un boucle
Citation:
<select name="sup" id="nom">
<%
rs.movefirst
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("mail")%>"</option>
<%
rs.movenext
loop
%>
</select>
4.on ferme les connection
Citation:
<%
rs.close : set rs=nothing
oc.close : Set conn=nothing
%>
le code entier
Citation:
<%
'-----------------------connexion a la bdd-------------------------------------------
Set oC = CreateObject("ADODB.Connection")
oC.Provider = "Microsoft.Jet.OLEDB.4.0"
oC.Open "Data Source=" & Server.MapPath("projet.mdb")
'---------------------------------------------------------------------------------
Set RS = server.createobject("ADODB.Recordset")
sql="SELECT * FROM mailing"
RS.Open SQL,Oc, 3, 3
%>
<html>
<head>
<body>
<form method="post" action="sup.asp" name="form">
<select name="sup" id="nom">
<%
rs.movefirst
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("mail")%>"</option>
<%
rs.movenext
loop
%>
</select>
<br>
<input name="delet" type="submit" value="SUPPRIMEZ">
</form>
</body>
</html>
<%
rs.close : set rs=nothing
oc.close : Set conn=nothing
%>
La page supr permet donc de suprimer un mel
1. ouvre une connexion a la bdd
Citation:
'-----------------------connexion a la bdd-------------------------------------------
Set oC = CreateObject("ADODB.Connection")
oC.Provider = "Microsoft.Jet.OLEDB.4.0"
oC.Open "Data Source=" & Server.MapPath("projet.mdb")
2. on récupère id
Citation:
id= request.form("sup")
3.on suprime le mel
Citation:
SQL ="DELETE from mailing where id ="& id
oc.execute sql
4. on ferme la connexion
Citation:
oc.close : Set conn=nothing
response.write("le mel est suprimé")
Le code ASP entier
Citation:
<%
'-----------------------connexion a la bdd-------------------------------------------
Set oC = CreateObject("ADODB.Connection")
oC.Provider = "Microsoft.Jet.OLEDB.4.0"
oC.Open "Data Source=" & Server.MapPath("projet.mdb")
'---------------------------------------------------------------------------------
id= request.form("sup")
SQL ="DELETE from mailing where id ="& id
oc.execute sql
'--------------------------------------------------------------------
oc.close : Set conn=nothing
response.write("le mel est suprimé")
%>
Vous ne pouvez pas poster de nouveaux sujets dans ce forum Vous ne pouvez pas répondre aux sujets dans ce forum Vous ne pouvez pas éditer vos messages dans ce forum Vous ne pouvez pas supprimer vos messages dans ce forum Vous ne pouvez pas voter dans les sondages de ce forum
Publier ce sujet sur Facebook
Posté le: 22 Avr 2003 09:50 Sujet du message: Tuto : création d'une mailing list en ASP
