<%
if Request.Form <> "" then
dim vContent
dim I
vContent = "Inscription!
"
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 %>
 |
| Formulaire d'inscription - pour nouveau membre |
 |
Utilisez ce formulaire pour nous faire parvenir les informations de votre résidence.
Pour remplir le formulaire, cliquez ici |
|
| |
| Questionnaire - pour mieux vous connaître |
 |
Dans le but d'assurer à votre résidence la meilleure visibilité, faites-nous part de ce qui la distingue des autres, la rend unique.
En un mot, qu'est-ce qui vous rend fier de votre résidence? Nous vous invitons à choisir parmi les questions suivantes, celles qui vous inspirent le plus. Vos réponses nous seront utiles pour la rédaction de la visite guidée et de la gazette .
Merci de votre collaboration!
Pour remplir le formulaire en ligne, cliquez ici
Pour télécharger la version PDF, cliquez ici
|
|
| Suggestions de photos - Inspirez-vous |
 |
Utilisez ce document pour vous donner des idées de photos que nous pourrions prendre lors de notre passage dans votre résidence.
Téléchargez le document PDF |
|
|
|
<% end if %>
|