Enjoy uninterrupted panoramic views of the starkly beautiful, rugged landscape from the comfort of our relaxing resort. Naturally sheltered in a salt-water lagoon, the white Nubian architecture and beautiful gardens make this a uniquely laidback, Bohemian-style retreat - you can indulge your senses with a massage on the beach or simply laze in a hammock beside our stylish, circular pool.
<% If IsAvailable = "N" Then %>
Holidays to Hilton Dahab Resort Hotel 5* 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 = '11254') " _
& " 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
%>
| please call <%=PhoneNo%> for special offers to Hilton Dahab Resort Hotel 5* |
<% Else %>
| Departures from
<% For i = 0 To UBound(Airports) %>
<% If Trim(Airports(i) & " ") <> "" Then %>
• <%=AirportName(Airports(i))%>
<% End If %>
<% Next %>
|
<%
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 %>
|
| Departures from <%=AirportName(Trim(RS("Depart_Airport_Code")))%> |
<% i = 0 %>
<% End If %>
<% If (StrComp(ThisMonth, LastMonth, vbTextCompare) <> 0) And (Request.QueryString("Depart_Airport_Code") <> "") Then %>
| |
| <%=MonthName(ThisMonth)%> |
<% End If %>
<% If i < RowLimit Then %>
>
" 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)%>  |
<% End If %>
<% If i = RowLimit Then %>
">
| " 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")))%> |
<% End If %>
<%
LastAirport = ThisAirport
LastMonth = ThisMonth
i = i + 1
RS.MoveNext
Loop
End If
Set RS = Nothing
%>
<% Else %>
<%
SQL = "SELECT DISTINCT SUBSTRING(OB_Depdate, 4, 2) AS Month " _
& "FROM Libra_Lates.AVLABL " _
& "WHERE (Country NOT LIKE 'holiday country') AND (Accom_Code = '11254') " _
& "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 Hilton Dahab Resort Hotel 5*, 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 = '11254') " _
& "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
%>
| please call <%=PhoneNo%> for our latest holiday deals. |
<% Else %>
| |
<% For k = 0 To UBound(Months, 2) %>
<%=MonthName(CDbl(Months(0, k)), True)%> |
<% 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
%>
>
<%=AirportName(ThisAirport)%> |
<% For k = 0 To UBound(Cols) %>
<%
If Trim(Cols(k) & " ") <> "" Then
TempArr = Split(Cols(k), ":", -1, 1)
%>
from <%=AirportName(ThisAirport)%>">£<%=FormatNumber((CDbl(TempArr(2)) / 100), 0)%> |
<% 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
%>
<% End If %>
<% End If %>
<% End If %>
Location
The Hilton Dahab Resort, located between the desert and the shimmering Red Sea with a backdrop of Egypt's Sinai Mountains, is Hilton's own Bedouin oasis.
Facilities
· 24hr Reception · Swimming Pools · Tennis Courts* · Beach Volleyball · Baby Foot · Table Tennis* · Gym* · Sauna* · Massage* · Beauty Treatments* · Money Exchange · Cash Machine · Laundry/Dry cleaning* · Souvenir Shop · Portofino Restaurant serving Fine Italian · Neptune's serving Fresh Fish · Mirage Restaurant which is the Buffet Style Restaurant with Themed Evenings · Beach Bar · Coconut Bar· Dahbito Discotheque.
Children Facilities
· Children's Pool · Kid's Club (4-12 yrs) · Playroom · Playground · Highchairs & Cots.
Entertainment
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 and terrace or balcony. (Rooms can accommodate 3 Adults or 2 Adults & 2 Children).
Board Basis
Prices are based on 2 adults sharing on Bed & Breakfast basis.
Supplements
Half Board, Deluxe room, Suite, Single.
Honeymoon
Fruit basket.
Winter Variation
Gala Dinners Christmas & New Year's Eve gala dinners are included in the price.
All Inclusive
· Breakfast 07:00 - 11:00 at Mirage Restaurant · Late Breakfast 11:00 - 12:00 at Beach Bar · Lunch 13:00 - 15:00 at Mirage Restaurant · Dinner 06:30 - 22:00 at Mirage Restaurant · Lunch & Dinner include soft drinks, local wine and local draught beer, tea & filter coffee · Afternoon Snacks at the Beach Bar 16:00-17:00 · Ice Cream from 11:00 at the Ice Cream Corner and Beach Bar (except Moevenpick Ice Cream) · Beverage service as part of the All Inclusive package: All Soft drinks by glass, local beer by glass, local spirits by glass, filter coffee & tea from 11:00 to 23:00, all served at the following outlets: Windjammer Bar (during open hours), Mirage Restaurant (during meals), Beach Bar (during opening hours). All beverages offered by glass and have to be ordered one by one, local wine by glass is available only during meals.
No of Rooms
163
No of Floors
2
No of Lifts
0
Official Rating
5*
Our Rating
LLLLL
Additional Information
* Payable Locally
Hotels in Dahab
Hilton Dahab Resort Hotel 5*,
Le Meridien Dahab Hotel 4l,
Iberotel Dahabeya Hotel 4*,
