<% Dim Conn, RS, SQL, Searchform_SQL, Searchform_StartDate, Searchform_Deppt, Searchform_Arppt, Arppts, ArpptNames, ArrArppts, ArrArpptNames, Arppts_i, Count, ThisClass Dim Season1, Season2, CurrentDB 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 = "Greece" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open LatesDatabase Searchform_SQL = "SELECT StartDate, Deppt, Arppt FROM Searchform_Defaults WHERE (Page LIKE 'Country') AND (PageName LIKE '" & Searchform_Arppt & "')" Session("CurrentSeason") = "" If Request.QueryString("Season") = "Summer" Then Searchform_SQL = Searchform_SQL & " AND (Season = 'SUMMER')" Session("CurrentSeason") = "Summer" ElseIf Request.QueryString("Season") = "Winter" Then Searchform_SQL = Searchform_SQL & " AND (Season = 'WINTER')" Session("CurrentSeason") = "Winter" ElseIf Request.QueryString("Season") = "Late" Then Searchform_SQL = Searchform_SQL & " AND (Season = 'LATE')" Session("CurrentSeason") = "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 'Country') 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) ' Airports Arppts = "" ArpptNames= "" Set RS = Conn.Execute("SELECT Airport_Code, Airport_Name FROM Airport_Dates WHERE (Country LIKE 'Greece')") If Not RS.EOF Then Do While Not RS.EOF Arppts = Arppts & Trim(RS("Airport_Code")) & "," ArpptNames = ArpptNames & Trim(RS("Airport_Name")) & "," RS.MoveNext Loop Arppts = Trim(Arppts) If Left(Arppts, 1) = "," Then Arppts = Right(Arppts, Len(Arppts) - 1) If Right(Arppts, 1) = "," Then Arppts = Left(Arppts, Len(Arppts) - 1) ArrArppts = Split(Arppts, ",", -1, 1) If Left(ArpptNames, 1) = "," Then ArpptNames = Right(ArpptNames, Len(ArpptNames) - 1) If Right(ArpptNames, 1) = "," Then ArpptNames = Left(ArpptNames, Len(ArpptNames) - 1) ArrArpptNames = Split(ArpptNames, ",", -1, 1) Arppts = "" For Arppts_i = 0 To UBound(ArrArppts) Arppts = Arppts & "" Next If UBound(ArrArppts) > 0 Then Arppts = "" & Arppts End If End If Set RS = Nothing %> <%=Server.Execute("/forms/header.asp")%>

Destinations > Greece Holidays

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

cheap Greece holidaysholidays to Greece

Holidays in Greece 2009 - Unbeatable value holidays 

Unique blend of glorious sunshine, to help kickstart your Summer holiday to Greece, Save and book your Package holiday to Greece now, with our extensive range of All inclusive holidays to Greece, Self catering holidays to Greece, cheap family holidays to Greece whatever the choice, we at Libra Holidays can cater for all your important holiday needs, that's why we are the main specialists to this unbeatable Meditterranean destination for over 36 years. Package Holidays to Greece have an atmosphere all of their own: a delicious combination of hot brilliant sunshine, beautiful beaches, dazzling white villages, friendly resorts, a rich cultural heritage and the perennial romance of island life. Holidays in Greece also offer wonderful boat trips, great watersports and rewarding excursions to amazing ancient sites. Amazing and popular Greek Islands like Zante, Corfu, Crete , Kos and Rhodes are large enough to offer Greece holidays of every description, from the peace and tranquillity of a tiny fishing village to busy Greek beach resorts with plenty of nightlife. Most Greece holidays offer an enjoyably relaxed mix that falls somewhere between the two, with plenty of beach relaxation, charming family-run tavernas, good accommodation, a friendly welcome and excellent value for money. Cheap Greece holidays in early and late summer enjoy a wonderfully peaceful atmosphere and the same intense, bright, sparkling, sunny weather. It is little wonder that holidays in Greece top our popularity charts year after year

<% If Request.QueryString("Offer") <> "" Then If IsNumeric(Request.QueryString("Offer")) Then SQL = "SELECT Adult_Price, URL, Holiday_Resort, Hotel_Name, Duration, Board, Depart_Airport_Code, Depart_Date_Time, Depart_Date FROM Libra_Lates.LIBRALATES WHERE (ID = " & SafeSQL(Request.QueryString("Offer")) & ")" ElseIf (UCase(Left(Request.QueryString("Offer"), 1)) = "L") And (IsNumeric(Right(Request.QueryString("Offer"), Len(Request.QueryString("Offer")) - 1))) Then SQL = "SELECT Adult_Price, URL, Holiday_Resort, Hotel_Name, Duration, Board, Depart_Airport_Code, Depart_Date_Time, Depart_Date FROM Libra_Lates.LIBRALATES WHERE (ID = " & SafeSQL(Right(Request.QueryString("Offer"), Len(Request.QueryString("Offer")) - 1)) & ")" ElseIf (UCase(Left(Request.QueryString("Offer"), 1)) = "A") And (IsNumeric(Right(Request.QueryString("Offer"), Len(Request.QueryString("Offer")) - 1))) Then SQL = "SELECT Adult_Price, Booking_URL AS URL, Resort AS Holiday_Resort, Hotel_Name, Duration, Board, OB_Departure_Airport AS Depart_Airport_Code, OB_Deptime AS Depart_Date_Time, OB_Depdate AS Depart_Date FROM Libra_Lates.AVLABL WHERE (ID = " & SafeSQL(Right(Request.QueryString("Offer"), Len(Request.QueryString("Offer")) - 1)) & ")" End If Set RS = Conn.Execute(SQL) If Not RS.EOF Then %> <% Dim ThisImage, ThisURL ThisURL = Trim(RS("URL") & " ") 'If Application(FindField(ThisURL, "Accommodation") & "_Search_Pic") <> "" Then ' ThisImage = Application(FindField(ThisURL, "Accommodation") & "_Search_Pic") 'Else ThisImage = ThumbnailImage(FindField(ThisURL, "Accommodation"), "Accommodation", GetBrochureCode(FindField(ThisURL, "BrochureType"), FindField(ThisURL, "dbCode")), "", "Resize:B" & ThumbnailSize & ";Class:Border") If Left(ThisImage, 20) = " • <%=PCase(Trim(RS("Holiday_Resort")))%>
• <%=PCase(RemovePlus(Trim(RS("Hotel_Name"))))%>
• <%=Trim(RS("Duration"))%> Nights
• <%=BoardBasis(Trim(RS("Board")))%>
• Departing from <%=AirportName(RS("Depart_Airport_Code"))%> <%=FormatTime(RS("Depart_Date_Time"))%> <%=FormatDate(CDate(RS("Depart_Date")), "Y")%>
• Check-out <%=FormatDate(DateAdd("d", 7, CDate(RS("Depart_Date"))), "Y")%>
Web price
£<%=FormatNumber(CDbl(RS("Adult_Price")) / 100)%>


">
<% End If %> <% End If %> <% If (Request.QueryString("Display") = "1A") Or (Request.QueryString("Display") = "1B") Or (Request.QueryString("Display") = "1C") Or (Request.QueryString("Display") = "1D") Or (Request.QueryString("Display") = "2A") Or (Request.QueryString("Display") = "2B") Or (Request.QueryString("Display") = "2C") Or (Request.QueryString("Display") = "2D") Or (Request.QueryString("Display") = "3A") Or (Request.QueryString("Display") = "3B") Or (Request.QueryString("Display") = "3C") Or (Request.QueryString("Display") = "3D") Or (Request.QueryString("Display") = "4A") Or (Request.QueryString("Display") = "4B") Or (Request.QueryString("Display") = "4C") Or (Request.QueryString("Display") = "4D") Then Set RS = Conn.Execute("SELECT * FROM Web_Offers WHERE (Webpage LIKE 'WEB.OFFER." & Left(Request.QueryString("Display"), 1) & "." & Right(Request.QueryString("Display"), 1) & "') ORDER BY CAST(Depart_Date AS DATE), CAST(Adult_Price AS SIGNED)") Count = 0 %>
Holiday offers to Greece
<% If Not RS.EOF Then %>

We feature 100's of deals to Greece.
• Click on the prices shown below for more details and to view hotels.
• Click on the columns to sort the offers.

<% Do While Not RS.EOF ThisClass = "OffersRow" If Count Mod 2 = 0 Then ThisClass = "OffersRowAlternative" %> ';"> <% Count = Count + 1 %> <% RS.MoveNext %> <% Loop %>
Departing From Resort Hotel Nights Board Price
<%=FormatDate(RS("Depart_Date"), "Y")%> <%=AirportName(Trim(RS("Depart_Airport_Code")))%> <%=PCase(Trim(RS("Holiday_Resort")))%> <%=PCase(Trim(RS("Hotel_Name")))%> <%=Trim(RS("Duration"))%> <%=BoardBasis(Trim(RS("Board")))%> <%=FormatCurrency(CDbl(RS("Adult_Price")) / 100)%>
<% End If %> <% Set RS = Nothing %>
<% Else %> <% If UCase(Left(Searchform_Arppt, 2)) = "GR" Then If Request.QueryString("Season") = "Summer" Then SQL = "SELECT CAST(Adult_Price AS UNSIGNED) AS Price, 'Location' AS EntityType, Holiday_Country, Holiday_Region, Holiday_Resort, Board, Star_Rating, Accom_Code, Hotel_Name, Resort_Code, Source_Table, Source_ID " _ & "FROM Libra_Lates.Lib_Homepage2 " _ & "WHERE (Webpage LIKE 'Greece Home Locations Summer') " ElseIf Request.QueryString("Season") = "Winter" Then SQL = "SELECT CAST(Adult_Price AS UNSIGNED) AS Price, 'Location' AS EntityType, Holiday_Country, Holiday_Region, Holiday_Resort, Board, Star_Rating, Accom_Code, Hotel_Name, Resort_Code, Source_Table, Source_ID " _ & "FROM Libra_Lates.Lib_Homepage2 " _ & "WHERE (Webpage LIKE 'Greece Home Locations Winter') " Else SQL = "SELECT MIN(CAST(Adult_Price AS UNSIGNED)) AS Price, 'Location' AS EntityType, Holiday_Country, Holiday_Region, Holiday_Resort, Board, Star_Rating, Accom_Code, Hotel_Name, Resort_Code, Source_Table, Source_ID " _ & "FROM Libra_Lates.Lib_Homepage2 " _ & "WHERE (Webpage LIKE 'Greece Home Locations%') " _ & "GROUP BY Holiday_Country, Holiday_Resort, Board, Star_Rating, Accom_Code, Hotel_Name, Resort_Code " End If SQL = SQL & "ORDER BY Holiday_Region, Holiday_Resort, CAST(Adult_Price AS UNSIGNED)" Else If Request.QueryString("Season") = "Summer" Then SQL = "SELECT CAST(Adult_Price AS UNSIGNED) AS Price, 'Resort' AS EntityType, Holiday_Country, '.' AS Holiday_Region, Holiday_Resort, Board, Star_Rating, Accom_Code, Hotel_Name, Resort_Code, Source_Table, Source_ID " _ & "FROM Libra_Lates.Lib_Homepage2 " _ & "WHERE (Webpage LIKE 'Greece Home Resorts Summer') " ElseIf Request.QueryString("Season") = "Winter" Then SQL = "SELECT CAST(Adult_Price AS UNSIGNED) AS Price, 'Resort' AS EntityType, Holiday_Country, '.' AS Holiday_Region, Holiday_Resort, Board, Star_Rating, Accom_Code, Hotel_Name, Resort_Code, Source_Table, Source_ID " _ & "FROM Libra_Lates.Lib_Homepage2 " _ & "WHERE (Webpage LIKE 'Greece Home Resorts Winter') " Else SQL = "SELECT MIN(CAST(Adult_Price AS UNSIGNED)) AS Price, 'Resort' AS EntityType, Holiday_Country, '.' AS Holiday_Region, Holiday_Resort, Board, Star_Rating, Accom_Code, Hotel_Name, Resort_Code, Source_Table, Source_ID " _ & "FROM Libra_Lates.Lib_Homepage2 " _ & "WHERE (Webpage LIKE 'Greece Home Resorts%') " _ & "GROUP BY Holiday_Country, Holiday_Resort, Board, Star_Rating, Accom_Code, Hotel_Name, Resort_Code " End If SQL = SQL & "ORDER BY Holiday_Resort, CAST(Adult_Price AS UNSIGNED)" End If Set RS = Conn.Execute(SQL) If Not RS.EOF Then i = 0 Do While Not RS.EOF ThisResort = Trim(RS("Holiday_Region")) If ThisResort = "." Then ThisResort = Trim(RS("Holiday_Resort")) CurrentDB = "" If Trim(RS("Source_Table")) = "AVLABL" Then CurrentDB = "A10" %> <% If StrComp(ThisResort, LastResort, vbTextCompare) <> 0 Then %> <% i = 0 %> <% End If %> > <% If UCase(Left(Searchform_Arppt, 2)) = "GR" Then %> <% End If %> <% LastResort = ThisResort i = i + 1 RS.MoveNext Loop End If Set RS = Nothing %>
">" alt="Package holidays and deals to <%=PCase(ThisResort)%>" border="0"> " class="Headline">Greece Holidays to <%=PCase(ThisResort)%>
<%=FirstNumWords(GetText(Trim(RS("Resort_Code")), RS("EntityType"), GetBrochureCode(Trim(RS("Holiday_Country")), CurrentDB), "Introduction"), 50)%>...
<% If Request.QueryString("Season") = "Winter" Then Response.Write "?Season=Winter" %>" title="Holidays to <%=PCase(Trim(RS("Holiday_Country"))) & " - " & PCase(ThisResort)%>" class="Text">More about <%=PCase(ThisResort)%> Last minute holidays
-holidays.htm<% If Request.QueryString("Season") = "Summer" Then Response.Write "?Season=Summer" %><% If Request.QueryString("Season") = "Winter" Then Response.Write "?Season=Winter" %>" title="<%=PCase(Trim(RS("Holiday_Resort"))) & " in " & PCase(Trim(RS("Holiday_Region"))) & ", " & PCase(Trim(RS("Holiday_Country")))%>" class="Text"><%=PCase(Trim(RS("Holiday_Resort")))%>-holidays.htm" title="<%=PCase(Trim(RS("Hotel_Name"))) & " in " & PCase(Trim(RS("Holiday_Resort"))) & ", " & PCase(Trim(RS("Holiday_Country")))%>" class="Text"><%=PCase(Trim(RS("Hotel_Name")))%> <%=StarRatingImage(RS("Star_rating"))%> <%=BoardBasis(RS("Board"))%> -holidays.htm<% If Request.QueryString("Season") = "Summer" Then Response.Write "?Season=Summer" %><% If Request.QueryString("Season") = "Winter" Then Response.Write "?Season=Winter" %>" title="<%=PCase(Trim(RS("Hotel_Name"))) & " in " & PCase(Trim(RS("Holiday_Resort"))) & ", " & PCase(Trim(RS("Holiday_Country")))%>" class="Text">fr £<%=FormatNumber((CDbl(RS("Price")) / 100), 0)%> More
<% End If %>

Greece Holidays - The History
Greece's history stretches back almost 4,000 years when the people of the mainland organised great expeditions. Numerous Greek settlements were founded throughout the Mediterranean, Asia Minor and the coast of North Africa as a result of their travels. Throughout history, a fierce spirit of independence and love of freedom has enabled the Greeks to retain their language, religion and strong sense of identity. Words they spoke more than 2,000 years ago are still vital and inspiring today. To the Greeks, life is the most significant fact. They are also well known for their achievements in art, philosophy and medicine.

Greece Holidays - The Country
Variety is the hallmark of the Greek landscape. High mountain ranges intersected by valleys and rivers contrast with endless scenic coastline lapped by crystal blue waters. Such beauty is quite rare and unique in the Mediterranean. The true splendour of Greece is the diversity of regions and resorts, all brimming with charm and natural beauty. The real Greece is whatever you wish for it to be and with Libra Holidays your dreams can come true.

Greece Holidays - The People
Experience its culture and let the warmth of its people embrace you. The majority of Greeks speak and understand the English language moderately well, yet traditions and customs are carried on throughout generations and the close-knit family circle remains an integral part of day-to-day life. Greeks are respectful, warm-hearted and generous, as you will soon learn for yourself.

Greece Holidays - Food and Drink
You've come to the right place for an amazing selection of delicious food! Greece offers an unrivalled selection of restaurants that welcome children and cater for all tastes. Choose from a mouthwatering assortment of traditional meat, fish and vegetable dishes. Whatever you opt for don't leave without sampling an authentic moussaka (layers of vegetables and mince cooked in the oven and topped with a creamy white sauce), or a Greek souvlaki (kebab). Don't let your sweet tooth miss out either! Try baklava; nut filled, paper thin layers of glazed pastry soaked in pure honey. Good food deserves good wine, which is also found in abundance, or for the more daring amongst you, 'retsina', the locally made wine, will certainly put hairs on your chest! Ouzo is the drink that Greece is famous for and accompanied with a little plate of snacks and a glass of water, is a favourite way to wind down.

Greece Holidays - Transport
Rhodes island, has a major port with sea links to Athens, the islands of the Aegean and Crete, as well as to international destinations such as Cyprus and Israel. Most international and inter island ferries dock at the commercial harbour of Kolona in Rhodes town, and there is a choice of high-speed catamarans, hydrofoils, car ferries or flights to other islands in the Dodecanese group. Public buses service the coastal towns around the island or it is possible to organise a bus tour for island excursions. For shorter distances shared taxis are available and Rental car agencies are easily available of which the cheapest car hire rates are on offer with Libra Holidays.

Greece Holidays - In Summary...
Book your Rhodes summer holiday now and save on our amazing self catering holidays, All inclusive holidays, Family holidays, holidays for the young and lively and much, much more..

Greece - Search & Book

Libra Holidays are specialists in Greece holidays and we have been offering value for money holidays to Greece for over 35 years. Whilst we offer cheap Greece holidays all of our Greece holidays are carefully selected by experienced staff to ensure that our holidays to Greece see the high levels of customer satisfaction that brings customers back to Libra Holidays year after year. So, for cheap Greece holidays give us a call or search online today.


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