The Hauza Beach Resort, Sharm El Sheikh is geared up for the whole family and offers the guests with a combination of yesterday's charm with today's comfort. Hauza Beach Resort, excels in offering qualityaccommodation coupled with international standard services. The architecture of the hotel is a magnificent blend of the Islamic culture and the African architecture.
<% If IsAvailable = "N" Then %>
Holidays to Hauza Beach Hotel 5* are not currently available to book online, to check the latest availability, or for alternative holidays to Sharm El Sheikh, 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 = '11300') " _
& " 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 Hauza Beach 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=ESH&")
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, SUBSTRING(OB_Depdate, 7, 4) AS Year " _
& "FROM Libra_Lates.AVLABL " _
& "WHERE (Country NOT LIKE 'holiday country') AND (Accom_Code = '11300') " _
& "GROUP BY SUBSTRING(OB_Depdate, 4, 2), SUBSTRING(OB_Depdate, 7, 4) " _
& "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 Hauza Beach 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 = '11300') " _
& "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
k = 0
If RS.EOF Then
%>
| please call <%=PhoneNo%> for our latest holiday deals. |
<% Else %>
| |
<% For j = 0 To UBound(Months, 2) %>
<%=MonthName(CDbl(Months(0, j)), True)%> |
<% Next %>
<%
Do While Not RS.EOF
ThisAirport = Trim(RS("Airport_Code"))
If StrComp(ThisAirport, LastAirport, vbTextCompare) <> 0 Then
i = 0
k = k + 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
CurCol = 0
For j = 0 To UBound(Months, 2)
If (CDbl(Months(0, j)) = CDbl(RS("Month"))) And (CDbl(Months(1, j)) = CDbl(RS("Year"))) Then
CurCol = j
Exit For
End If
Next
Cols(CurCol) = RS("Month") & ":" & RS("Year") & ":" & Trim(RS("Price"))
If StrComp(ThisAirport, NextAirport, vbTextCompare) <> 0 Then
%>
>
<%=AirportName(ThisAirport)%> |
<% For j = 0 To UBound(Cols) %>
<%
If Trim(Cols(j) & " ") <> "" Then
TempArr = Split(Cols(j), ":", -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
RS.MoveNext
Loop
End If
Set RS = Nothing
%>
<% End If %>
<% End If %>
<% End If %>
Location
The Hauza Beach hotel is located in Nabq Bay, overlooking the sea as well as Tiran Island. There is a shopping centre within easy reach and Sharm El-Sheikh airport is just 5 kms away.
Facilities
· 24H Reception · Swimming Pools · Aerobics · Beach Volley Ball · Darts · Gym · Jacuzzi · Mini Golf · Table Tennis · Tennis Court · Water Polo · Volleyball · Amphitheatre · Internet Café · Massage · Mini Football · Ping Pong · Pool Table · Shops · Spa · Hauza Restaurant for Themed Buffet evenings · Tirana Restaurant for À La Carte · Al Jezeerah for tastes from India & Far East · New Italian Pizzeria · Hauza Bar · Pool Bar · Beach Bar · Disco Bar · Shuttle Bus to Naama Bay*.
Children Facilities
· Children's Pool · Kid's Club (5-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 with balcony or terrace. (Family Rooms sleep up to 2 Adults & 2 Children and beach front room can sleep up to 3 Adults or 2 Adults & 2 Children are located nearest to beach with a sea facing balcony or terrace.)
Board Basis
Prices are based on 2 adults sharing a Garden View room on All inclusive basis.
Supplements
Standard Double, Superior Sea View, Beach Front, Family Room, Suite, Single.
Honeymoon
Fruit basket and upgrade to next available room type (subject to availability)
Winter Variation
Christmas & New Year's Eve gala dinners are included in the price.
All Inclusive
· Buffet breakfast, lunch and dinner daily in the main restaurant - special menu for children · A la carte dining (reservations required)· Morning snacks, Afternoon snacks & tea plus Midnight snacks by the pool; daytime Pizzeria by the beach · Soft drinks from dispensers, mineral water, juices, tea & coffee by the glass from the beach bar (until sunset), lobby bar (until midnight) and pool bar (open 24hrs daily) · Local beers, wines and cocktails by the glass in the main restaurant during lunch and dinner; at the beach bar (10am to sunset); pool bar (24hrs daily) and lobby bar (10am to midnight - pay bar thereafter) · Two juices and one bottle of mineral water, daily in the room mini-fridge · Daytime tennis, Aerobics, Gymnastics, Water Polo, Climbing Wall, Beach soccer and volleyball, mini-golf, darts, backgammon, board games, table tennis · Kids Club and children's facilities · Internet Corner (2 hours weekly) · Massage (15 minutes weekly).Spa-Health Club, Dive Centre, Horse & Camel riding, Drinks in the Discotheque, Na'ama Bay shuttle are at an extra charge payable locally.
No of Rooms
350
No of Floors
2
No of Lifts
0
Official Rating
5*
Our Rating
LLL+
Additional Information
Spa-Health Club, Dive Centre, Horse & Camel riding, Drinks in the Discotheque, Na'ama Bay shuttle are at an extra charge payable locally.* Payable Locally
Hotels in Sharm El Sheikh
The Savoy Hotel 5*,
Sofitel Sharm Hotel 5*,
Sierra Hotel 5*,
Ritz Carlton Hotel 5*,
Renaissance Golden View Beach Hotel 5*,
Novotel Palms Hotel 5*,
Novotel Beach Sharm Hotel 5*,
Maritim Jolieville Golf & Resort 5*,
Maritim Jolie Ville Royal Peninsula 5*,
Jaz Mirabel Club Hotel 5*,
Jaz Belvedere Hotel 5*,
Hyatt Regency Sharm Hotel 5*,
Hilton Sharm Waterfalls Resort Hotel 5*,
Hilton Sharm Dreams Resort Hotel 5*,
Hauza Beach Hotel 5*,
Baron Resort Hotel 5* Deluxe,
Baron Palms Hotel 5*,
Sol Y Mar Sharming Inn Hotel 4*,
Laguna Vista Garden Resort Hotel 4*,
Iberotel Club Fanara Hotel 4*,
Hilton Sharm Fayrouz Resort Hotel 4*,
Hilton Sharks Bay Resort Hotel 4*,
El Hayat Sharm El Sheikh Resort 4*,
Eden Rock Hotel 4*,
Amarante Garden Palms Hotel 4*,
Sol Y Mar Shams Suites 3*,
