<% @ 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, CheapestFlightPrice Dim Season1, Season2, ThisHotel, NextHotel, LastHotel, Price, ThisTable 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 = "Crete Kokkini Hani" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open LatesDatabase 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") 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 '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) ' Airports Arppts = "" ArpptNames= "" Set RS = Conn.Execute("SELECT Arppt, PageName FROM Searchform_Defaults WHERE (Page = 'Resort') AND (PageName LIKE 'Crete Kokkini Hani') 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 > Heraklion (crete) > Crete Kokkini Hani

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

cheap kokkini hani holidays creteholidays to kokkini hani crete

Holidays in Kokini Hani Crete, a quiet beach resort near the capital Heraklion. Kokkini Hani is on the north coast of Crete, 3 miles from Gouves, 8 miles from the capital Heraklion and just 6 miles from Heraklion airport. Kokkini Hani holidays will appeal to families or couples looking for Quality All inclusive holidays or simple Self catering holidays. Pleasant relatively simple friendly resort with good beaches, modest nightlife and a good selection of popular resorts nearby.

<% 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)%> More
<% End If Set RS = Nothing %> <% Else %>

Hotels in Crete Kokkini Hani
<% 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 'Crete Kokkini Hani' " '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 %>