" for I = 1 to Request.Form.Count vContent = vContent & Request.Form.Key(I) & ": " & Request.Form(I).Item & "
" next InsSent = SendEMail("webmestre@aineshebergement.com", "jcottenoir@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("jcottenoir@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 inscription, un accusé de réception a été envoyé à votre adresse électronique, vous serez sous peu contactés par un membre de notre équipe.
Si vous avez des questions, veuillez communiquer avec notre service à la clientèle au 514.644.8314.
Merci de votre intérêt pour le Bottin Aînés Hébergement.
"
else
Response.Write "Une erreur s'est produite, l'accusé de réception n'a pu être envoyé à votre adresse électronique, veuillez communiquer avec notre service à la clientèle au 514.644.8314 pour confirmer que votre inscription a bien été reçue.
Merci de votre intérêt pour le Bottin Aînés Hébergement.
"
end if
else
Response.Write "Vous n'avez pas spécifié une adresse électronique, veuillez communiquer avec notre service à la clientèle au 514.644.8314 pour confirmer que votre inscription a bien été reçue.
Merci de votre intérêt pour le Bottin Aînés Hébergement.
"
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 %>
|
||||||||||||||||||||||
