<%@LANGUAGE="VBSCRIPT"%> <% Erreur="" Confirmation=false If Request.Querystring("envoi") Then '-- Contrôle du remplissage des champs : If Request.Form("Nom")="" or Request.Form("TelEmail")="" then Erreur="Merci de renseigner votre Nom et une adresse email." Else '-- Corps du message Corps="Vous avez un message depuis le site internet :
Nom : "&Request.Form("Nom")&"
Email : "&Request.Form("TelEmail")&"
Message : "&Request.Form("Message")&"" '-- Envoi du mail Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = request("ServeurSmtp") JMail.Subject = "Message depuis le site internet" JMail.Sendername = "Contact Pavillon Bleu" JMail.Sender = "infos@aupavillonbleu.com" JMail.AddRecipient "infos@aupavillonbleu.com" ' JMail.AddRecipient "seb@avandis.net" JMail.ContentType = "text/html" JMail.Body = Corps JMail.Priority = 3 JMail.Execute Set JMail=nothing Confirmation=true End if End if %> <% If Erreur<>"" Then %>

<%=Erreur%> Back

<% Elseif Confirmation Then %>

Your message has been sent successfully. Thanks. Close

<% Else %>

Send an Email to Au Pavillon Bleu

* Your Name : * Your Email : Your message :

* Required information

<% End If %>