<% @ 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 = "Oia" 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 'Oia') 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 > Santorini > Oia

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

Located on the northern tip of the island Oia is one of the most
picturesque unique villages perched on the caldera. With the
restaurants and cafes over looking the scenic views and the
stunning magical sunset it is an ideal gateway for honeymooners.

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