<% jmeno = Request.Form("jmeno") prijmeni = Request.Form("prijmeni") email = Request.Form("email") den_prijezd = Request.Form("den_prijezd") mesic_prijezd = Request.Form("mesic_prijezd") rok_prijezd = Request.Form("rok_prijezd") If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("akce") = "odeslat" Then strUziv = "Bonjour,"&vbCrLf &vbCrLf strUziv = strUziv &"nous vous remercions de votre réservation de logement. Votre demande a été passée au reglement."& vbCrLf& vbCrLf strUziv = strUziv &"Le personnel de l'hôtel vous souhaite une bonne journée."& vbCrLf& vbCrLf strBody = strBody &"Prénom: " & Request.Form("jmeno")& vbCrLf strBody = strBody &"Nom: " & Request.Form("prijmeni") &vbCrLf strBody = strBody &"E-mail: " & Request.Form("email") &vbCrLf strBody = strBody &"Téléphone: " & Request.Form("telefon") &vbCrLf strBody = strBody &"Société: " & Request.Form("spolecnost") &vbCrLf strBody = strBody &"Rue: " & Request.Form("ulice") &vbCrLf strBody = strBody &"Ville: " & Request.Form("mesto") &vbCrLf strBody = strBody &"Code postal: " & Request.Form("psc") &vbCrLf strBody = strBody &"Pays: " & Request.Form("zeme") &vbCrLf strBody = strBody &"Date d’arrivée: " & Request.Form("den_prijezd") &"." & Request.Form("mesic_prijezd") &"." & Request.Form("rok_prijezd") &vbCrLf strBody = strBody &"Date de départ: " & Request.Form("den_odjezd") &"." & Request.Form("mesic_odjezd") &"." & Request.Form("rok_odjezd") &vbCrLf strBody = strBody &"Adultes: " & Request.Form("dospelych") &vbCrLf strBody = strBody &"Enfants de moins de 2 ans: " & Request.Form("deti") &vbCrLf&vbCrLf strBody = strBody &"Chambre simple: " & Request.Form("1_1") &vbCrLf strBody = strBody &"Chambre simple non-fumeur: " & Request.Form("1_1n") &vbCrLf strBody = strBody &"Chambre double: " & Request.Form("1_2") &vbCrLf strBody = strBody &"Chambre double non-fumeur: " & Request.Form("1_2n") &vbCrLf strBody = strBody &"Virginie: " & Request.Form("virginie") &vbCrLf strBody = strBody &"Appartement: " & Request.Form("apartma") &vbCrLf strBody = strBody &"Lit supplémentaire: " & Request.Form("pristylka") &vbCrLf&vbCrLf strBody = strBody &"Demande supplémentaire: " &vbCrLf& Request.Form("poznamka") &vbCrLf Set objMsg = Server.CreateObject("CDONTS.NewMail") objMsg.MailFormat=0 objMsg.From = "formular@lafayette.cz" objMsg.To = "rezervace@lafayette.cz" 'objMsg.To = "debug@esmedia.cz;ps.copy@esmedia.cz" objMsg.Subject = "Réservation LAFAYETTE.CZ " &Now() objMsg.Body = strBody objMsg.Importance=1 objMsg.Send Set objMsg = Nothing If Request.Form("email") <> "" Then Set objMsg = Server.CreateObject("CDONTS.NewMail") objMsg.MailFormat=0 objMsg.From = "rezervace@lafayette.cz" objMsg.To = Request.Form("email") 'objMsg.To = "debug@esmedia.cz;ps.copy@esmedia.cz" objMsg.Subject = "Réservation LAFAYETTE.CZ " &Now() objMsg.Body = strUziv&strBody objMsg.Importance=1 objMsg.Send Set objMsg = Nothing End If xBody = xBody & "Bonjour,
nous vous remercions de votre réservation de logement. Votre demande a été passée au reglement.
Le personnel de l'hôtel vous souhaite une bonne journée.
" jmeno = "" prijmeni = "" email = "" den_prijezd = "den" mesic_prijezd = "mesic" rok_prijezd = "rok" End If End If %> Hotel Lafayette
















Les données avec étoile sont obligatoires.

Confirmation de votre commande dans les 24 heures sur votre e-mail. Ne pas oublier d’écrire l’adresse e-mail dans le questionnaire.

<%=xBody%>
Données personnelles:

PRÉNOM:*
NOM:*
SOCIÉTÉ:
RUE:
VILLE:
CODE POSTAL:
PAYS:
E-MAIL:*
TÉLÉPHONE:*

Dates de réservation et nombre de personnes:

Date d’arrivée:* "> / "> / ">
Date de départ:* / / ">
Adultes:*
Enfants de moins de 2 ans:

Nombre de chambres réservées:

Chambre simple: Chambre simple
non-fumeur:
Chambre double: Chambre double
non-fumeur:
Chambre double Virginie:
Appartement:
Lit supplémentaire:

Demande supplémentaire