<%
strTo = "aruera@ginganago.com"
strFrom = Request("from")
if strFrom = "" then
strfrom = "aruera@ginganago.com"
end if
strfromname = Request("FromName")
if strfromName = "" then
strFromname = "formulaire web"
end if
strBody = ""
for each element in Request.form
strBody = strBody & element & " : " & request.form(element) & vbCRLF
next
for each element in Request.querystring
strBody = strBody & element & " : " & request.querystring(element) & vbCRLF
next
set oMailer = server.createObject("CDONTS.NewMail")
oMailer.from = "aruera@ginganago.com"
oMailer.to = "aruera@ginganago.com"
oMailer.subject = "Formulaire Capoeira-infos.org"
oMailer.body = strBody
oMailer.send
if err = 0 then
%>
L'envoi de vos informations s'est effectué sans problème.
Nous répondrons dans les meilleurs délais à votre requête. |
<%
else
%>
Une erreur s'est produite lors de l'envoi de vos informations.
Merci de bien vouloir recommencer l'opération
A bientôt ...
<%
end if
set oMailer = Nothing
%>
|