<% @ 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 = "Tsilivi" 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 'Tsilivi') 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 > Zante > Tsilivi

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

Tsilivi Zante holidaysholidays to Tsilivi Zante

Holidays in Tsilivi, one of the most popular resorts on the island of Zante lying only seven kilometres north of Zante Town. It is situated around a wide bay and is blessed with soft golden sand. Tsilivi caters for all budgets, Self catering holidays, All inclusive holidays, Family friendly holidays to Zante, while the tavernas and restaurants cater for most tastes. Tsilivi offers fun-filled days with many recreational activities both in and out of the water. Its bars and tavernas provide lively evening entertainment

<% 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 Tsilivi
<% 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 'Tsilivi' " '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 %>