This hotel is located right on a superb stretch of sand, in a quiet part of the tourist area on the outskirts of Larnaca. Wide terraces, broad lawns, a large beach and a free-form pool mean there's plenty of space throughout this lovely holiday complex for everyone to relax in great surroundings.
<% If IsAvailable = "N" Then %>
Holidays to Sandy Beach Hotel 4* are not currently available to book online, to check the latest availability, or for alternative holidays to Larnaca, 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 = '9201') " _
& " 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 Sandy Beach Hotel 4* |
<% 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=LAR&")
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 = '9201') " _
& "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 Sandy Beach 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 = '9201') " _
& "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
· Traditional and warm the Sandy Beach Hotel in Larnaca, is located right on the beach of Dhekelia.
Facilities
· 2 Freshwater outdoor pools · indoor pool · reception · restaurant · pool/snack-bar · bar · lounge · gift shop/news-stand · hairdresser · room service · internet access · laundry service · conference facilities · gym · sauna* · Jacuzzi* · steam bath* · massage* · floodlit tennis court · table tennis
Children Facilities
· Children's pool · mini-club (5 days per week) · playground · free baby cot
Entertainment
· Daytime activities & evening entertainment.
Accommodation
Bedrooms (2/3 persons) with twin-beds or double bed, bath, shower, wc, hairdryer, satellite TV, mini-bar (payable locally), safe deposit box (payable locally approx. CYŁ7 p/wk), air conditioning, balcony with inland view or pool view. Family Rooms (3 adults or 2 adults + 2 children) with twin beds and bunk beds for children, inland view.
Board Basis
Prices are based on 2 adults sharing a twin inland view room on bed and breakfast.
Supplements
Half board, all inclusive, side sea view, pool or side sea view, superior premium side sea and pool view, executive side sea view, junior suite sea view, executive suite sea view.
Honeymoon
Room upgrade (STA), sparkling wine, fruit and flowers in room on arrival.
All Inclusive
· Buffet Breakfast 07:00-10:00, lunch 13:00-14:30 and dinner 19:00-21:30 · Snacks buffet & local Ice Cream in Scoops - 11:00-12:00 & 16:00-17:00 · Bars: 10:00-24:00 - Serving a selection of local alcoholic and non alcoholic beverages, cocktails, local draught beers, house wines by the glass, mineral water by the glass, juice, soft drinks post mix. (one drink per person per order). Selection of hot beverages (filter coffee, expresso, tea, cappuccino and instant coffee) · Themed nights
No of Rooms
205
No of Floors
5
No of Lifts
4
Official Rating
4 Star
Additional Information
* Payable locally
Dive Packages
Available for both beginners and advanced divers, call 0871 226 8701 for details/to book.
Taxi
Available at a supplement.
Hotels in Larnaca
Golden Bay Beach Hotel 5*,
Sandy Beach Hotel 4*,
Palm Beach Hotel 4*,
Lordos Beach Hotel 4*,
Sea 'n' Lake View Hotel,
Lysithea Apartments,
