<% @language=VBScript %> Морские путешествия на теплоходе по Черному морю - Автомобильно-пассажирский паром "Каледония" | Расписание и тарифы на линии Одесса - Стамбул - Одесса

|| Регулярные тарифы || Расписание ||


Тарифы на перевозку пассажиров следующих в одном рейсе*
- Тарифы на рейсы, отходом из Одессы с 22.03.10 по 13.09.10
- Тарифы на рейсы, отходом из Одессы с 20.09.10 по 25.09.10
- Тарифы на рейсы, отходом из Одессы с 27.09.10

<% tarrifs_sales = Trim(Request.QueryString("tarrifs_sales")) if tarrifs_sales = "" then tarrifs_sales = "1" end if if (Cint(tarrifs_sales) = "1" OR Cint(tarrifs_sales) = "3")then DateTime = Request.QueryString("date") if Cint(tarrifs_sales) = "1" then message = "TАРИФЫ на перевозку пассажиров,
следующих в одном рейсе,*
по маршруту ОДЕССА - СТАМБУЛ - ОДЕССА
на т/х ""Каледония"" на рейсы с 22.03.10 по 13.09.10 включительно
Долл. США / за 1 пассаж. место
" message1 = "TАРИФЫ на перевозку пассажиров,
следующих в одном рейсе,*
по маршруту ОДЕССА - СТАМБУЛ - ОДЕССА
на т/х ""Каледония"" на рейсы с 22.03.10 по 13.09.10 включительно
Укр. гривен / за 1 пассаж. место
" end if if Cint(tarrifs_sales) = "3" then message = "TАРИФЫ на перевозку пассажиров,
следующих в одном рейсе,*
по маршруту ОДЕССА - СТАМБУЛ - ОДЕССА
на т/х ""Каледония"" на рейсы с 27.09.10
Долл. США / за 1 пассаж. место
" message1 = "TАРИФЫ на перевозку пассажиров,
следующих в одном рейсе,*
по маршруту ОДЕССА - СТАМБУЛ - ОДЕССА
на т/х ""Каледония"" на рейсы с 27.09.10
Укр. гривен / за 1 пассаж. место
" end if 'объявляем переменные Dim conn Dim SQL,SQL1,SQL2 Dim i Dim RS, RS1, RS2 Int price1 'создаем коннект к базе данных 'Set conn = Server.CreateObject("ADODB.Connection") Set conn = Server.CreateObject("ADODB.Connection") conn.Mode = adModeRead conn.CursorLocation = adUseClient 'подключаемся через ODBC conn.ConnectionString = "DSN=Booking2;UID=ypl;PWD=tfcokm;" conn.Open Set RS = Server.CreateObject("ADODB.RecordSet") Set RS1 = Server.CreateObject("ADODB.RecordSet") Set RS2 = Server.CreateObject("ADODB.RecordSet") 'определение и преобразование текущей даты if DateTime = "" then DateTime=date() 'DateTime = "2006-07-03" 'DateTime=date() 'DateTime = "2007-04-24" ' 'Response.Write DateTime 'date() Dim strYYYY Dim strMM Dim strDD strYYYY = CStr(DatePart("yyyy", DateTime)) strMM = CStr(DatePart("m", DateTime)) If Len(strMM) = 1 Then strMM = "0" & strMM strDD = CStr(DatePart("d", DateTime)) If Len(strDD) = 1 Then strDD = "0" & strDD strDateTime = strYYYY & "-" & strMM & "-" & strDD 'SQL2 = "SELECT cab_start_date FROM DBA.cabin_price WHERE ship_id = '8' and cab_start_date <= '" & strDateTime & "' and cab_end_date > '" & strDateTime & "' and country_group = '0' and pass_type = '0' Group by cab_start_date" 'Response.Write SQL2 SQL2 = "select cab_start_date FROM DBA.cabin_price WHERE ship_id = '7' and cab_start_date >= (SELECT max(cab_start_date) FROM DBA.cabin_price WHERE ship_id = '7' and cab_start_date <= '"& strDateTime &"' and cab_end_date > '"& strDateTime &"' ) Group by cab_start_date" Set RS2 = Server.CreateObject("ADODB.RecordSet") RS2.Open SQL2, conn, adOpenForwardOnly, adLockReadOnly, adCmdText do while not(RS2.EOF) strYYYY = CStr(DatePart("yyyy", RS2("cab_start_date"))) strMM = CStr(DatePart("m", RS2("cab_start_date"))) If Len(strMM) = 1 Then strMM = "0" & strMM strDD = CStr(DatePart("d", RS2("cab_start_date"))) If Len(strDD) = 1 Then strDD = "0" & strDD cab_start_date = strYYYY & "-" & strMM & "-" & strDD if (CStr(strDateTime)) > (CStr(cab_start_date)) Then else end if RS2.MoveNext Loop SQL = "SELECT cab_id, cab_price FROM DBA.cabin_price WHERE route_type='О' and ship_id = '7' and cab_start_date <= '"& strDateTime &"' and cab_end_date > '"& strDateTime &"' and cab_curr='UAH' and country_group = '0' and pass_type = '0'" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open SQL, conn, adOpenForwardOnly, adLockReadOnly, adCmdText SQL1 = "SELECT cab_id, cab_price FROM DBA.cabin_price WHERE route_type='ОП' and ship_id = '7' and cab_start_date <= '"& strDateTime &"' and cab_end_date > '"& strDateTime &"' and cab_curr='UAH' and country_group = '0' and pass_type = '0'" Set RS1 = Server.CreateObject("ADODB.RecordSet") RS1.Open SQL1, conn, adOpenForwardOnly, adLockReadOnly, adCmdText do while not(RS.EOF) if Cstr(RS("cab_id"))="A2" then A2_1 = RS("cab_price") if Cstr(RS("cab_id"))="B" then B_1 = RS("cab_price") if Cstr(RS("cab_id"))="B1" then B1_1 = RS("cab_price") if Cstr(RS("cab_id"))="C" then C_1 = RS("cab_price") if Cstr(RS("cab_id"))="C1" then C1_1 = RS("cab_price") if Cstr(RS("cab_id"))="D" then D_1 = RS("cab_price") if Cstr(RS("cab_id"))="E" then E_1 = RS("cab_price") if Cstr(RS("cab_id"))="F" then F_1 = RS("cab_price") if Cstr(RS("cab_id"))="cat" then cat_1 = RS("cab_price") if Cstr(RS("cab_id"))="dog" then dog_1 = RS("cab_price") RS.MoveNext loop do while not(RS1.EOF) if Cstr(RS1("cab_id"))="A2" then A2_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="B" then B_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="B1" then B1_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="C" then C_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="C1" then C1_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="D" then D_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="E" then E_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="F" then F_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="cat" then cat_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="dog" then dog_2 = RS1("cab_price") RS1.MoveNext loop %>
<%=message1%>

тип каютыкол.
кают
катег. размещ.Направление
Од-Ст, Ст-Од Од-Ст-Од, Ст-Од-Ст
Каюта "Люкс": спальня + кабинет. Светлая, с раздельными душем и туалетом, имеется двуспальная кровать в спальне и двуспальная диван-кровать в кабинете, всего до 4-х спальных мест
1


A2


<%=A2_1 %>


<%=A2_2 %>
Примечание: А1 - одноместный вариант размещения в каюте;
А2 - двухместный вариант размещения в каюте, стоимость каждого билета
2-местная каюта 1-го класса
(светлая, с умывальником, душем и туалетом)
20
B
<%=B_1 %>
<%=B_2 %>
Примечание: По желанию пассажиров, приобретающих билеты в данную каюту, каюта может использоваться как 3-х местная путем установки доп. складной койки.
Проезд в каюте категории В в 3-х местном варианте на складной койке
20
B1
<%=B1_1 %>
<%=B1_2 %>
2-местная каюта 2-го класса
(светлая, без душа и туалета)
1
C
<%=C_1 %>
<%=C_2 %>
4-местная каюта
(без иллюминатора, с душем и туалетом)
1
C1
<%=C1_1 %>
2600
4-местная каюта 2-го класса
(светлая, без душа и туалета)
18
D
<%=D_1 %>
<%=D_2 %>
4-местная каюта 2-го класса
(без иллюминатора, душа и туалета)
10
E
<%=E_1 %>
<%=E_2 %>
Домашние животные:
           - собака
           - кошка
<%=dog_1 %>
<%=cat_1 %>
<%=dog_2 %>
<%=cat_2 %>
<% SQL = "SELECT cab_id, cab_price FROM DBA.cabin_price WHERE route_type='О' and ship_id = '7' and cab_start_date <= '"& strDateTime &"' and cab_end_date > '"& strDateTime &"' and cab_curr='USD' and country_group = '0' and pass_type = '0'" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open SQL, conn, adOpenForwardOnly, adLockReadOnly, adCmdText SQL1 = "SELECT cab_id, cab_price FROM DBA.cabin_price WHERE route_type='ОП' and ship_id = '7' and cab_start_date <= '"& strDateTime &"' and cab_end_date > '"& strDateTime &"' and cab_curr='USD' and country_group = '0' and pass_type = '0'" Set RS1 = Server.CreateObject("ADODB.RecordSet") RS1.Open SQL1, conn, adOpenForwardOnly, adLockReadOnly, adCmdText do while not(RS.EOF) ' if Cstr(RS("cab_id"))="A1" then A1_1 = RS("cab_price") if Cstr(RS("cab_id"))="A2" then A2_1 = RS("cab_price") ' if Cstr(RS("cab_id"))="A3" then A3_1 = RS("cab_price") ' if Cstr(RS("cab_id"))="A4" then A4_1 = RS("cab_price") if Cstr(RS("cab_id"))="B" then B_1 = RS("cab_price") if Cstr(RS("cab_id"))="B1" then B1_1 = RS("cab_price") if Cstr(RS("cab_id"))="C" then C_1 = RS("cab_price") if Cstr(RS("cab_id"))="C1" then C1_1 = RS("cab_price") if Cstr(RS("cab_id"))="D" then D_1 = RS("cab_price") if Cstr(RS("cab_id"))="E" then E_1 = RS("cab_price") if Cstr(RS("cab_id"))="F" then F_1 = RS("cab_price") if Cstr(RS("cab_id"))="cat" then cat_1 = RS("cab_price") if Cstr(RS("cab_id"))="dog" then dog_1 = RS("cab_price") RS.MoveNext loop do while not(RS1.EOF) ' if Cstr(RS1("cab_id"))="A1" then A1_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="A2" then A2_2 = RS1("cab_price") ' if Cstr(RS1("cab_id"))="A3" then A3_2 = RS1("cab_price") ' if Cstr(RS1("cab_id"))="A4" then A4_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="B" then B_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="B1" then B1_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="C" then C_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="C1" then C1_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="D" then D_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="E" then E_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="F" then F_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="cat" then cat_2 = RS1("cab_price") if Cstr(RS1("cab_id"))="dog" then dog_2 = RS1("cab_price") RS1.MoveNext loop %>

<%=message1%>

тип каютыкол.
кают
катег. размещ.Направление
Од-Ст, Ст-Од Од-Ст-Од, Ст-Од-Ст
Каюта "Люкс": спальня + кабинет. Светлая, с раздельными душем и туалетом, имеется двуспальная кровать в спальне и двуспальная диван-кровать в кабинете, всего до 4-х спальных мест
1


A2


<%=A2_1 %>


<%=A2_2 %>
Примечание: А1 - одноместный вариант размещения в каюте;
А2 - двухместный вариант размещения в каюте, стоимость каждого билета
2-местная каюта 1-го класса
(светлая, с умывальником, душем и туалетом)
20
B
<%=B_1 %>
<%=B_2 %>
Примечание: По желанию пассажиров, приобретающих билеты в данную каюту, каюта может использоваться как 3-х местная путем установки доп. складной койки.
Проезд в каюте категории В в 3-х местном варианте на складной койке
20
B1
<%=B1_1 %>
<%=B1_2 %>
2-местная каюта 2-го класса
(светлая, без душа и туалета)
1
C
<%=C_1 %>
<%=C_2 %>
4-местная каюта
(без иллюминатора, с душем и туалетом)
1
C1
<%=C1_1 %>
<%=C1_2 %>
4-местная каюта 2-го класса
(светлая, без душа и туалета)
18
D
<%=D_1 %>
<%=D_2 %>
4-местная каюта 2-го класса
(без иллюминатора, душа и туалета)
10
E
150
260
Домашние животные:
           - собака
           - кошка
<%=dog_1 %>
<%=cat_1 %>
<%=dog_2 %>
<%=cat_2 %>
<% 'закрываем Recordset RS.Close Set RS = Nothing 'закрытие коннекта Conn.Close Set Conn = Nothing end if if Cint(tarrifs_sales) = "2" then message = "TАРИФЫ на перевозку пассажиров,
следующих в одном рейсе,*
по маршруту ОДЕССА - СТАМБУЛ - ОДЕССА
на т/х ""Каледония"" на рейсы с 20.09.10 по 25.09.10 включительно
Долл. США / за 1 пассаж. место
" A2_1 = "400" A2_2 = "630" B_1 = "250" B_2 = "410" B1_1 = "190" B1_2 = "330" C_1 = "190" C_2 = "330" C1_1 = "190" C1_2 = "330" D_1 = "155" D_2 = "290" E_1 = "150" E_2 = "280" dog_1 = "40" dog_2 = "80" cat_1 = "20" cat_2 = "40" %>
<%=message%>

тип каютыкол.
кают
катег. размещ.Направление
Од-Ст, Ст-Од Од-Ст-Од, Ст-Од-Ст
Каюта "Люкс": спальня + кабинет. Светлая, с раздельными душем и туалетом, имеется двуспальная кровать в спальне и двуспальная диван-кровать в кабинете, всего до 4-х спальных мест
1


A2


<%=A2_1 %>


<%=A2_2 %>
Примечание: А1 - одноместный вариант размещения в каюте;
А2 - двухместный вариант размещения в каюте, стоимость каждого билета
2-местная каюта 1-го класса
(светлая, с умывальником, душем и туалетом)
20
B
<%=B_1 %>
<%=B_2 %>
Примечание: По желанию пассажиров, приобретающих билеты в данную каюту, каюта может использоваться как 3-х местная путем установки доп. складной койки.
Проезд в каюте категории В в 3-х местном варианте на складной койке
20
B1
<%=B1_1 %>
<%=B1_2 %>
2-местная каюта 2-го класса
(светлая, без душа и туалета)
1
C
<%=C_1 %>
<%=C_2 %>
4-местная каюта
(без иллюминатора, с душем и туалетом)
1
C1
<%=C1_1 %>
<%=C1_2 %>
4-местная каюта 2-го класса
(светлая, без душа и туалета)
18
D
<%=D_1 %>
<%=D_2 %>
4-местная каюта 2-го класса
(без иллюминатора, душа и туалета)
10
E
<%=E_1 %>
<%=E_2 %>
Домашние животные:
           - собака
           - кошка
<%=dog_1 %>
<%=cat_1 %>
<%=dog_2 %>
<%=cat_2 %>
<% end if %>

* Примечание:
Тарифы применяются при проезде пассажиров по маршруту Одесса-Стамбул, Стамбул-Одесса, а также по маршруту Одесса-Стамбул-Одесса, Стамбул-Одесса-Стамбул в случае, если дата выезда и возвращения судна находятся на разных календарных неделях.


Примечания:

1. Условия применения тарифов на проезд пассажиров:
1.1. Скидки на детей:
до 12 лет - предоставляется скидка (просьба уточнять при бронировании).
Внимание. С 5 лет предоставление ребенку отдельного места в каюте - обязательно
1.2. В стоимость проезда включается 3-х разовое питание в судовом ресторане.
1.3. В стоимость проезда входит обязательное страхование пассажира от несчастного случая на транспорте во время морской перевозки согласно постановлению КМУ N 959 от 14 августа 1996 г. на сумму 51 тыс грн.
1.4. При оплате проезда в одну сторону (по маршруту Одесса-Стамбул или Стамбул-Одесса) пассажир обязан покинуть борт судна в течение 1 часа после прихода судна в порт. При оплате проезда по маршруту Одесса-Стамбул-Одесса в одном круговом рейсе стоимость билета включает проживание и 3-х разовое питание на судне в течение всего рейса.

2. Условия возврата билета:
При возврате билета не позднее, чем за 5 суток до отхода судна от порта посадки, возвращается 100% стоимости билета.
При возврате билета не позднее, чем за 72 часа до отхода судна от порта посадки, возвращается 75% стоимости билета.
При возврате билета не позднее, чем за 24 часа до отхода судна от порта посадки, возвращается 50% стоимости билета.
При возврате билета менее, чем за 24 часа до отхода судна от порта посадки, возвращается 25% стоимости билета.
После отхода судна из порта посадки стоимость билета не возвращается

3. Перевозка багажа и ручной клади:
Каждый пассажир, занимающий отдельное место, имеет право на бесплатный провоз 50 кг либо 0.25 куб.м. каютного багажа (ручной клади). За провоз багажа (ручной клади) свыше установленной нормы взимается плата согласно тарифов на перевозку грузов.

SELECT LANGUAGE

english
english
russian
russian