<%@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")="Vos commentaires ici..." then commentaires=""
if request.form("question")<>"Vos commentaires ici..." 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="Cher M. de Sauvebeuf
" & 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 = "localhost"
Mailer.FromName = "Formulaire du Château du Plessis-Bourré"
Mailer.FromAddress = "plessisbourre@hotmail.fr"
Mailer.AddRecipient "Château du Plessis-Bourré", "plessisbourre@hotmail.fr"
' Mailer.AddBCC "Lemercier","maxime.lemercier@webatoll.com"
Mailer.Subject = "Message pour le Château du Plessis-Bourré"
Mailer.ContentType = "text/html"
Mailer.BodyText = resu
Mailer.SendMail
Set Mailer = Nothing
Response.Redirect "en-contenu_confirme.htm"
End If
%>
Le Plessis Bourré - Castle - Tours - Receptions - Corporate events and seminars