<%@ Page Language="VB" Explicit="True" ValidateRequest="false" contentType="text/html; charset=utf-8" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> <%@ Import Namespace="System.Text.RegularExpressions" %> <%@ Import Namespace="System.Web.Mail" %> <%@ Import Namespace="System.Xml" %> <%@ Import Namespace="System.Xml.XPath" %> <%@ Import Namespace="MegalosClasses" %> <% Dim sError As String = "" Dim bSendMail As Boolean = False Try If Request.Form("send") = 1 Then If Request.Form.Count > 0 Then ' V豩fication du passage des param糲es Dim bMissingField As Boolean = False Dim aRequiredFields As Array = Split("name,firstname,email,phone,address,zipcode,city",",") Dim iIdxField As Integer For iIdxField = 0 To UBound(aRequiredFields) If Len(Request.Form(aRequiredFields(iIdxField))) <= 0 Then bMissingField = True Exit For End If Next If bMissingField = True Then ' sError = "Ces champs sont requis : " & aRequiredFields(iIdxField) sError = "Please fill all fields." Else If Not MegalosTools.isAnEmail(Request.Form("email")) Then sError = "Not valid email address." Else ' suppression de la verif du numero car ne prends pas en compte les numeros de tel etrangers 'If Not MegalosTools.isAnPhone(Request.Form("phone")) Then ' sError = "Not valid phone number." 'Else If (Request.Form("message").indexOf("[url=")>0 or Request.Form("message").indexOf("[link=")>0) or Request.Form("message").indexOf("Good site, admin.")>0) Then 'sError = "" bSendMail = true Else Dim sFromMail As String = "no-reply@" & sHost Dim sToMail As String = "xpcurt@yahoo.fr" Dim sToMail2 As String = "b.cheriaux@megalos.net" Dim sMailSubject As String = "L'Appartement d'Hotes : Contact" Dim sHtmlFilename As String = Server.Mappath("/mail/contact.html") If File.Exists(sHtmlFilename) = False Then sError = "Template mail introuvable." Else Dim sBodyText As String = "" sBodyText = sBodyText & "Nom : " & Request.Form("name") & "
" sBodyText = sBodyText & "Prénom : " & Request.Form("firstname") & "

" sBodyText = sBodyText & "Adresse : " & Request.Form("address") & "
" sBodyText = sBodyText & "Code-postal : " & Request.Form("zipcode") & "
" sBodyText = sBodyText & "Ville et Pays : " & Request.Form("city") & "

" sBodyText = sBodyText & "Email : " & Request.Form("email") & "
" sBodyText = sBodyText & "Telephone : " & Request.Form("phone") & "

" sBodyText = sBodyText & "Message :
" & Replace(Request.Form("message"), chr(13) & chr(10), "
") & "


" sBodyText = sBodyText & "Ci-dessous, des informations sur l'expéditeur du message :

" sBodyText = sBodyText & "ALL_HTTP : " & Request.ServerVariables("ALL_HTTP") & "

" sBodyText = sBodyText & "LOCAL_ADDR : " & Request.ServerVariables("LOCAL_ADDR") & "
" sBodyText = sBodyText & "REMOTE_ADDR : " & Request.ServerVariables("REMOTE_ADDR") & "
" sBodyText = sBodyText & "REMOTE_HOST : " & Request.ServerVariables("REMOTE_HOST") & "
" sBodyText = sBodyText & "LANGUE : EN
" Dim sBodyTemplate = MegalosTools.getFileContent(sHtmlFilename) sBodyTemplate = Replace(sBodyTemplate,"[HTTP_HOST]", "http://" & Request.ServerVariables("HTTP_HOST")) sBodyTemplate = Replace(sBodyTemplate,"[bodyContent]", sBodyText) bSendMail = MegalosTools.sendMailMess(sToMail, sFromMail, sMailSubject, sBodyTemplate , True, "utf8", sMailHost) MegalosTools.sendMailMess(sToMail2, sFromMail, sMailSubject, sBodyTemplate , True, "utf8", sMailHost) If Not bSendMail Then sError = "An error occured while sending email" End If End If End If 'End If End If End If Else sError = "Some required fields are missing." End If End If Catch oException As Exception sError = "Erreur : " & oException.Message Dim sErrorByMail As String = MegalosTools.SendErrorByMail(sErrorTrackerEmail, sErrorTrackerEmail, oException, HttpContext.Current.Request, sErrorTrackerSmtp) Finally End Try %> L'Appartement d'Hôtes
L'Appartement d'Hôtes

<%If bSendMail Then%> Thank you. We will contact you soon.

<%Else%>
For availability and reservation of the Appartement d'Hôtes,
please complete this form.
<%=sError%>
Family name * : ">
First name * : ">
Address * : ">
Postcode/zip code * : ">
Town/city and country * : ">
E-mail address * : ">
Telephone number * : ">
Details of your request :
<%End If%>
Cliquez ici pour installer Adobe Flash Player


L'Appartement d'Hôtes

Charm & Prestige

Annecy... France... Alpes

Discover a new concept in luxury furnished rental that combines a luxury hotel suite and the incomparable charm of a private guesthouse.

You will appreciate the independence, privacy and discretion of a luxuriously appointed apartment with a refined, personal atmosphere.

Specially designed to meet the demands of a business clientele on mission in the area, ideal for those looking for somewhere more exclusive for a medium or long-term stay, and perfect for a couple on holiday with no children who would prefer to be based in the welcoming atmosphere of a private apartment when visiting the picturesque old town of Annecy.