<% @ Language=VBScript LCID=2057 %> <% Option Explicit %> <% Dim Conn, SQL, RS, Searchform_SQL, Searchform_StartDate, Searchform_Deppt, Searchform_Arppt, Arppts, ArpptNames, ArrArppts Dim ArrArpptNames, Arppts_i, ThisClass, ThisResort, LastResort, ThisImage, i, ThisOffer, CurrentDB Dim Season1, Season2 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 = "Kefalonia" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open LatesDatabase Searchform_SQL = "SELECT StartDate, Deppt, Arppt FROM Searchform_Defaults WHERE (Page LIKE 'Location') AND (PageName LIKE '" & Searchform_Arppt & "')" If (Request.QueryString("Season") = "Summer") Or (Session("CurrentSeason") = "Summer") Then Searchform_SQL = Searchform_SQL & " AND (Season = 'SUMMER')" ElseIf (Request.QueryString("Season") = "Winter") Or (Session("CurrentSeason") = "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 'Location') 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 Arppt, PageName FROM Searchform_Defaults WHERE (Page = 'Location') AND (PageName LIKE 'Kefalonia') LIMIT 1") If Not RS.EOF Then Do While Not RS.EOF Arppts = Arppts & Trim(RS("Arppt")) & "," ArpptNames = ArpptNames & Trim(RS("PageName")) & "," 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 > Kefalonia

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

Pure white beaches, aquamarine waters, green pine scented forests and the bluest of skies; shades of colour put together by mother nature form the natural beauty of Kefalonia.

<% SQL = "SELECT CAST(Adult_Price AS UNSIGNED) AS Price, 'Resort' 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 'Kefalonia Home Resorts') " 'If Request.QueryString("Season") = "Summer" Then ' SQL = SQL & "AND (CAST(CONCAT('20', SUBSTRING(Depart_Date, 7, 2), '-', SUBSTRING(Depart_Date, 4, 2), '-', SUBSTRING(Depart_Date, 1, 2)) AS DATETIME) > CAST('" & Season2 & "' AS DATETIME)) " 'ElseIf Request.QueryString("Season") = "Winter" Then ' SQL = SQL & "AND (CAST(CONCAT('20', SUBSTRING(Depart_Date, 7, 2), '-', SUBSTRING(Depart_Date, 4, 2), '-', SUBSTRING(Depart_Date, 1, 2)) AS DATETIME) > CAST('" & Season1 & "' AS DATETIME)) " _ ' & "AND (CAST(CONCAT('20', SUBSTRING(Depart_Date, 7, 2), '-', SUBSTRING(Depart_Date, 4, 2), '-', SUBSTRING(Depart_Date, 1, 2)) AS DATETIME) > CAST('" & Season2 & "' AS DATETIME)) " 'End If SQL = SQL & "ORDER BY Holiday_Resort, CAST(Adult_Price AS UNSIGNED)" Set RS = Conn.Execute(SQL) If Not RS.EOF Then i = 0 Do While Not RS.EOF 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 %> > <% 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">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_Region"))) & " - " & PCase(ThisResort)%>" class="Text">More about <%=PCase(ThisResort)%> More
-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

Once voted 10th in a world scenic beauty league, Kefalonia is unrivaled with relaxed, uncrowded, deserted beaches, perfumed pine forests, majestic mountains, curvy coastlines, charming fishing villages and excellent wines. It is rich in culture and abound with history, boasting restful resorts with an atmospheric capital.
Kefalonia is largely unspoiled and its famous strange geographical phenomena is begging to be explored. So inspiring is the island, the book and movie 'Captain Corelli's Mandolin' was set on Kefalonia.

Out & About in Kefalonia
Ithaka
Visit this little neighbouring island famous as the birthplace of King Odysseus who battled at Troy.

Fiskardo
This picturesque fishing harbour was the only surviving village after the devastating earthquake of 1953.

Drogorati Caves & underground lake of Mellisani
Sit back and enjoy a relaxing boat trip through the caves.

Myrtos Bay
Discover for yourself why this beautiful bay is one of the most photographed in Greece.

Flights From
Gatwick and Manchester

Resorts in Kefalonia
Lassi, Lixouri, Lourdas, Scala, Sami, Svoronata,

Search & Book

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