%@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 & " Inscription au bulletin de aromassoconcept.com | "
Envoie = Envoie & "
"
Envoie = Envoie & " "
Envoie = Envoie & " | Nom : | "
Envoie = Envoie & " " & request.Form("Nom") & " | "
Envoie = Envoie & "
"
Envoie = Envoie & " "
Envoie = Envoie & " | Sexe : | "
Envoie = Envoie & " " & request.Form("Sexe") & " | "
Envoie = Envoie & "
"
Envoie = Envoie & " "
Envoie = Envoie & " | Ville : | "
Envoie = Envoie & " " & request.Form("Ville") & " | "
Envoie = Envoie & "
"
Envoie = Envoie & " "
Envoie = Envoie & " | Courriel : | "
Envoie = Envoie & " " & request.Form("Courriel") & " | "
Envoie = Envoie & "
"
Envoie = Envoie & "
"
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. |
| |
|
<%Else
If Reponse <> "" Then%>
<%End If
End If%>
|
|
|
|