%
' Obtenir des variables de session
msg=""
Action = Left(UCase(Request("Action")),5)
'IF1
If Action = "ENVOY" Then
' Commencer par valider les entrées
'IF2
If Request("nom") = "" OR _
Request("email") = "" Then
msg = msg & "Veuillez remplir tous les champs.(cliquez sur précédent pour obtenir l'ancien formulaire)
"
'ELSE2
Else
Dim mailer
Dim resultatt
'Dim mailer2
'Dim resultatt2
TexteMail=TexteMail & VbCrLf & "Quelqu'un a pose une question sur le site Solidarites"
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & "Nom: "& Request("Nom")
TexteMail=TexteMail & VbCrLf & "E mail : " & Request("email")
TexteMail=TexteMail & VbCrLf & "Question : " & Request("question")
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & "Le serveur "
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 "jenny", "info@kinetix.fr"
Mailer.AddRecipient "Info", "info@solidarites.org"
Mailer.Subject = "Question"
Mailer.BodyText = TexteMail
TexteMail2=TexteMail2 & VbCrLf & "Cher(e) "& Request("nom")
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & "Nous vous remercions pour votre e-mail et pour l'interet que vous portez à notre association."
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & "Nous repondrons a votre question dans les meilleurs delais"
TexteMail2=TexteMail2 & VbCrLf & ""
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & "Meilleures salutations"
TexteMail2=TexteMail2 & VbCrLf & "Solidarites"
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & "-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-"
TexteMail2=TexteMail2 & VbCrLf & "http://www.solidarites.org - info@solidarites.org"
TexteMail2=TexteMail2 & VbCrLf & "-*-*--*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-"
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= "info@solidarites.org"
Mailer2.RemoteHost = "10.0.186.99"
Mailer2.AddRecipient Request("Prenom"), Request("Email")
Mailer2.Subject = "votre question posee sur le site solidarites.org"
Mailer2.BodyText = TexteMail2
'IF3
if Mailer2.SendMail then
resultatt2= "Mail sent..."
else
resultatt2=" mail pas envoyé"
end If
'ENDIF3
'test mailer
'IF4
If Mailer.SendMail Then
resultatt= "Mail sent..."
Else
resultatt="mail pas envoyé"
End If
'ENDIF4
Response.Redirect "../default.htm"
End If
'ENDIF2
End If
'ENDIF1
%>
|
||||||||
|
Cet
espace est le vôtre.
Il vous permet de nous poser toutes les questions qui vous brûlent, sur notre action humanitaire, notre association, comment nous aider ... Remplissez tout simplement le formulaire et cliquez sur Envoyer. Nous vous répondrons dans les plus brefs délais. Foire aux Questions
Comment
fait-on pour partir en mission avec Solidarités?
Une
personne qui ne possède pas de formations correspondantes à votre
demande, peut-elle avoir une chance de participer à l'une de vos missions
en qualité de volontaire ou bénévole? Compte tenu, bien sûr, d'une
étude au préalable de ses compétences humaines et de ses motivations.
Actuellement
en seconde année d'école de commerce international, j'aimerais effectuer
ma mission de fin d'études l'annee prochaine au sein d'une mission
humanitaire, j'aimerais donc savoir quelles sont les opportunités
qui peuvent convenir a mon profil. Organisez-vous
des réunions d'information et de sensibilitation auprès
des futures volontaires ou autres personnes intéressées
? Engagez-vous
des bénévoles pour une période d'un mois, par
exemple ? |
||||||||
|
Accueil | Qui
sommes-nous ? | Nos Missions
| Nous Rejoindre | Actualités
| Aider | Cont@ct
|
||||||||