<% If Request.QueryString("Season") = "Summer" Then Response.Write "Summer " %> <% If Request.QueryString("Season") = "Winter" Then Response.Write "Winter " %> Roda holidays

Holidays In Roda - A Quiet Family Resort in Corfu, Roda is best described as a quiet Family holiday orientated resort with a nice sandy beach set in a cove. All inclusive holidays to Roda, Family holidays to Roda, Self catering holidays to Roda, we have a great selection of holidays to Roda that will suit your every need. The beach at Roda very gently slopes down to the calm, clear waters of the Ionian Sea. Roda holidays became more popular as Roda developed from a small fishing village into a well structured Corfu holiday destination. There's a good selection of bars and tavernas in Roda and a few late night discos to keep night owls entertained. Along with the two neighbouring north coast resorts of Sidari and Acharavi, Roda holidays offer well-established and well-maintained accommodation. There are great facilities for families or couples alike, looking for a Corfu holiday that has a bit of everything. Roda holidays have all you would expect from a beach holiday in Corfu, but nevertheless maintain a quiet, unassuming atmosphere and at least a taste of the traditional Corfu. There is very little to bother you on holiday in Roda so you have plenty of time to enjoy the natural surroundings and stretch out on the beach. For many visitors the peace and quiet is exactly why they choose Roda holidays. The capital Corfu Town and the Airport are 27 miles southeast of Roda.

<% If Request.QueryString("Season") = "Xmas" Then %> <% Dim ThisDate, LastDate SQL = "SELECT MIN(CAST(Adult_Price AS UNSIGNED)) AS Price, 'Resort' AS EntityType, Depart_Airport_Code, Depart_Date, Holiday_Country, '.' AS Holiday_Region, Holiday_Resort, Board, Star_Rating, Duration, Tour_Code AS Accom_Code, Hotel_Name, URL " _ & "FROM Libra_Lates.LIBRALATES " _ & "INNER JOIN Libra_Lates.Airport_Prio " _ & "ON Libra_Lates.LIBRALATES.Depart_Airport_Code = Libra_Lates.Airport_Prio.Airport_Code " _ & "WHERE (Holiday_Country LIKE 'Egypt') AND " _ & "(CAST(CONCAT('20', SUBSTRING(Depart_Date, 7, 2), '-', SUBSTRING(Depart_Date, 4, 2), '-', SUBSTRING(Depart_Date, 1, 2)) AS DATETIME) > CAST('2009-12-17' AS DATETIME)) AND " _ & "(CAST(CONCAT('20', SUBSTRING(Depart_Date, 7, 2), '-', SUBSTRING(Depart_Date, 4, 2), '-', SUBSTRING(Depart_Date, 1, 2)) AS DATETIME) < CAST('2009-12-31' AS DATETIME)) " _ & "GROUP BY Depart_Date, Depart_Airport_Code, Holiday_Resort " _ & "ORDER BY CAST(CONCAT('20', SUBSTRING(Depart_Date, 7, 2), '-', SUBSTRING(Depart_Date, 4, 2), '-', SUBSTRING(Depart_Date, 1, 2)) AS DATETIME), " _ & "Prio, Holiday_Resort, CAST(Adult_Price AS UNSIGNED)" Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorLocation = 3 ' adUseClient RS.Open SQL, Conn If Not RS.EOF Then i = 0 %> <% Do While Not RS.EOF ThisDate = CStr(FormatDate(RS("Depart_Date"), "")) %> <% If StrComp(ThisDate, LastDate, vbTextCompare) <> 0 Then %> <% i = 0 %> <% End If %> > <% LastDate = ThisDate i = i + 1 RS.MoveNext Loop %>

<%=ThisDate%>
<%=AirportName(RS("Depart_Airport_Code"))%>	" title="<%=PCase(Trim(RS("Hotel_Name"))) & " in " & PCase(Trim(RS("Holiday_Resort"))) & ", " & FormatDate(RS("Depart_Date"), "Y")%>" class="Text"><%=PCase(RS("Hotel_Name"))%>	<%=StarRatingImage(RS("Star_rating"))%>	<%=BoardBasis(RS("Board"))%>	<%=Trim(RS("Duration"))%> nights	" title="<%=PCase(Trim(RS("Hotel_Name"))) & " in " & PCase(Trim(RS("Holiday_Resort"))) & ", " & FormatDate(RS("Depart_Date"), "Y")%>" class="Text">fr £ <%=FormatNumber((CDbl(RS("Price")) / 100), 0)%>

<% End If Set RS = Nothing %> <% Else %>

Hotels in Roda

<% SQL = "SELECT DISTINCT MIN(CAST(Adult_Price AS UNSIGNED)) AS Price, 'Accommodation' AS EntityType, Holiday_Country, Holiday_Resort, Holiday_Region, Board, Star_Rating, Tour_Code AS Accom_Code, Hotel_Name, Source_Table " _ & "FROM Lib_Resortpage2 " _ & "WHERE Holiday_Resort LIKE 'Roda' " 'If Request.QueryString("Season") = "Summer" Then ' SQL = SQL & "AND (Webpage LIKE '%Summer%') " 'ElseIf Request.QueryString("Season") = "Winter" Then ' SQL = SQL & "AND (Webpage LIKE '%Winter%') " 'End If SQL = SQL & "GROUP BY Hotel_Name, Source_Table " _ & "ORDER BY Star_Rating, Hotel_Name, Source_Table DESC" Set RS = Server.CreateObject("ADODB.Recordset") RS.CursorLocation = 3 ' adUseClient RS.Open SQL, Conn If Not RS.EOF Then Do While Not RS.EOF ThisHotel = Trim(RS("Hotel_Name")) NextHotel = "" RS.MoveNext If Not RS.EOF Then NextHotel = Trim(RS("Hotel_Name")) RS.MovePrevious 'If RS("Source_Table") = "AVLABL" Then ' ThisTable = "Summer" ' Price = Price & "" & ThisTable & " £" & FormatNumber((CDbl(RS("Price")) / 100), 0) & " " 'Else ' ThisTable = "Winter" ' Price = Price & "" & ThisTable & " £" & FormatNumber((CDbl(RS("Price")) / 100), 0) & " " 'End If Price = Price & "from £" & FormatNumber((CDbl(RS("Price")) / 100), 0) & " " If ThisHotel <> NextHotel Then Application(Trim(RS("Accom_Code")) & "_Resort_Pic") = "" If Application(Trim(RS("Accom_Code")) & "_Resort_Pic") <> "" Then ThisImage = Application(Trim(RS("Accom_Code")) & "_Resort_Pic") Else ThisImage = ThumbnailImage(Trim(RS("Accom_Code")), "Accommodation", ContentBrochureCode("BrochureCode", GetBrochureCode(Trim(RS("Holiday_Country")), "")), "", "Resize:B150,110;Class:Border") ' RedField18.Value(i) If (Left(ThisImage, 20) = " <%=Server.Execute("/forms/footer.asp")%> <% If IsObject(RS) Then Set RS = Nothing Conn.Close Set Conn = Nothing %>