<%
if Request.Form <> "" then
dim vContent
dim I
vContent = "Salut Véro... voici une inscription!
"
for I = 1 to Request.Form.Count
vContent = vContent & Request.Form.Key(I) & ": " & Request.Form(I).Item & "
"
next
InsSent = SendEMail("webmestre@aineshebergement.com", "vbeland@aineshebergement.com", "", "Inscription de résidence", vContent)
if InsSent = 0 then
strSQL = "SELECT Sujet, Body FROM tbl_Email WHERE ID_Email = " & GetResult("SELECT Valeur FROM tbl_Option WHERE ID_Option = 2")
RS.Open strSQL, CN
dim vSuj, vBod, verif
if not RS.EOF then
vSuj = RS.Fields("Sujet")
vBod = RS.Fields("Body")
end if
RS.close
'email de confirmation
if Request.Form("E-mail ") <> "" then
Verif = SendEMail("vbeland@aineshebergement.com", Request.Form("E-mail "), "", VarReplace(vSuj, strSQL), FormMess(VarReplace(vBod, strSQL)))
if Verif = 0 then
Response.Write "
Merci de nous avoir envoyé votre incription, un accusé de réception a été envoyé à votre adresse électronique"
else
Response.Write "
Une erreur s'est produite, l'accus de réception n'as pu être envoyé a votre adresse électronique, veuillez nous contacter pour confirmer que votre inscription a bien été reçue."
end if
else
Response.Write "
Vous n'avez pas spéfifier une adresse électronique, veuillez nous contacter pour confirmer que votre inscription a bien été reçue."
end if
else
'************************** ICI METTRE CODE "Ya un probleme" ******************
Response.Write "
Une erreur s'est produite, veuillez nous excuser et réessayer plus tard"
end if
else %>
<% end if %>
|
- Nous vous contacterons