<%@ 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 = "Merci de remplir tous les champs" Else If Not MegalosTools.isAnEmail(Request.Form("email")) Then sError = "Adresse e-mail non valide." 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 = "Numéro de téléphone non valide." '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 : FR
" 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 = "Erreur d'envoi de mail" End If End If End If 'End If End If End If Else sError = "Tous les champs n'ont pas 赩 renseign豮" 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%> Merci, nous vous contacterons rapidement.

<%Else%>
Pour connaître la disponibilité et pour réserver L'Appartement d'Hôtes,
Merci de bien vouloir remplir ce formulaire
<%=sError%>
Votre nom * : ">
Votre prénom * : ">
Votre adresse * : ">
Votre code-postal * : ">
Votre ville et pays * : ">
Votre adresse e-mail * : ">
Votre numéro de téléphone * : ">
Des précisions sur votre demande :
<%End If%>
Cliquez ici pour installer Adobe Flash Player


L'Appartement d'Hôtes

Charme & Prestige
à
Annecy

Accueil

L'appartement d'Hôte est fondé sur un nouveau concept de location meublé grand standing,
à mi-chemin entre la suite d'un hôtel de luxe, et le charme incomparable d'une maison d'hôtes...

Vous apprécierez, l'indépendance, l'intimité et la discrétion d'un appartement luxueusement équipé,
dans une ambiance raffiné et personnalisée

Spécialement conçu pour répondre aux exigences d'une clientèle d'affaires en mission dans la région,
ou pour toutes personnes recherchant un logement provisoire haut de gamme,
il convient parfaitement à un couple de vacanciers sans enfants,
préférant l'atmosphère conviviale d'un appartement privé,
pour découvrir Annecy et sa pittoresque vieille ville...