Questionnaire :: Infos Résidence
<%
connectToDB(".")
dim vSection, vParent
dim RightBar
RightBar = False
%>
<%
if Request.Form <> "" then
dim vContent
dim I
vContent = "Questionnaire :: Informations sur une résidence http://www.aineshebergement.com/questionnaire.asp
"
for I = 1 to Request.Form.Count
vContent = vContent & Request.Form.Key(I) & ": " & Request.Form(I).Item & " "
next
dim InsSent
InsSent = SendEMail("webmestre@aineshebergement.com", "jcottenoir@aineshebergement.com", "", "Questionnaire : Infos résidence", vContent)
if InsSent = 0 then
%>
Merci d'avoir pris quelques minutes pour répondre à nos questions.
<%
else
%>
Une erreur s'est produite,
veuillez communiquez avec nous
au 514-644-8314
<%
end if
else %>
<% end if %>
<%
CN.close
set CN = nothing
set RS = nothing
set CMD = nothing
%>