<% @ Language=VBScript LCID=2057 %> <% Option Explicit %> <% Dim Conn, SQL, RS, Searchform_SQL, Searchform_StartDate, Searchform_Deppt, Searchform_Arppt, Airports, ArrArpptNames, Arppts_i, ThisDate, LastDate Dim ThisSelected, i, j, k, x, RowLimit, ThisMonth, LastMonth, IsAvailable, TempArr, CurCol, Months, ThisYear, ThisAirport, LastAirport, NextAirport Dim Season1, Season2, DisplaySeason, ThisURL Season1 = DatePart("yyyy", Now()) & "-" & Right("00" & DatePart("m", Now()), 2) & "-" & Right("00" & DatePart("d", Now()), 2) Season2 = "2010-05-01" ' Find default search details... Searchform_StartDate = DateAdd("d", Now(), 7) Searchform_Deppt = "LGW" Searchform_Arppt = "Luxor" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open LatesDatabase ' Is this property available? IsAvailable = "N" DisplaySeason = "Winter" If (Request.QueryString("Season") = "Winter") Or (Request.QueryString("Season") = "") Or (InStr(Request.ServerVariables("SCRIPT_NAME"), "winterholidays")) Then Session("CurrentSeason") = "Winter" If (Request.QueryString("Season") = "Summer") Or (Session("CurrentSeason") = "Summer") Or (InStr(Request.ServerVariables("SCRIPT_NAME"), "summerholidays")) Then SQL = "SELECT * FROM Libra_Lates.AVLABL " _ & "WHERE (Accom_Code = '11102') AND " _ & "(CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & Season2 & "' AS DATETIME)) " _ & "LIMIT 1" Set RS = Conn.Execute(SQL) If Not RS.EOF Then IsAvailable = "Y" DisplaySeason = "Summer" Searchform_StartDate = CDate(RS("OB_Depdate")) End If Set RS = Nothing End If If IsAvailable = "N" Then ' Revert to winter DisplaySeason = "Winter" SQL = "SELECT * FROM Libra_Lates.AVLABL " _ & "WHERE (Accom_Code = '11102') AND " _ & "(CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) < CAST('" & Season2 & "' AS DATETIME)) " _ & "LIMIT 1" Set RS = Conn.Execute(SQL) If Not RS.EOF Then IsAvailable = "Y" Else SQL = "SELECT * FROM Libra_Lates.AVLABL " _ & "WHERE (Accom_Code = '11102') AND " _ & "(CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & Season2 & "' AS DATETIME)) " _ & "LIMIT 1" Set RS = Conn.Execute(SQL) If Not RS.EOF Then IsAvailable = "Y" DisplaySeason = "Summer" Searchform_StartDate = CDate(RS("OB_Depdate")) End If End If Set RS = Nothing End If ' Searcform default values Searchform_SQL = "SELECT StartDate, Deppt, Arppt FROM Searchform_Defaults WHERE (Page LIKE 'Resort') AND (PageName LIKE '" & Searchform_Arppt & "')" If (Request.QueryString("Season") = "Summer") Or (Session("CurrentSeason") = "Summer") Or (DisplaySeason = "Summer") Then Searchform_SQL = Searchform_SQL & " AND (Season = 'SUMMER')" ElseIf (Request.QueryString("Season") = "Winter") Or (Session("CurrentSeason") = "Winter") Or (DisplaySeason = "Winter") Then Searchform_SQL = Searchform_SQL & " AND (Season = 'WINTER')" ElseIf (Request.QueryString("Season") = "Late") Or (Session("CurrentSeason") = "Late") Then Searchform_SQL = Searchform_SQL & " AND (Season = 'LATE')" End If Set RS = Conn.Execute(Searchform_SQL) If RS.EOF Then Set RS = Conn.Execute("SELECT StartDate, Deppt, Arppt FROM Searchform_Defaults WHERE (Page LIKE 'Resort') AND (PageName LIKE '" & Searchform_Arppt & "')") If Not RS.EOF Then If Trim(RS("StartDate") & " ") <> "" Then Searchform_StartDate = Trim(RS("StartDate")) If Not IsDate(Searchform_StartDate) Then Searchform_StartDate = DateAdd("d", Now(), 7) If Trim(RS("Deppt") & " ") <> "" Then Searchform_Deppt = Trim(RS("Deppt")) If Trim(RS("Arppt") & " ") <> "" Then Searchform_Arppt = Trim(RS("Arppt")) End If Set RS = Nothing If DateDiff("d", Now(), Searchform_StartDate) < 0 Then Searchform_StartDate = DateAdd("d", Now(), 7) %> <%=Server.Execute("/forms/header.asp")%>

Destinations > Egypt > Luxor > Steigenberger Nile Palace Hotel 5*

Steigenberger Nile Palace Hotel 5*

Steigenberger Nile Palace Hotel 5*
up down
The Nile Palace hotel is renowned for high standard accommodation and first-class hospitality. The view from the hotel alone is worth experiencing; a panoramic vision of the majestic Nile in addition to the cliffs of the West Bank where the valley of Kings and Queens lie. The heart of Luxor is reasonably close by and easily accessible. <% If IsAvailable = "N" Then %>

Holidays to Steigenberger Nile Palace Hotel 5* are not currently available to book online, to check the latest availability, or for alternative holidays to Luxor, 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 = '11102') " _ & " 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=ELU&") 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 Steigenberger Nile Palace Hotel 5*
Departure date
Departure airport
please call <%=PhoneNo%> for special offers to Steigenberger Nile Palace Hotel 5*
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)%> More
<% 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 = '11102') " _ & "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 Steigenberger Nile Palace 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 = '11102') " _ & "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 %> <% Else %> <% For j = 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 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 %> > <% For j = 0 To UBound(Cols) %> <% If Trim(Cols(j) & " ") <> "" Then TempArr = Split(Cols(j), ":", -1, 1) %> <% Else %> <% End If %> <% Next %> <% ReDim Cols(UBound(Months, 2)) %> <% i = i + 1 %> <% End If %> <% LastAirport = ThisAirport RS.MoveNext Loop End If Set RS = Nothing %>
please call <%=PhoneNo%> for our latest holiday deals.
 <%=MonthName(CDbl(Months(0, j)), True)%>
<%=AirportName(ThisAirport)%> from <%=AirportName(ThisAirport)%>">£<%=FormatNumber((CDbl(TempArr(2)) / 100), 0)%>---
<% End If %> <% End If %> <% End If %>

Location
Situated about 1km from the heart of Luxor and within easy reach of Luxor Temple

Facilities
24H reception and room service · Outdoor swimming pool (heated in winter) · Pool bar · 8 Restaurants offering a variety of cuisine · Patio café · 2 bars · Currency exchange · Laundry service · Games Room · Health and fitness centre · Fully equipped gym* · Tennis Court· Hairdresser · Shops · Wheelchair access.

Children Facilities
Children's Pool, Playarea

Entertainment
Varied entertainment programme

Accommodation
All rooms have are twin/double bedded with bathroom, mini-fridge, safety deposit box, hairdryer, satellite TV, telephone, internet access, air conditioning and balcony with city view. Rooms can accommodate 2 adults and 1 child or 3 adults. Non-smoking rooms on request. Side Nile View and Nile View Rooms available at a supplement

Board Basis
Prices are based on 2 adults sharing a twin room with City View on bed and breakfast basis

Supplements
Half Board, Full Board, Side Nile View, Nile View, Single

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

No of Rooms
302

No of Floors
6

No of Lifts
2

Official Rating
5*

Our Rating
LLLLL

Additional Information
*Payable locallyChildren 2-6yrs· Low £299*** · Mid £329*** · High £329***

Hotels in Luxor
Steigenberger Nile Palace Hotel 5*, Sonesta St George Hotel 5*, Sofitel Pavillion Hotel 5*, Sofitel Old Winter Palace Hotel 5*, Sheraton Luxor Hotel 5*, Maritim Jolie Ville Luxor Islands 5*, Hilton Luxor Resort & Spa Hotel 5*, Sofitel Karnak Hotel 4*, Iberotel Luxor Hotel 4*, Mercure Luxor Hotel 3*, Emilio Hotel 3*,

Search & Book

<%=Server.Execute("/forms/footer.asp")%> <% If IsObject(RS) Then Set RS = Nothing Conn.Close Set Conn = Nothing %>