%
' 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 & "Please fill in all the fields.(Use the back button on your navigator to return to the form)
"
'ELSE2
Else
Dim mailer
Dim resultatt
'Dim mailer2
'Dim resultatt2
TexteMail=TexteMail & VbCrLf & "Someone has asked a question on the Solidarites site"
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & "Name: "& Request("Nom")
TexteMail=TexteMail & VbCrLf & "E mail : " & Request("email")
TexteMail=TexteMail & VbCrLf & "Question : " & Request("question")
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & "The Server"
resultatt = False
ref="ref-"&day(now)&"/"&month(now)&"/"&year(now)&"-"& Hour(time)&":"&Minute(time)&":"&Second(time)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Solidarites Site"
Mailer.FromAddress= "info@solidarites.org"
Mailer.RemoteHost = "solidarites.org"
Mailer.AddRecipient "Info", "info@solidarites.org"
Mailer.Subject = "Question"
Mailer.BodyText = TexteMail
TexteMail2=TexteMail2 & VbCrLf & "Dear "& Request("nom")
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & "Thank you for your e-mail and for your interest in our organisation."
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & "We will reply to your question as soon as possible."
TexteMail2=TexteMail2 & VbCrLf & ""
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & "Best regards,"
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 = "solidarites.org"
Mailer2.AddRecipient Request("Prenom"), Request("Email")
Mailer2.Subject = "Your Question about Solidarites"
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 "../defaulteng.htm"
End If
'ENDIF2
End If
'ENDIF1
%>
|
||||||
|
This page is dedicated to your questions. Please feel free to ask us a question concerning our humanitarian action, our organisation, how you can help ... Simply fill in the form below and click "Send". We will reply to you as soon as possible.
Frequently
Asked Questions
Click on the links below to read the answers to the questions asked by other visitors: 12
October 2000 |
||||||
|
Home | Our Vocation | Our Programmes | Join Us | Support Us | News | Cont@ct Us | Version Française |
||||||