Aromasson Concept

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Aromasson Concept - Bulletin <% Function IsValidEmail(email) Dim fRegEx Set fRegEx = New RegExp fRegEx.Pattern = "^[a-zA-Z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-zA-Z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-zA-Z0-9](?:[a-zA-Z0-9-]*[a-zA-Z0-9])?\.)+(?:[a-zA-Z]{2}|arpa|aero|asia|biz|cat|com|coop|edu|gov|info|int|jobs|mil|mobi|museum|name|net|org|pro|tel|travel)$" fRegEx.IgnoreCase = False fRegEx.Global = True IsValidEmail = fRegEx.Test(email) Set fRegEx = Nothing End Function Nom = Request.Form("Nom") CNom = "#FFFFFF" Ville = Request.Form("Ville") CVille = "#FFFFFF" Courriel = Request.Form("Courriel") CCourriel = "#FFFFFF" Valide = true Erreur = false If Request.QueryString("Action") = "Envoyer" Then If Nom = "" Then CNom = "#ff0000" Valide = false Erreur = True End If If Ville = "" Then CVille = "#ff0000" Valide = false Erreur = True End If If Not IsValidEmail(Courriel) Then CCourriel = "#ff0000" Valide = false Erreur = True End If If Valide Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = "mail.aromassoconcept.com" Mail.From = Courriel ' From address Mail.FromName = Nom Mail.AddAddress "aromassoconcept@hotmail.com" Mail.Subject = "Inscription bulletin" Envoie = "" Envoie = Envoie & "" Envoie = Envoie & "" Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & " " Envoie = Envoie & "

Inscription au bulletin de aromassoconcept.com
Nom :	" & request.Form("Nom") & "
Sexe :	" & request.Form("Sexe") & "
Ville :	" & request.Form("Ville") & "
Courriel :	" & request.Form("Courriel") & "

" Mail.Body = Envoie Mail.IsHTML = True strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred Response.Write(Err.Description) Else Reponse = "Aromasso concept vous remercie de cette inscription, s'il y a lieu, nous vous répondrons sous peu." End If Nom = "" CNom = "#FFFFFF" Prenom = "" CPrenom = "#FFFFFF" Cie = "" CCie = "#FFFFFF" Courriel = "" CCourriel = "#FFFFFF" Message = "" CMessage = "#FFFFFF" End If End If %>

Aromasso Concept tient à remercier sa clientèle fidèle et s'engage en 2009 à vous faire vivre un sentiment d'innovation et d'envoûtement. Désirez connaître nos nouveautés et nos promotions mensuelles, inscrivez vous au bulletin:

<%If Reponse = "" Then%>

Vous pouvez remplir ce formulaire pour vous inscrire.

<%If Erreur Then%> <%End If%>

Les champs avec un astérisque ( * ) sont obligatoires

Les champs indiqués en rouge sont obligatoires.

Nom :

Sexe :

Femme

Homme

Ville :

Courriel :

<%Else If Reponse <> "" Then%>

<%=Reponse%>

<%End If End If%>