<%
mailok = 0
if request.form <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
path = "" & server.MapPath("../../../base/club_suregrip.mdb")
Conn.open "driver={Microsoft Access Driver (*.mdb)};DBQ="&path
sql="select email from adherents where email='"& request.form("email")&"';"
Set CB = Server.CreateObject("ADODB.Recordset")
CB.open sql,Conn
If CB.EOF And CB.BOF Then
''le mail n'existe pas -->on l'enregistre
nouvel_email = request.form("email")
Conn.Execute("insert into adherents values ('"& nouvel_email &"')")
msg ="Votre demande a bien été prise en compte...
Bienvenue au Club ! "
CB.Close
Set CB=Nothing
' mail
' construction du message
' envoi du mail
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = "s.coevoet@alliance-pm.fr"
mail.From = request.form("email")
mail.Subject = "demande d'inscription au club Suregrip"
mail.Body = request.form("email")
mail.Send
Else
' le mail existe déja --> message d'erreurs
msg = "ce mail existe déja, veuillez ré-itérer votre demande !"
End if
mailok = 1
end if
%>
<%
response.expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
%>
APM - Aménagements urbains routiers et autoroutiers
