Aînés Hébergement - Laissez-vous choyer

<%@ Language=VBScript %> <% Option Explicit %> <% connectToDB(".") dim vSection, vParent dim InsSent dim RightBar RightBar = False %> Aînés Hébergement - Laissez-vous choyer
<%'**** ce bout de table doit être présent dans tout les headers%>

<% if Request.Form <> "" then dim vContent dim I vContent = "Salut Véro... voici une laissez-vous choyer!

" 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", "", "Choyage 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 = 4") 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écifier 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 %>

Nos Formulaires

Devenez Membre

Commander un forfait

Informations supplémentaires / Commander un forfait

	Faites nous part de votre intérêt pour notre réseau d'affaire en complétant le formulaire ci-dessous. Un membre de notre équipe se fera un plaisir de vous contacter afin de vous informer et de vous expliquer nos différents services.

<% end if %>