<% 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 = "Good morning."&vbCrLf &vbCrLf &"Thank you very much for the reservation of the accomodation. Your claim was forwarded to be executed."& vbCrLf strUziv = strUziv &"The hotel staff wishes you a very nice day."& vbCrLf& vbCrLf strBody = strBody &"First name: " & Request.Form("jmeno")& vbCrLf strBody = strBody &"Last name: " & Request.Form("prijmeni") &vbCrLf strBody = strBody &"E-mail: " & Request.Form("email") &vbCrLf strBody = strBody &"Phone: " & Request.Form("telefon") &vbCrLf strBody = strBody &"Company name: " & Request.Form("spolecnost") &vbCrLf strBody = strBody &"Street: " & Request.Form("ulice") &vbCrLf strBody = strBody &"City: " & Request.Form("mesto") &vbCrLf strBody = strBody &"Zip code: " & Request.Form("psc") &vbCrLf strBody = strBody &"Country: " & Request.Form("zeme") &vbCrLf strBody = strBody &"Arrival date: " & Request.Form("den_prijezd") &"." & Request.Form("mesic_prijezd") &"." & Request.Form("rok_prijezd") &vbCrLf strBody = strBody &"Departure date: " & Request.Form("den_odjezd") &"." & Request.Form("mesic_odjezd") &"." & Request.Form("rok_odjezd") &vbCrLf strBody = strBody &"Adults: " & Request.Form("dospelych") &vbCrLf strBody = strBody &"Children under 2: " & Request.Form("deti") &vbCrLf&vbCrLf strBody = strBody &"Single room: " & Request.Form("1_1") &vbCrLf strBody = strBody &"Single room non-smoking: " & Request.Form("1_1n") &vbCrLf strBody = strBody &"Double room: " & Request.Form("1_2") &vbCrLf strBody = strBody &"Double room non-smoking: " & Request.Form("1_2n") &vbCrLf strBody = strBody &"Virginie: " & Request.Form("virginie") &vbCrLf strBody = strBody &"Suite: " & Request.Form("apartma") &vbCrLf strBody = strBody &"Extra bed: " & Request.Form("pristylka") &vbCrLf&vbCrLf strBody = strBody &"Other wishes: " &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 = "Reservations 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 = "Reservations LAFAYETTE.CZ " &Now() objMsg.Body = strUziv&strBody objMsg.Importance=1 objMsg.Send Set objMsg = Nothing End If xBody = xBody & "Good morning.
Thank you very much for the reservation of the accomodation. Your claim was forwarded to be executed.
The hotel staff wishes you a very nice day.
" jmeno = "" prijmeni = "" email = "" den_prijezd = "den" mesic_prijezd = "mesic" rok_prijezd = "rok" End If End If %> Hotel Lafayette
















The lines marked with an asterisk are to be filled obligatorily.

You will receive the confirmation of your order by e-mail within 24 hours. Please do not forget to state your e-mail address.

<%=xBody%>
Basic information:

First name:*
Last name:*
Company name:
Street:
City:
Zip code:
Country:
E-mail:*
Phone:*

Date of reservation and the number of persons coming

Arrival date:* "> / "> / ">
Departure date:* / / ">
Adults:*
Children under 2:

How many rooms do you wish to reserve?

Single room: Single room
non-smoking:
Double room: Double room
non-smoking:
Double room Virginie:
Suite:
Extra bed:

Other wishes