<% ' 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("message") = "" 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 sur le site www.solidarites.org a été faite par :" TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Nom : "& request("nom") TexteMail=TexteMail & VbCrLf & "Prénom : "& request("prenom") TexteMail=TexteMail & VbCrLf & "E-mail : "& request("email") TexteMail=TexteMail & VbCrLf & "Message : "& request("message") 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 "Webmaster", "jkharrazen@solidarites.org" Mailer.Subject = "Demande d'informations sur le site internet" Mailer.BodyText = TexteMail Mailer.CharSet = 2 HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "Votre demande d'informations sur le site solidarites.org" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "" HTMLMail=HTMLMail & "

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

" HTMLMail=HTMLMail & "

Nous venons de recevoir votre demande d'informations et nous vous remercions de l'intérêt que vous portez à l'action humanitaire de Solidarités.

" HTMLMail=HTMLMail & "

Nous vous enverrons une réponse dans les meilleurs délais.

" 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= "jkharrazen@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 "confirmation.shtml" end If end If %> Solidarités : Nous contacter

Accueil > Nous contacter

Contacter notre webmaster

Pour envoyer un message à notre webmaster, merci de remplir le formulaire ci-dessous.

<%=errmsg%>