<%@ 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 & "Surname "
end if
if v_foun <> "" then
m = m & "Telefon: " & v_foun & vbNewLine
else
chyba = chyba & "Phone "
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 & "Address, ZIP, City, State "
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 & "Date "
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 & "Type of payment "
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("
ERROR
Problem with mail subject.
")
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("
ERROR
Problem with sending your message. Sorry. Try it later.
")
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 reservation
<% if chyba <> "" then %>
Fill the mandatory fields:
<%= chyba %>
<% end if %>
<% if v_send <> "" and chyba = "" then %>
Thanks.
