|| || ||
Тарифы на перевозку пассажиров следующих в одном рейсе*
- Тарифы на рейсы, отходом из Одессы с 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 куб.м. каютного багажа (ручной клади).
За провоз багажа (ручной клади) свыше установленной нормы взимается плата согласно тарифов на перевозку грузов.
|