<%msg="" Action = Left(UCase(Request("Action")),5) If Action = "VALID" Then ' Commencer par valider les entrées If Request("nom") = "" OR _ Request("prenom") = "" OR _ Request("email") = "" then msg = msg & "Vous avez laissé au moins un champs obligatoire vide!!!.
" Else Dim mailer Dim resultatt 'Dim mailer2 'Dim resultatt2 TexteMail=TexteMail & VbCrLf & "Bonjour, " TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Vous avez une commande provenant de votre site web.. " TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Voici le contenu :" TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Nom: "& Request("nom") TexteMail=TexteMail & VbCrLf & "Prénom : "& Request("prenom") TexteMail=TexteMail & VbCrLf & "Email : "& Request("Email") TexteMail=TexteMail & VbCrLf & "Adresse :" & Request("adresse") TexteMail=TexteMail & VbCrLf & "Code postal :" & Request("code_postal") TexteMail=TexteMail & VbCrLf & "Ville : " & Request("ville") TexteMail=TexteMail & VbCrLf & "Pays : " & Request("pays") TexteMail=TexteMail & VbCrLf & "Commentaires : " & Request("observation") TexteMail=TexteMail & VbCrLf & " -------------------------------------" TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & " Total général :"& Request("totalg") TexteMail=TexteMail & VbCrLf & " Total en Euro :"& Request("totaleuro") TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & " Détail de la commande:" TexteMail=TexteMail & VbCrLf & " ----------------------" TexteMail=TexteMail & VbCrLf & " Chinon bonnelière, Qté :"& Request("qtechibon")&" Total :"& Request("totchibon") TexteMail=TexteMail & VbCrLf & " Chinon Chapelle, Qté :"& Request("qtechicha")&" Total :"& Request("totchicha") TexteMail=TexteMail & VbCrLf & " Chinon Chapelle 04, Qté :"& Request("qtechicha04")&" Total :"& Request("totchicha04") TexteMail=TexteMail & VbCrLf & " Chinon bellamour, Qté :"& Request("qtechibel")&" Total :"& Request("totchibel") TexteMail=TexteMail & VbCrLf & " Chinon rouge rive gauche, Qté :"& Request("qtechirge")&" Total :"& Request("totchirge") TexteMail=TexteMail & VbCrLf & " St Nicolas de Bourgueil Moulin Neuf, Qté :"& Request("qtestnic")&" Total :"& Request("totstnic") TexteMail=TexteMail & VbCrLf & " Bourgueil, Qté :"& Request("qtebouche")&" Total :"& Request("totbouche") TexteMail=TexteMail & VbCrLf & " Touraine Rouge Bonneliere, Qté :"& Request("qtetrbon")&" Total :"& Request("tottrbon") TexteMail=TexteMail & VbCrLf & " Touraine Rouge Garreliere, Qté :"& Request("qtetrgar")&" Total :"& Request("tottrgar") TexteMail=TexteMail & VbCrLf & " Touraine Rouge Gamay, Qté :"& Request("qtetrgam")&" Total :"& Request("tottrgam") TexteMail=TexteMail & VbCrLf & " Touraine Rouge Cabernet, Qté :"& Request("qtetr")&" Total :"& Request("tottr") TexteMail=TexteMail & VbCrLf & " Chinon Rosé Rive gauche, Qté :"& Request("qtechz")&" Total :"& Request("totchz") TexteMail=TexteMail & VbCrLf & " Touraine Rosé Domaine Pierre Plouzeau, Qté :"& Request("qtetzbon")&" Total :"& Request("tottzbon") TexteMail=TexteMail & VbCrLf & " Touraine Rosé Lys, Qté :"& Request("qtetz")&" Total :"& Request("tottz") TexteMail=TexteMail & VbCrLf & " Touraine Sauvignon Bonneliere, Qté :"& Request("qtetbbon")&" Total :"& Request("tottbbon") TexteMail=TexteMail & VbCrLf & " Touraine Sauvignon Garrelière, Qté :"& Request("qtetbgar")&" Total :"& Request("tottbgar") TexteMail=TexteMail & VbCrLf & " Touraine Sauvignon Lys, Qté :"& Request("qtetbsau")&" Total :"& Request("tottbsau") TexteMail=TexteMail & VbCrLf & " Touraine Brut Méthode Traditionnelle, Qté :"& Request("qtetmx")&" Total :"& Request("tottmx") TexteMail=TexteMail & VbCrLf & " Cremant, Qté :"& Request("qtecre")&" Total :"& Request("totcre") 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 = "Commande en ligne" Mailer.FromAddress= "commande@plouzeau.com" Mailer.RemoteHost = "10.0.186.99" Mailer.AddRecipient "service commande", "commande@plouzeau.com" Mailer.Subject = "Commande en ligne" Mailer.BodyText = TexteMail TexteMail2=TexteMail2 & VbCrLf & "Bonjour "& Request("nom") TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & "Merci pour votre commande. :" TexteMail2=TexteMail2 & VbCrLf & "Celle ci sera traité dans les plus bref délais" TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & "" TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & "Merci" TexteMail2=TexteMail2 & VbCrLf & "L'équipe du domaine Plouzeau" 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= "commande@plouzeau.com" Mailer2.RemoteHost = "10.0.186.99" Mailer2.AddRecipient Request("nom"), 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 "mercicom.htm" End If End If %> Bon de commande français

logo_caves_petit.gif (8467 octets)



Merci de remplir ce formulaire soigneusement afin que
votre commande vous arrive dans les meilleures conditions.

DEVISE :

PAYS DE DESTINATION :
tit_selection.gif (1664 octets)
La Bouteille QUANTITE
par 6		 SOUS TOTAL

Chinon "Château de la Bonnelière" 2005 -  Médaille d'e Bronze  Macon 

7,00 €

Chinon "Chapelle" 2003 - 2 Etoile Guide Hachette 

10,90 €

Chinon "Chapelle" 2004 - Médaille d'OR Paris et Angers

10,90 €

Chinon "Cuvée Bellamour" 2005

5,60€

Chinon "Rive Gauche" 2005                                                  

5,60 €

St Nicolas de Bourgueil "Cuvée du Moulin Neuf" 2005

6,10 €

Bourgueil "Cuvée de la Chevalerie" 2005

5,70 €

Touraine Rouge "Fleur de Lys" Gamay 2005

3,80 €

Chinon Rosé "Rive Gauche" 2005

5.60 €

Touraine Rosé "Les Devants de la Bonnelière" 2005

4,60 €

Touraine Rosé "Fleur de Lys" 2005

4,10 €

Touraine  Sauvignon "Les devants de la Bonnelière" 2005

4,90 €

Touraine  Sauvignon "Fleur de Lys" 2005

4,40 €

Touraine Brut "Méthode Traditionnelle"

5,80 €

Crémant de Loire

7,00 €

TOTAL :

FRANCO DE PORT A PARTIR DE 36 BOUTEILLES

PORT

     

TOTAL GENERAL

     

Merci de noter  votre nom et adresse ou celui du destinataire de la commande

Votre Email

" size="37">*

Nom

" size="37">*

Prénom

" size="37">*

Adresse

" size="37">*

Code postal

" size="37">*

Ville

" size="37">*

Pays

" size="37">
* Champ Obligatoire

Complément d' informations :
Code Porte
Message à l'attention du destinataire
Adresse de facturation (si différente de la livraison)
Jour de livraison ...

 


Nous vous remercions de nous retourner un chéque de EUROS correspondant à votre commande à :

CAVES PLOUZEAU SA
54 Faubourg st Jacques
37500 CHINON


Nous traiterons votre commande dans les meilleurs conditions après la réception de celui-ci que nous encaisserons après votre livraison si aucune reserve n'a été faite.

 

 

logo_caves_texte.gif (4896 octets)

Siège Social : Chateau de la Bonnelière - BP - 37502 CHINON
Bureaux et Chais : 54, Faubourg St Jacques 37500 CHINON
TEL : 02 47 93 16 34 - FAX : 02 47 98 48 23 - E.MAIL :info@plouzeau.com