<% ' Obtenir des variables de session msg="" Action = Left(UCase(Request("Action")),5) If Action = "ENVOY" Then ' Commencer par valider les entrées If Request("nom") = "" OR _ Request("pays") = "" OR _ Request("mail") = "" Then msg = msg & "Veuillez remplir tous les champs.(cliquez sur précédent pour obtenir l'ancien formulaire)
" Else Dim mailer Dim resultatt 'Dim mailer2 'Dim resultatt2 TexteMail=TexteMail & VbCrLf & "Bonjour, " TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Vous avez un CONTACT " TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Voici le message " TexteMail=TexteMail & VbCrLf & "NOM: "& Request("nom") TexteMail=TexteMail & VbCrLf & "FONCTION : "& Request("fonction") TexteMail=TexteMail & VbCrLf & "ETABLISSEMENT : "& Request("etablissement") TexteMail=TexteMail & VbCrLf & "ADRESSE : "& Request("adresse") TexteMail=TexteMail & VbCrLf & "VILLE : " & Request("ville") TexteMail=TexteMail & VbCrLf & "PAYS : " & Request("pays") TexteMail=TexteMail & VbCrLf & "CODE POST " & Request("codepost") TexteMail=TexteMail & VbCrLf & "TEL : " & Request("tel") TexteMail=TexteMail & VbCrLf & "FAX : " & Request("fax") TexteMail=TexteMail & VbCrLf & "MAIL : " & Request("mail") TexteMail=TexteMail & VbCrLf & "COMMENTAIRES : " & 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 = "Courrier - Adhésion." Mailer.FromAddress= "patch@mond.net" Mailer.RemoteHost = "10.0.186.99" Mailer.AddRecipient "service clients", "patch@mond.net" Mailer.Subject = "Courrier" Mailer.BodyText = TexteMail TexteMail2=TexteMail2 & VbCrLf & "Bonjour "& Request("prenom") TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & "Merci pour votre message. :" TexteMail2=TexteMail2 & VbCrLf & "Nous traitons votre demande et vous contacterons dès que possible" TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & "" TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & "Respectueusement" TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & " " 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 = "Service Clientèle" Mailer2.ReplyTo= Request("Email") Mailer2.FromAddress= "patch@mond.net" Mailer2.RemoteHost = "afroa.fr" Mailer2.AddRecipient Request("Prenom"), Request("Email") Mailer2.Subject = "service clients" Mailer2.BodyText = TexteMail2 if Mailer2.SendMail then resultatt2= "Mail sent..." else resultatt2=" mail pas envoyé" end If 'test mailer If Mailer.SendMail Then resultatt= "Mail sent..." Else resultatt="mail pas envoyé" End If Response.Redirect "merci.htm" End If End If %> AFROA - Association française des régisseurs d'oeuvres d'art - Adhésion

ADHESION
Merci de compléter le formulaire ci-dessous et d'envoyer un chèque de 30 Euros établi à l'ordre de l'AFROA à notre adresse :
AFROA, 3 rue Dulong, 75017 Paris
<%=msg%>
Nom, Prénom
Etablissement
Fonction
Adresse
Ville
Pays
Code Postal
Tel Fax
E.Mail
Votre Message:

AFROA - Loi 1901 - 3 rue Dulong, 75017 Paris