<% @ 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 = '11182') 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 = '11182') 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 = '11182') 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 Karnak Hotel 4*

Sofitel Karnak Hotel 4*

Sofitel Karnak Hotel 4*
up down
The Sofitel Karnak is set in its own extensive and well-kept gardens on the banks of the River Nile, offering a very good standard of facilities and service within a warm, friendly and relaxed atmosphere. Ideal for family holidays due to the quiet location of the hotel and animation and sport facilities available. The Sofitel Karnak is a great place for relaxing or taking full advantage of the mysterious and beautiful temples as well as everything else the Nile has to offer. <% If IsAvailable = "N" Then %>

Holidays to Sofitel Karnak Hotel 4* 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 = '11182') " _ & " 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 Karnak Hotel 4*
Departure date
Departure airport
please call <%=PhoneNo%> for special offers to Sofitel Karnak Hotel 4*
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 " _ & "FROM Libra_Lates.AVLABL " _ & "WHERE (Country NOT LIKE 'holiday country') AND (Accom_Code = '11182') " _ & "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 Sofitel Karnak Hotel 4*, 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 = '11182') " _ & "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
Situated in the north of Luxor centre, in the village of Karnak. Splendidly located on the banks of the Nile in a flowered park with panoramic views of the Theban mountains

Facilities
· Large swimming pool (heated in winter), 4 bars · 3 restaurants; the open air restaurant overlooks the pool and the Nile and is designed in pharaonic style · O Nile - à la carte restaurant and La palmeraie pool bar and restaurant · 2 tennis courts (hard surface and floodlit) · 2 squash courts and gym · table tennis · board games · sauna · Jacuzzi · hair salon · gift shops · cash machine and exchange facilities · 24-hour reception and room service · laundry service · courtesy bus and boat to Luxor.

Children Facilities
· Small children's pool · kid's club (4-12 years) · multipurpose children's play area with sports lessons.

Entertainment
Daytime activities and evening entertainment in Carters bar and Amphitheatre theme nights.

Accommodation
Twin/double rooms with bathroom, satellite TV, telephone, radio, minibar, safety deposit box, hairdryer, fridge, central air conditioning or heating and a terrace or balcony. Standard rooms have inland view. Rooms can accommodate up to 2 adults and 1 child or 3 adults. Smoking rooms on request.

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

Supplements
Half board, single.

Honeymoon
Fruit Basket

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

No of Rooms
351

No of Floors
2

Official Rating
4*

Our Rating
LLLL

Additional Information
* Payable locally

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