<%
' 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 sent their comments concerning the Solidarites site"
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & " "
TexteMail=TexteMail & VbCrLf & "Nom: "& Request("Nom")
TexteMail=TexteMail & VbCrLf & "E mail : " & Request("email")
TexteMail=TexteMail & VbCrLf & "Message : " & Request("message")
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 = "Comments sent from the Solidarites site"
Mailer.BodyText = TexteMail
TexteMail2=TexteMail2 & VbCrLf & "Dear "& Request("nom")
TexteMail2=TexteMail2 & VbCrLf & " "
TexteMail2=TexteMail2 & VbCrLf & "Thank your for your e-mail and for your interest in our organisation."
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 = "Thank you for your e-mail"
Mailer2.BodyText = TexteMail2
'IF3
if Mailer2.SendMail then
resultatt2= "Mail sent..."
else
resultatt2=" mail not sent"
end If
'ENDIF3
'test mailer
'IF4
If Mailer.SendMail Then
resultatt= "Mail sent..."
Else
resultatt="mail not sent"
End If
'ENDIF4
Response.Redirect "../defaulteng.htm"
End If
'ENDIF2
End If
'ENDIF1
%>
Solidarites - Tell us what you think
| 
