<%
' 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 envoye son avis 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 & "Message : " & Request("message")
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 = "Un avis sur le site Solidarites"
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 & " "
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 = "Merci pour votre e-mail"
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
%>
Solidarités : Votre avis nous intéresse !
| 
