<%@ Language=VBScript %> <% v_send = Request.Form("send") if v_send <> "" then v_name = Request.Form("f_name") v_last_name = Request.Form("f_last_name") v_addr_mesto = Request.Form("f_addr_mesto") v_addr_psc = Request.Form("f_addr_psc") v_addr = Request.Form("f_addr") v_addr_stat = Request.Form("f_addr_stat") v_foun = Request.Form("f_foun") v_mail = Request.Form("f_mail") v_pocust = Request.Form("f_pocust") v_kontfount = Request.Form("f_kontfount") v_date_day = Request.Form("f_date_day") v_date_month = Request.Form("f_date_month") v_date_year = Request.Form("f_date_year") v_date2_day = Request.Form("f_date2_day") v_date2_month = Request.Form("f_date2_month") v_date2_year = Request.Form("f_date2_year") v_date3_day = Request.Form("f_date3_day") v_date3_month = Request.Form("f_date3_month") v_date3_year = Request.Form("f_date3_year") v_plat = Request.Form("f_plat") v_dotazy = Request.Form("f_dotazy") m = "Toto je E-mailova objednavka z citytour@segway-cz.com" & vbNewLine & vbNewLine chyba = "" if v_name <> "" then m = m & "Jméno: " & v_name & vbNewLine else chyba = chyba & "Name
" end if if v_last_name <> "" then m = m & "Pøíjmení: " & v_name & vbNewLine else chyba = chyba & "Familienname
" end if if v_foun <> "" then m = m & "Telefon: " & v_foun & vbNewLine else chyba = chyba & "Telefon
" end if if v_mail <> "" then m = m & "E-mail: " & v_mail & vbNewLine else chyba = chyba & "E-mail
" end if if v_addr <> "" and v_addr_psc <> "" and v_addr_mesto <> "" and v_addr_stat <> "" then m = m & "Adresa: " & v_addr & ", " & v_addr_psc & " " & v_addr_mesto & ", " & v_addr_stat & vbNewLine else chyba = chyba & "Anschrift, ZIP, Stadt, Land
" end if m = m & "Pocet ucastniku: " & v_pocust & vbNewLine if v_kontfount <> "" then m = m & "Kontaktni telefon v Praze: " & v_kontfount & vbNewLine end if if v_date_day = "1" and v_date_month = "1" and v_date_year = "2004" then chyba = chyba & "Datum
" else m = m & "Datum1: " & v_date_day & "." & v_date_month & "." & v_date_year & vbNewLine end if if v_date2_day <> "1" and v_date2_month <> "1" then m = m & "Datum2: " & v_date_day & "." & v_date_month & "." & v_date_year & vbNewLine end if if v_date3_day <> "1" and v_date3_month <> "1" then m = m & "Datum2: " & v_date_day & "." & v_date_month & "." & v_date_year & vbNewLine end if if v_plat <> "" then m = m & "Forma platby: " & v_plat & vbNewLine else chyba = chyba & "Zahlungsart
" end if if v_dotazy <> "" then m = m & "Dalsi pripominky: " & vbNewLine m = m & v_dotazy & vbNewLine end if if chyba = "" then Set objNewMail = CreateObject("CDONTS.NewMail") ' creating of the new mail object If Err <> 0 Then Response.Write("

FEHL


Es ist nicht gelsungen das Objekt MAIL zu schaffen.
") Response.End End If objNewMail.From="citytour@segway-cz.com" ' E-mail odesilatele objNewMail.To="citytour@segway-cz.com" ' E-mail prijemce objNewMail.Subject="Objednavka CITYTOUR" ' Subject objNewMail.BodyFormat = 1 ' Format tela dopisu (0 = HTML, 1 = text) objNewMail.MailFormat = 1 ' Forma mailu (0 = MIME, 1 = text) objNewMail.Importance = 1 ' (0 = low, 1 = normal, 2 = high) objNewMail.Body = m ' Text zpravy On Error Resume Next objNewMail.send ' Odeslani mailu If Err <> 0 Then Response.Write("

FEHL


Es ist nicht gelungen Ihre Frage abfertigen.
") Response.End End If Set objNewMail = Nothing v_name = "" v_last_name = "" v_addr = "" v_addr_psc = "" v_addr_mesto = "" v_addr_stat = "" v_foun = "" v_mail = "" v_pocust = "" v_kontfount = "" v_date_day = "" v_date_month = "" v_date_year = "" v_date2_day = "" v_date2_month = "" v_date2_year = "" v_date3_day = "" v_date3_month = "" v_date3_year = "" v_dotazy = "" v_plat = "" end if end if %> Segway Prague City Tour - Online reservierung

ON-LINE objednávka <% if chyba <> "" then %> Füllen Sie bitte die nachgefragte Angaben aus:
    <%= chyba %>
<% end if %> <% if v_send <> "" and chyba = "" then %> Danke.

Ihre Bestellung wurde mit Erfolg abgefertigt.

Wir werden Sie kontakten.

<% else %>
Name: *
Familienname: *
Anschrift: *
ZIP: *
Stadt: *
Land: *
Telefon: *
E-mail: *
Abonnentenzahl: *
Verbindung in Prag:
Datum: *
Alternative Datum:
Nächstes alternative Datum:
Zahlungsart: *
Ihre Fragen:
<% end if %>

Reservieren Sie Ihre Tour schon heute!