<% 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 = "Dzień dobry,"&vbCrLf &vbCrLf strUziv = strUziv &"dziękujemy bardzo za rezerwację zakwaterowania. Państwa rezerwacja została zaakceptowana i przekazana dalej w celu jej dokonania."& vbCrLf& vbCrLf strUziv = strUziv &"Personel hotelu życzy Państwu miłego dnia!"& vbCrLf& vbCrLf strBody = strBody &"Imię: " & Request.Form("jmeno")& vbCrLf strBody = strBody &"Nazwisko: " & Request.Form("prijmeni") &vbCrLf strBody = strBody &"E-mail: " & Request.Form("email") &vbCrLf strBody = strBody &"Telefon: " & Request.Form("telefon") &vbCrLf strBody = strBody &"Organizacja/Firma: " & Request.Form("spolecnost") &vbCrLf strBody = strBody &"Ulica: " & Request.Form("ulice") &vbCrLf strBody = strBody &"Miasto: " & Request.Form("mesto") &vbCrLf strBody = strBody &"Kod pocztowy: " & Request.Form("psc") &vbCrLf strBody = strBody &"Kraj: " & Request.Form("zeme") &vbCrLf strBody = strBody &"Data przyjazdu: " & Request.Form("den_prijezd") &"." & Request.Form("mesic_prijezd") &"." & Request.Form("rok_prijezd") &vbCrLf strBody = strBody &"Data odjazdu: " & Request.Form("den_odjezd") &"." & Request.Form("mesic_odjezd") &"." & Request.Form("rok_odjezd") &vbCrLf strBody = strBody &"Dorosłych: " & Request.Form("dospelych") &vbCrLf strBody = strBody &"Dzieci do 2 lat: " & Request.Form("deti") &vbCrLf&vbCrLf strBody = strBody &"1/1 Pokój: " & Request.Form("1_1") &vbCrLf strBody = strBody &"1/1 Pokój dla niepalących: " & Request.Form("1_1n") &vbCrLf strBody = strBody &"1/2 Pokoju: " & Request.Form("1_2") &vbCrLf strBody = strBody &"1/2 Pokoju dla niepalących: " & Request.Form("1_2n") &vbCrLf strBody = strBody &"Virginie: " & Request.Form("virginie") &vbCrLf strBody = strBody &"Apartament: " & Request.Form("apartma") &vbCrLf strBody = strBody &"Dostawiane łóżko: " & Request.Form("pristylka") &vbCrLf&vbCrLf strBody = strBody &"Państwa dalsze życzenia: " &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.Subject = "Rezerwacja 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.Subject = "Rezerwacja LAFAYETTE.CZ " &Now() objMsg.Body = strUziv&strBody objMsg.Importance=1 objMsg.Send Set objMsg = Nothing End If xBody = xBody & "Dzień dobry,
dziękujemy bardzo za rezerwację zakwaterowania. Państwa rezerwacja została zaakceptowana i przekazana dalej w celu jej dokonania.
Personel hotelu życzy Państwu miłego dnia!" jmeno = "" prijmeni = "" email = "" den_prijezd = "den" mesic_prijezd = "mesic" rok_prijezd = "rok" End If End If %> Hotel Lafayette
















Dane oznaczone gwiazdką (*) są obowiązkowe.

Potwierdzenie Państwa zamówienia do 24 godzin na Państwa adres e-mail, którego prosimy nie zapomnieć podać w formularzu.

<%=xBody%>
DANE PODSTAWOWE:

Imię:*
Nazwisko:*
Organizacja/Firma:
Ulica:
Miasto:
Kod pocztowy:
Kraj:
E-mail:*
Telefon:*

TERMIN REZERWACJI I ILOŚĆ OSÓB ZAKWATEROWANYCH

Data przyjazdu:* "> / "> / ">
Data odjazdu:* / / ">
Dorosłych:*
Dzieci do 2 lat:

ILOŚĆ REZERWOWANYCH POKOJÓW?

1/1 Pokój: 1/1 Pokój
dla niepalących:
1/2 Pokoju: 1/2 Pokoju
dla niepalących:
1/2 pokoju Virginia:
Apartament:
Dostawiane łóżko:

PAŃSTWA DALSZE ŻYCZENIA