<% msg="" Action = Left(UCase(Request("Action")),5) If Action = "SUBMI" Then ' Commencer par valider les entrées If Request("nom") = "" OR _ Request("prenom") = "" OR _ Request("adresse") = "" OR _ Request("cp") = "" OR _ Request("ville") = "" OR _ Request("telephone") = "" OR _ Request("pays") = "" OR _ Request("email") = "" Then msg ="Please fill in all the required fields!
" Else TexteMail=TexteMail & VbCrLf & "Bonjour, " TexteMail2=TexteMail2 & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Vous avez une demande" TexteMail=TexteMail & VbCrLf & "Sujet : Documentation" TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Options: " TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Catalogue 2001: " & request("catalogue") TexteMail=TexteMail & VbCrLf & "Plan de la ville: "& request("plan") TexteMail=TexteMail & VbCrLf & "Détails centre-Ville : "& request("centreville") TexteMail=TexteMail & VbCrLf & "Magazine : "& request("magazine") TexteMail=TexteMail & VbCrLf & " " TexteMail=TexteMail & VbCrLf & "Nom : "& request("nom") TexteMail=TexteMail & VbCrLf & "Prénom : "& request("prenom") TexteMail=TexteMail & VbCrLf & "Société : "& request("organisme") TexteMail=TexteMail & VbCrLf & "Adresse : "& request("adresse") TexteMail=TexteMail & VbCrLf & "Code Postal : "& request("cp") TexteMail=TexteMail & VbCrLf & "Ville : "& request("ville") TexteMail=TexteMail & VbCrLf & "Région/état : "& request("etat") TexteMail=TexteMail & VbCrLf & "Pays : "& request("pays") TexteMail=TexteMail & VbCrLf & "Téléphone : "& request("telephone") TexteMail=TexteMail & VbCrLf & "Fax : "& request("fax") TexteMail=TexteMail & VbCrLf & "Email : "& request("email") 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 = "Demande de documentation" Mailer.FromAddress= "info@ligeris.com" Mailer.RemoteHost = "ligeris.com" Mailer.AddRecipient "service clients", "info@ligeris.com" Mailer.Subject = "ligeris.com" Mailer.BodyText = TexteMail TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & " " TexteMail2=TexteMail2 & VbCrLf & "Thank you for your request. " TexteMail2=TexteMail2 & VbCrLf & "We will mail you the" TexteMail2=TexteMail2 & VbCrLf & "documentation ordered as soon as possible " TexteMail2=TexteMail2 & VbCrLf & "Sincerely " TexteMail2=TexteMail2 & VbCrLf & "The Tourist Office of Tours" resultatt2 = False ref="ref-"&day(now)&"/"&month(now)&"/"&year(now)&"-"& Hour(time)&":"&Minute(time)&":"&Second(time) Set Mailer2 = Server.CreateObject("SMTPsvg.Mailer") Mailer2.FromName = "Tourist Office of Tours" Mailer2.ReplyTo= Request("Email") Mailer2.FromAddress= "info@ligeris.com" Mailer2.RemoteHost = "ligeris.com" Mailer2.AddRecipient Request("Prenom"), Request("Email") Mailer2.Subject = "Documentation Order" 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 "merci2.html" End If End If %> Loire Valley - Tours - Opening hours
Back to Home Page
    
  
    
     
      
       
       
              
            
       

Open weekly from mid-April to mid-October

from 8H30 am to 7H00 pm

Sunday and holydays

from 10H00 am to 12H30 pm and 2H30 pm to 5H00 pm

Open weekly from mid-October to mid-April

from 9H00 am to 12H30 pm and 1H30 pm to 6H00 pm

Sunday and holydays

from 10H00 am to 1H00 pm
Closed on 01/01, 05/01 and 12/25

OFFICE DE TOURISME DE TOURS 78-82 rue Bernard Palissy - BP 4201 - 37042 TOURS Cedex 1
Tel +33 2 47 70 37 37 Fax +33 2 47 61 14 22 - E.Mail: info@ligeris.com