<% @ 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 = "Lahania" 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 'Lahania') 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 > Rhodes > Lahania

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

cheap holidays to lahanialahania holidays rhodes

The village of Lahania has been officially characterised as "traditional" and is protected by Greek and European legislation. The basic features of Lahania is the tight town-plan and the maze-like layout of the streets. The houses are beautiful traditional architecture, with high walls, imposing gates and inner yards that compose the unique character of the village.

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