Le Meridien Dahab Hotel 4l

Le Meridien Dahab is a brand new hotel offering the ultimate in luxury and comfort topped off with a state-of-the-art spa and relaxing infinity pool. Set in Dahab in southern Sinai boasting the most beautiful beaches this area is renowned for windsurfing, diving and snorkelling. A stay at Le Meridien Dahab will provide all you need for a totally tranquil and stress-free break and is world renowned for attention to detail and dedication to exemplary customer service. <% If IsAvailable = "N" Then %>

Holidays to Le Meridien Dahab Hotel 4l are not currently available to book online, to check the latest availability, or for alternative holidays to Dahab, please call <%=PhoneNo%>.

<% Else %> <% If (Request.ServerVariables("QUERY_STRING") <> "") Or (Request.ServerVariables("REQUEST_METHOD") = "POST") Then %> <% RowLimit = 10 SQL = "SELECT MIN(CAST(Adult_Price AS UNSIGNED)) AS Price, Booking_URL AS URL, Accom_Code AS Tour_Code, Hotel_Name, Country AS Holiday_Country, Resort AS Holiday_Resort, Star_Rating, Board, OB_Depdate AS Depart_Date, Duration, OB_Departure_Airport AS Depart_Airport_Code, Prio " _ & "FROM Libra_Lates.AVLABL " _ & "INNER JOIN Libra_Lates.Airport_Prio " _ & "ON Libra_Lates.AVLABL.OB_Departure_Airport = Libra_Lates.Airport_Prio.Airport_Code " _ & "WHERE (Accom_Code = '11295') " _ & " AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & DatePart("yyyy", DateAdd("d", 1, Now())) & "-" & Right("00" & DatePart("m", DateAdd("d", -7, Now())), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", -7, Now())), 2) & "' AS DATETIME)) " If Request.Form("Depart_Date") <> "" Then SQL = SQL & " AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & DatePart("yyyy", DateAdd("d", -7, CDate(Request.Form("Depart_Date")))) & "-" & Right("00" & DatePart("m", DateAdd("d", -7, CDate(Request.Form("Depart_Date")))), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", -7, CDate(Request.Form("Depart_Date")))), 2) & "' AS DATETIME)) " _ & " AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) < CAST('" & DatePart("yyyy", DateAdd("d", 7, CDate(Request.Form("Depart_Date")))) & "-" & Right("00" & DatePart("m", DateAdd("d", 7, CDate(Request.Form("Depart_Date")))), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", 7, CDate(Request.Form("Depart_Date")))), 2) & "' AS DATETIME)) " ElseIf (Request.QueryString("Depart_Month") <> "") And (Request.QueryString("Depart_Year") <> "") Then SQL = SQL & " AND (SUBSTRING(OB_Depdate, 7, 4) = '" & SafeSQL(Request.QueryString("Depart_Year")) & "') AND (SUBSTRING(OB_Depdate, 4, 2) = '" & SafeSQL(Right("00" & Request.QueryString("Depart_Month"), 2)) & "') " Else If DisplaySeason = "Summer" Then SQL = SQL & "AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & Season2 & "' AS DATETIME)) " Else ' If (Request.QueryString("Season") = "Winter") Or (Session("CurrentSeason") = "Winter") Then SQL = SQL & "AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) < CAST('" & Season2 & "' AS DATETIME)) " End If End If If Request.Form("Depart_Airport_Code") <> "" Then SQL = SQL & " AND (OB_Departure_Airport = '" & SafeSQL(Request.Form("Depart_Airport_Code")) & "') " ElseIf Request.QueryString("Depart_Airport_Code") <> "" Then SQL = SQL & " AND (OB_Departure_Airport = '" & SafeSQL(Request.QueryString("Depart_Airport_Code")) & "') " RowLimit = 999 End If If Request.Form("Board") <> "" Then SQL = SQL & " AND (Board = '" & SafeSQL(Request.Form("Board")) & "') " If Request.Form("Duration") <> "" Then SQL = SQL & " AND (Duration = '" & SafeSQL(Request.Form("Duration")) & "') " SQL = SQL & "GROUP BY OB_Depdate, Duration, OB_Departure_Airport " _ & "ORDER BY Prio, (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME)), (CAST(Adult_Price AS UNSIGNED))" Set RS = Conn.Execute(SQL) If RS.EOF Then %> <% Else %> <% i = 0 Do While Not RS.EOF ThisAirport = Trim(RS("Depart_Airport_Code")) ThisMonth = DatePart("m", CDate(RS("Depart_Date"))) ThisURL = Trim(RS("URL")) ThisURL = Replace(ThisURL, "holidays1.asp", "packages1.asp") ThisURL = Replace(ThisURL, "&NoAdults=", "&NumRooms=1&NoAdults_1=") ThisURL = Replace(ThisURL, "&NoChildren=", "&NoChildren_1=") ThisURL = Replace(ThisURL, "&NoInfants=", "&NoInfants_1=") ThisURL = Replace(ThisURL, "&Resort=&", "&Resort=EDA&") ThisURL = Replace(ThisURL, "&", "&") %> <% If StrComp(ThisAirport, LastAirport, vbTextCompare) <> 0 Then %> <% i = 0 %> <% End If %> <% If (StrComp(ThisMonth, LastMonth, vbTextCompare) <> 0) And (Request.QueryString("Depart_Airport_Code") <> "") Then %> <% End If %> <% If i < RowLimit Then %> > <% End If %> <% If i = RowLimit Then %> "> <% End If %> <% LastAirport = ThisAirport LastMonth = ThisMonth i = i + 1 RS.MoveNext Loop End If Set RS = Nothing %>

Choose your holiday to Le Meridien Dahab Hotel 4l Departure date <% ThisSelected = "" SQL = "SELECT DISTINCT OB_Depdate AS Depart_Date " _ & "FROM Libra_Lates.AVLABL " _ & "WHERE (Accom_Code = '11295') " _ & " AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & DatePart("yyyy", DateAdd("d", 1, Now())) & "-" & Right("00" & DatePart("m", DateAdd("d", -7, Now())), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", -7, Now())), 2) & "' AS DATETIME)) " If (Request.QueryString("Depart_Month") <> "") And (Request.QueryString("Depart_Year") <> "") Then Else If DisplaySeason = "Summer" Then SQL = SQL & "AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & Season2 & "' AS DATETIME)) " Else ' If (Request.QueryString("Season") = "Winter") Or (Session("CurrentSeason") = "Winter") Then SQL = SQL & "AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) < CAST('" & Season2 & "' AS DATETIME)) " End If End If If Request("Depart_Airport_Code") <> "" Then SQL = SQL & " AND (OB_Departure_Airport = '" & SafeSQL(Request("Depart_Airport_Code")) & "') " SQL = SQL & "ORDER BY (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME))" Set RS = Conn.Execute(SQL) If Not RS.EOF Then Do While Not RS.EOF ThisDate = Trim(RS(0)) ThisSelected = "" If Request.Form("Depart_Date") = ThisDate Then ThisSelected = " selected" Searchform_StartDate = ThisDate End If If (Request.QueryString("Depart_Month") <> "") And (IsNumeric(Request.QueryString("Depart_Month"))) Then If (DatePart("m", CDate(ThisDate)) = CDbl(Request.QueryString("Depart_Month"))) And (DatePart("m", CDate(ThisDate)) > DatePart("m", CDate(LastDate))) Then ThisSelected = " selected" Searchform_StartDate = ThisDate End If End If %> ><%=FormatDate(ThisDate, "Y")%> <% LastDate = ThisDate RS.MoveNext Loop End If Set RS = Nothing %> Departure airport <% SQL = "SELECT DISTINCT OB_Departure_Airport AS Depart_Airport_Code " _ & "FROM Libra_Lates.AVLABL " _ & " INNER JOIN Libra_Lates.Airport_Prio " _ & " ON Libra_Lates.AVLABL.OB_Departure_Airport = Libra_Lates.Airport_Prio.Airport_Code " _ & "WHERE (Accom_Code = '11295') " _ & " AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & DatePart("yyyy", DateAdd("d", 1, Now())) & "-" & Right("00" & DatePart("m", DateAdd("d", -7, Now())), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", -7, Now())), 2) & "' AS DATETIME)) " If (Request.QueryString("Depart_Month") <> "") And (Request.QueryString("Depart_Year") <> "") Then Else If DisplaySeason = "Summer" Then SQL = SQL & "AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & Season2 & "' AS DATETIME)) " Else ' If (Request.QueryString("Season") = "Winter") Or (Session("CurrentSeason") = "Winter") Then SQL = SQL & "AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) < CAST('" & Season2 & "' AS DATETIME)) " End If End If SQL = SQL & "ORDER BY Prio" Set RS = Conn.Execute(SQL) If Not RS.EOF Then ReDim Airports(99) i = 0 Do While Not RS.EOF Airports(i) = Trim(RS(0)) ThisSelected = "" If Request("Depart_Airport_Code") = Airports(i) Then ThisSelected = " selected" %> ><%=AirportName(Airports(i))%> <% i = i + 1 RS.MoveNext Loop End If Set RS = Nothing %>
please call <%=PhoneNo%> for special offers to Le Meridien Dahab Hotel 4l
Departures from <% For i = 0 To UBound(Airports) %> <% If Trim(Airports(i) & " ") <> "" Then %> • <%=AirportName(Airports(i))%>   <% End If %> <% Next %>
Departures from <%=AirportName(Trim(RS("Depart_Airport_Code")))%>
<%=MonthName(ThisMonth)%>
" class="Text"><%=FormatDate(RS("Depart_Date"), "Y")%>	<%=StarRatingImage(RS("Star_Rating"))%>	<%=BoardBasis(RS("Board"))%>	<%=Trim(RS("Duration"))%> nights	" class="Text">fr £ <%=FormatNumber((CDbl(RS("Price")) / 100), 0)%>
" class="Headline" onClick="document.getElementById('More_<%=Trim(RS("Depart_Airport_Code"))%>').style.display='block';document.getElementById('MoreLink_<%=Trim(RS("Depart_Airport_Code"))%>').style.display='none';">Show more holidays from <%=AirportName(Trim(RS("Depart_Airport_Code")))%>

<% Else %> <% SQL = "SELECT DISTINCT SUBSTRING(OB_Depdate, 4, 2) AS Month " _ & "FROM Libra_Lates.AVLABL " _ & "WHERE (Country NOT LIKE 'holiday country') AND (Accom_Code = '11295') " _ & "GROUP BY SUBSTRING(OB_Depdate, 4, 2) " _ & "ORDER BY CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), SUBSTRING(OB_Depdate, 4, 2)) AS UNSIGNED)" Set RS = Conn.Execute(SQL) If Not RS.EOF Then %>

To find your holiday to Le Meridien Dahab Hotel 4l, click on price below or use the search box on the right of the page.

<% Months = RS.GetRows() ReDim Cols(UBound(Months, 2)) SQL = "SELECT MIN(CAST(Adult_Price AS UNSIGNED)) AS Price, Country, Area, Resort, SUBSTRING(OB_Depdate, 4, 2) AS Month, SUBSTRING(OB_Depdate, 7, 4) AS Year, Airport_Prio.Airport_Code " _ & "FROM Libra_Lates.AVLABL " _ & "INNER JOIN Libra_Lates.Board_Prio ON Libra_Lates.AVLABL.Board = Libra_Lates.Board_Prio.Board_Code " _ & "INNER JOIN Libra_Lates.Airport_Prio ON Libra_Lates.AVLABL.OB_Departure_Airport = Libra_Lates.Airport_Prio.Airport_Code " _ & "WHERE (Country NOT LIKE 'holiday country') AND " _ & "(CAST(CONCAT('20', SUBSTRING(OB_Depdate, 7, 2), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME)) > (CAST('" & DatePart("yyyy", DateAdd("d", 1, Now())) & "-" & Right("00" & DatePart("m", DateAdd("d", 1, Now())), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", 1, Now())), 2) & "' AS DATETIME)) AND " _ & "(Board_Prio.Prio > 1) AND (Board_Prio.Prio < 7) AND (Accom_Code = '11295') " _ & "GROUP BY Airport_Prio.Airport_Code, SUBSTRING(OB_Depdate, 4, 2) " _ & "ORDER BY Airport_Prio.Prio, CAST(CONCAT('20', SUBSTRING(OB_Depdate, 7, 4), SUBSTRING(OB_Depdate, 4, 2)) AS UNSIGNED), MIN(CAST(Adult_Price AS UNSIGNED))" Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorLocation = 3 ' adUseClient RS.Open SQL, Conn i = 0 j = 0 x = 0 If RS.EOF Then %> <% Else %> <% For k = 0 To UBound(Months, 2) %> <% Next %> <% Do While Not RS.EOF ThisAirport = Trim(RS("Airport_Code")) If StrComp(ThisAirport, LastAirport, vbTextCompare) <> 0 Then i = 0 j = 0 x = x + 1 End If RS.MoveNext If Not RS.EOF Then NextAirport = Trim(RS("Airport_Code")) Else NextAirport = "" End If RS.MovePrevious 'CurCol = j CurCol = CDbl(RS("Month")) - Month(Now()) : If CurCol < 0 Then CurCol = CurCol + 11 Cols(CurCol) = RS("Month") & ":" & RS("Year") & ":" & Trim(RS("Price")) If StrComp(ThisAirport, NextAirport, vbTextCompare) <> 0 Then %> > <% For k = 0 To UBound(Cols) %> <% If Trim(Cols(k) & " ") <> "" Then TempArr = Split(Cols(k), ":", -1, 1) %> <% Else %> <% End If %> <% Next %> <% ReDim Cols(UBound(Months, 2)) %> <% i = i + 1 %> <% End If %> <% LastAirport = ThisAirport j = j + 1 RS.MoveNext Loop End If Set RS = Nothing %>

please call <%=PhoneNo%> for our latest holiday deals.
	<%=MonthName(CDbl(Months(0, k)), True)%>
<%=AirportName(ThisAirport)%>	from <%=AirportName(ThisAirport)%>">£<%=FormatNumber((CDbl(TempArr(2)) / 100), 0)%>	---

<% End If %> <% End If %> <% End If %>

Location
Located halfway between Sharm el Sheikh in the south and Nuweiba in the north, Dahab is one of the most attractive beach resorts in South Sinai, famed for its fine golden sands and swaying palms.

Facilities
ˇ 24hr Reception ˇ 5 Swimming pools (1 Heated in winter & 1 Infinity pool) ˇ Manmade Lagoon ˇ Jacuzzi* ˇ 2 Tennis Courts* ˇ Billiards ˇ Basketball Court ˇ Beach Volleyball ˇ Beach Soccer ˇ Table Tennis ˇ Gym* ˇ Aqua Aerobics ˇ Sauna* ˇ Steam* ˇ Massage* ˇ Beauty Treatments* ˇ Currency Exchange ˇ Laundry/Dry Cleaning* ˇ ShoppingArcade ˇ Boutiques ˇ Café Omar serving Baked Goods/Desserts ˇ Horizons Bar serving Cocktails/Snacks ˇ Sea Breeze Restaurant serving International Cuisine ˇ Shisha Terrace serving Oriental style Cuisine ˇ Vie Restaurant serving Asian Type Cuisine

Children Facilities
ˇ Children's Pool ˇ Kid's Club (4 - 12 yrs) ˇ Playroom ˇ Playground ˇ Highchairs & Cots

Entertainment
International animation team for daily day & evening activity programmes.

Accommodation
2/3 beds, All rooms come with an en suite bathroom, individually controllable Air conditioning and heating, Satellite/ Cable TV, Mini Bar, Safety Deposit Box, Telephone, Hairdryer, terrace/balcony.

Board Basis
Prices are based on 2 adults sharing a Superior Sea View on Bed & Breakfast basis.

Supplements
Half Board, Deluxe Sea View, Single.

Winter Variation
Christmas & New Year's Eve gala dinners are included in the price.

No of Rooms
182

No of Floors
2

No of Lifts
0

Official Rating
5*

Additional Information
* Payable Locally

Hotels in Dahab
Hilton Dahab Resort Hotel 5*, Le Meridien Dahab Hotel 4l, Iberotel Dahabeya Hotel 4*,