<%@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 "" 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%> Retour

<% Elseif Confirmation Then %>

Votre message a bien été envoyé. Merci. Fermer cette fenêtre

<% Else %>

Envoyer un Email au Pavillon Bleu

* Votre Nom : * Votre Email : Votre message :

* Renseignements indispensables

<% End If %>