<% @ 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 = '11191') 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 = '11191') 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 = '11191') 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 > Sofitel Old Winter Palace Hotel 5*

Sofitel Old Winter Palace Hotel 5*

Sofitel Old Winter Palace Hotel 5*
up down
The Old Winter Palace was built in 1886 in true colonial splendour as a palace for the King of Egypt. This grand Victorian-style building has moved with the times and is now a very special hotel with masses of character, original features and tropical gardens. Steep yourself in fine cuisine, palatial charm and antique splendour. A truly grandiose and romantic experience! <% If IsAvailable = "N" Then %>

Holidays to Sofitel Old Winter 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 = '11191') " _ & " 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 Sofitel Old Winter Palace Hotel 5*
Departure date
Departure airport
please call <%=PhoneNo%> for special offers to Sofitel Old Winter 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 = '11191') " _ & "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 Sofitel Old Winter 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 = '11191') " _ & "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
The Old Winter Palace is located across the road from the River Nile, in the centre of Luxor and close to Luxor Temple.

Facilities
· 24H Reception and room service · 2 Large shared Swimming Pools, Variety of restaurants including La Corniche · Mediterranean restaurant for breakfast and dinner · 1886 French Gastronomic restaurant open for dinner · El Nakheel · poolside restaurant for lunch · International cuisine at the Royal Bar · Elegant British style and resident pianist · Victorian Lounge · elegance and calm, Nile Terrace · to enjoy the magnificent sunset · Garden Terrace · to reador savour a long drink · El Tarboush Oriental restaurant in the hotel grounds (dinner only) · Laundry service · Money exchange · Gift shop.

Accommodation
Tastefully decorated guest rooms depicting elegance of the colonial past. Each room has bathroom, hairdryer, air conditioning, satellite TV, mini bar, direct dial telephone and most have a balcony or terrace. All standard rooms can sleep up to 2 adults. Executive rooms sleep up to 3 persons and are available on a request basis.

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

Supplements
Half Board, Nile View, Single. Please note guests on half board basis can enjoy their meal at La Corniche restaurant in the old wing.

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

No of Rooms
86 & 6 suites

No of Floors
2

No of Lifts
2

Official Rating
5*

Our Rating
LLLLL

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 %>