<% @ 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 = "Lindos" 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 = '6359') 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 = '6359') 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 = '6359') 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 > Greece > Rhodes > Lindos > Chrysanthi Studios

Chrysanthi Studios

Chrysanthi Studios
Traditional and simply furnished Lindian studios ideally located just off the winding cobbled street that leads to the ancient Acropolis and just minutes walk from the heart of Lindos. An ideal property for enjoying all that Lindos has to offer with amenities easily accessible. <% If IsAvailable = "N" Then %>

Holidays to Chrysanthi Studios are not currently available to book online, to check the latest availability, or for alternative holidays to Lindos, 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 = '6359') " _ & " 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=LIN&") 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 Chrysanthi Studios
Departure date
 Departure airport
please call <%=PhoneNo%> for special offers to Chrysanthi Studios
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 = '6359') " _ & "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 Chrysanthi Studios, 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 = '6359') " _ & "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
· Minutes walk from the centre and only 10 minutes walk to the popular Pallas Beach and Main Beach of Lindos. Due to its location and narrow streets, luggage is delivered approximately 200 metres away.

Facilities
· Use of 2 swimming pools at the elevated Lindos View Hotel are approximately 20 minutes walk away and offer an alternative to the nearby golden sandy beaches · Free safety deposit boxes available at Pallas Travel only 5 minutes walk away

Accommodation
Studios (2/4 adults) are simple and well-maintained with twin/double beds, shower room, Greek style kitchenette, air conditioning*, fan hire* shared courtyard, 3 studios are set around a small courtyard. One room has a large private balcony. The four person studio has traditional Lindian-style decor with an elevated bed.

Board Basis
Prices are based on 2/4 adults sharing a studio on self-catering

No of Rooms
4

No of Floors
2

Additional Information
* Payable locally

Added Value
· Free Kids · Low Kids Prices · No Under-Occupancy

Taxi
Available at a supplement

Hotels in Lindos
Iberostar Lindos Royal Village Hotel 4*, Iberostar Lindos Imperial Hotel 4*, Xenia Stu/apts, Smaragda Studios, Popis Studios, Luxury Studios, Chrysanthi Studios,

Search & Book

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