<% 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 = "Guten Tag,"&vbCrLf &vbCrLf strUziv = strUziv &"vielen Dank für Ihre Unterkunftsreservation. Ihre Forderung wurde zur Erledigung weitergeleitet."& vbCrLf& vbCrLf strUziv = strUziv &"Das Hotelpersonal wünscht Ihnen einen schönen Tag."& vbCrLf& vbCrLf strBody = strBody &"Vorname: " & Request.Form("jmeno")& vbCrLf strBody = strBody &"Nachname: " & Request.Form("prijmeni") &vbCrLf strBody = strBody &"E-mail: " & Request.Form("email") &vbCrLf strBody = strBody &"Telephon: " & Request.Form("telefon") &vbCrLf strBody = strBody &"Firma: " & Request.Form("spolecnost") &vbCrLf strBody = strBody &"Strasse: " & Request.Form("ulice") &vbCrLf strBody = strBody &"Stadt: " & Request.Form("mesto") &vbCrLf strBody = strBody &"Postleitzahl: " & Request.Form("psc") &vbCrLf strBody = strBody &"Land: " & Request.Form("zeme") &vbCrLf strBody = strBody &"Datum der Ankunft: " & Request.Form("den_prijezd") &"." & Request.Form("mesic_prijezd") &"." & Request.Form("rok_prijezd") &vbCrLf strBody = strBody &"Datum der Abfahrt: " & Request.Form("den_odjezd") &"." & Request.Form("mesic_odjezd") &"." & Request.Form("rok_odjezd") &vbCrLf strBody = strBody &"Erwachsene: " & Request.Form("dospelych") &vbCrLf strBody = strBody &"Kinder bis 2 Jahre: " & Request.Form("deti") &vbCrLf&vbCrLf strBody = strBody &"1/1 Zimmer: " & Request.Form("1_1") &vbCrLf strBody = strBody &"1/1 Nichtraucherzimmer: " & Request.Form("1_1n") &vbCrLf strBody = strBody &"1/2 Zimmer: " & Request.Form("1_2") &vbCrLf strBody = strBody &"1/2 Nichtraucherzimmer: " & Request.Form("1_2n") &vbCrLf strBody = strBody &"Virginie: " & Request.Form("virginie") &vbCrLf strBody = strBody &"Appartement: " & Request.Form("apartma") &vbCrLf strBody = strBody &"Zubettung: " & Request.Form("pristylka") &vbCrLf&vbCrLf strBody = strBody &"Ihre weiteren Wünsche: " &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 = "Rezervace 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 = "Rezervace LAFAYETTE.CZ " &Now() objMsg.Body = strUziv&strBody objMsg.Importance=1 objMsg.Send Set objMsg = Nothing End If xBody = xBody & "Guten Tag,
vielen Dank für Ihre Unterkunftsres ervation. Ihre Forderung wurde zur Erledigung weitergeleitet.
Das Hotelpersonal wünscht Ihnen einen schönen Tag.
" jmeno = "" prijmeni = "" email = "" den_prijezd = "den" mesic_prijezd = "mesic" rok_prijezd = "rok" End If End If %> Hotel Lafayette
















Mit einem Stern (*) gekennzeichnete Felder müssen ausgefüllt werden.

Erwarten Sie die Bestätigung Ihrer Bestellung innerhalb von 24 Stunden auf Ihrer e-mail Adresse, die Sie bitte nicht vergessen sollten anzuführen.

<%=xBody%>
Angaben zur Person:

Vorname:*
Nachname:*
Firma:
Strasse:
Stadt:
Postleitzahl:
Land:
e-mail:*
Telephon:*

Termin der Reservation und Anzahl der Personen

 Datum der Ankunft:* "> / "> / ">
Datum der Abfahrt:* / / ">
Erwachsene:*
Kinder bis 2 Jahre:

Anzahl der reservierten Zimmer

1/1 Zimmer: 1/1
Nichtraucherzimmer:
1/2 Zimmer: 1/2
Nichtraucherzimmer:
1/2 Zimmer Virginie:
Appartement:
Zubettung:

Ihre weiteren Wünsche