<%@LANGUAGE="VBSCRIPT"%>
<%
demande="Il s'agit d'une demande de la part de "
if request.form("prenom")="" then prenom=""
if request.form("prenom")<>"" then prenom=request.form("prenom")&" "
if request.form("nom")="" then nom=""
if request.form("nom")<>"" then nom=request.form("nom")&"
"
if request.form("email")="" then mail=""
if request.form("email")<>"" then mail=request.form("email")
if request.form("fax")="" then fax=""
if request.form("fax")<>"" then fax="fax : "&request.form("fax")&" "
if request.form("telephone")="" then tel=""
if request.form("telephone")<>"" then tel="telephone: "&request.form("telephone")&" "
if request.form("question")="Posez vos questions..." then commentaires=""
if request.form("question")<>"Posez vos questions..." then commentaires=" vous pose la question suivante, sur votre site : "&request.form("question")&"
"
unereponse ="Cette personne souhaite une réponse par "&request.form("reponse par")&"
Leurs coordonnées :
"
resu="Chère Mr et Mme Fournier
" & demande & prenom & nom & commentaires & unereponse & tel & fax & "Email : " & mail & "" & ""
If Request.Form.Count > 0 Then
For I = 1 to Request.Form.Count
Body = Body & Request.Form.Key(I) & " " _
& Request.Form.Item(I) & vbCRLF
Next
'*** send email notice
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "127.0.0.1"
Mailer.FromName = "Formulaire du Moulin de l'Aronde"
Mailer.FromAddress = "moulindelaronde@aol.com"
Mailer.AddRecipient "Le Moulin de l'Aronde", "moulindelaronde@aol.com"
Mailer.AddBCC "Lemercier","maxime.lemercier@webatoll.com"
Mailer.Subject = "Message pour le Moulin de l'Aronde"
Mailer.ContentType = "text/html"
Mailer.BodyText = resu
Mailer.SendMail
Set Mailer = Nothing
Response.Redirect "contenu_confirme.htm"
End If
%>
Le Moulin de l'Aronde - Farine - Minoterie - Meuniers depuis 5 générations
