<% ' Obtenir des variables de session errmsg="" Action = Left(UCase(Request("Action")),5) If Action = "ENVOY" Then ' Commencer par valider les entrées If Request("nom") = "" OR _ Request("prenom") = "" OR _ Request("adresse") = "" OR _ Request("cp") = "" OR _ Request("ville") = "" OR _ Request("email") = "" Then errmsg = errmsg & "
Veuillez remplir tous les champs suivis d'un * s'il vous plaît !

" Else Dim mailer Dim resultatt 'Dim mailer2 'Dim resultatt2 TexteMail=TexteMail & VbCrLf & "Une demande d'informations Legs et Donations a été faite par :" TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Nom : "& request("nom") TexteMail=TexteMail & VbCrLf & "Prénom : "& request("prenom") TexteMail=TexteMail & VbCrLf & "Adresse : "& request("adresse") TexteMail=TexteMail & VbCrLf & "CP, ville : "& request("cp") & ", " & request("ville") TexteMail=TexteMail & VbCrLf & "Téléphone : "& request("tel") TexteMail=TexteMail & VbCrLf & "E-mail : "& request("email") TexteMail=TexteMail & VbCrLf & "Il/elle souhaite être contacté entre : "& request("debut")&" H et "& request("fin")&" H" resultatt = False ref="ref-"&day(now)&"/"&month(now)&"/"&year(now)&"-"& Hour(time)&":"&Minute(time)&":"&Second(time) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Site Solidarites" Mailer.FromAddress = "info@solidarites.org" Mailer.RemoteHost = "10.0.186.99" 'Mailer.AddRecipient "kinetix", "info@kinetix.fr" Mailer.AddRecipient "donateurs", "donateurs@solidarites.org" Mailer.Subject = "Demande d'informations Legs et Donations" Mailer.BodyText = TexteMail Mailer.CharSet = 2 HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "Demande d'informations sur les legs et donations" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "

Cher(e) " & Request("prenom")& " " & Request("nom")& ",

" HTMLMail=HTMLMail & "

Nous venons de recevoir votre demande d'informations concernant les legs et donations et nous vous remercions de l'intérêt que vous portez à cette manière essentielle de soutenir l'action humanitaire de Solidarités.

" HTMLMail=HTMLMail & "

Nous vous enverrons prochainement une documentation complète, qui explique la démarche d'un legs ou d'une donation pas à pas.

" HTMLMail=HTMLMail & "

Si, après lecture de ce dossier, vous avez besoin d'informations complémentaires, n'hésitez pas à contacter Laetitia Olivier, notre chargée des relations donateurs et testateurs au 01 80 21 05 93 ou par email : lolivier@solidarites.org

" HTMLMail=HTMLMail & "

Chaleureuses salutations, " HTMLMail=HTMLMail & "
L'équipe de Solidarités

" HTMLMail=HTMLMail & "

-------------------------------------------------

" HTMLMail=HTMLMail & "

Pour nous contacter : info@solidarites.org " HTMLMail=HTMLMail & "
http://www.solidarites.org

" HTMLMail=HTMLMail & "

-------------------------------------------------

" HTMLMail=HTMLMail & " " HTMLMail=HTMLMail & "" resultatt2 = False ref="ref-"&day(now)&"/"&month(now)&"/"&year(now)&"-"& Hour(time)&":"&Minute(time)&":"&Second(time) Set Mailer2 = Server.CreateObject("SMTPsvg.Mailer") Mailer2.FromName = "Solidarites" Mailer2.ReplyTo= Request("email") Mailer2.FromAddress= "donateurs@solidarites.org" Mailer2.RemoteHost = "10.0.186.99" Mailer2.AddRecipient Request("Prenom") & " " & Request("nom"), Request("Email") Mailer2.Subject = "Votre demande d'informations sur le site solidarites.org" Mailer2.BodyText = HTMLMail Mailer2.ContentType = "text/html" Mailer2.CharSet = 2 if Mailer2.SendMail then resultatt2= "Mail sent..." else resultatt2=" mail pas envoyé" end If If Mailer.SendMail Then resultatt= "Mail sent..." Else resultatt="mail pas envoyé" end If Response.Redirect "Legsconfirmation.shtml" end If end If %> Solidarités : Legs, Donations, Assurances-vie
Accueil > Nous aider > Legs Donations Assurances-vie

Legs Donations Assurances-vie

Je souhaite recevoir une documentation complète sur les legs et donations au profit de SOLIDARITES.

<%=errmsg%>
Remplissez les champs du formulaire, puis cliquez sur le bouton "Envoyer" en bas de page :
Votre nom : *
Votre prénom : *
Adresse : *
Code Postal : *
Ville : *
Téléphone :
 (facultatif)
E-mail : *
                          Vous pouvez me contacter entre H et H