<%
'----- abonnement.asp
'----- Récupération de la variable transmise (l’adresse e-mail)
femail = Request.Form("email")
'----- On voit s'il s'agit d'un abonnement
if Request.QueryString("faire")="abonner" then
'----- On teste l'existence de l'adresse
'----- pour éviter d'encoder un doublon
SQL = "SELECT courriel FROM abonnement WHERE (courriel='" & femail & "')"
'----- Création d'une instance de connexion
Set OBJconnex = Server.CreateObject("ADODB.Connection")
'----- Ouverture de la connexion
OBJconnex.Open "monASP"
Set rs = OBJconnex.Execute(SQL)
'----- Recherche de l'adresse
do while not rs.EOF
deja=rs("courriel")
rs.movenext
loop
rs.close
set rs = nothing
'----- Si l'adresse n'existe pas
if deja = "" then
'----- On procède à l'ajout
SQLQuery= "INSERT INTO abonnement (courriel) VALUES('" & femail & "')"
'----- Exécution de la requête
OBJConnex.Execute(SQLQuery)
End if
'----- Fermeture de la connexion
OBJConnex.close
End If
'----- Si le visiteur a cliqué sur le lien "Résilier"
if Request.QueryString("faire")="resilier" then
'----- On teste l'existence de l'adresse
SQL = "SELECT * FROM abonnement WHERE (courriel='" & femail & "')"
'----- Création d'une instance de connexion
Set OBJconnex = Server.CreateObject("ADODB.Connection")
'----- Ouverture de la connexion
OBJconnex.Open "monASP"
Set rs1 = OBJconnex.Execute(SQL)
'----- Recherche de l'adresse
do while not rs1.EOF
existe=rs1("courriel")
rs1.movenext
loop
rs1.close
set rs1 = nothing
'----- Si l'adresse existe
if existe = femail then
'----- On procède à la suppression
SQLQuery= "DELETE * FROM abonnement WHERE (courriel='" & femail & "')"
'----- Exécution de la requête
OBJConnex.Execute(SQLQuery)
End if
'----- Fermeture de la connexion
OBJConnex.close
End If
%>
abonnement.asp