The hotel is built in a style where the atmosphere and the soft colors and flowers will make you feel nice and comfortable during your holiday. The friendly atmosphere, comfortable rooms, excellent service and moderate prices make our hotel the ideal place for a nice and enjoyable holiday.
<% If IsAvailable = "N" Then %>
Holidays to Magda Hotel 4* are not currently available to book online, to check the latest availability, or for alternative holidays to Crete Gouves, please call <%=PhoneNo%>.
<% Else %>
<% If (Request.ServerVariables("QUERY_STRING") <> "") Or (Request.ServerVariables("REQUEST_METHOD") = "POST") Then %>
|
|
<%
RowLimit = 10
SQL = "SELECT MIN(CAST(Adult_Price AS UNSIGNED)) AS Price, Booking_URL AS URL, Accom_Code AS Tour_Code, Hotel_Name, Country AS Holiday_Country, Resort AS Holiday_Resort, Star_Rating, Board, OB_Depdate AS Depart_Date, Duration, OB_Departure_Airport AS Depart_Airport_Code, Prio " _
& "FROM Libra_Lates.AVLABL " _
& "INNER JOIN Libra_Lates.Airport_Prio " _
& "ON Libra_Lates.AVLABL.OB_Departure_Airport = Libra_Lates.Airport_Prio.Airport_Code " _
& "WHERE (Accom_Code = '4978') " _
& " AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & DatePart("yyyy", DateAdd("d", 1, Now())) & "-" & Right("00" & DatePart("m", DateAdd("d", -7, Now())), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", -7, Now())), 2) & "' AS DATETIME)) "
If Request.Form("Depart_Date") <> "" Then
SQL = SQL & " AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & DatePart("yyyy", DateAdd("d", -7, CDate(Request.Form("Depart_Date")))) & "-" & Right("00" & DatePart("m", DateAdd("d", -7, CDate(Request.Form("Depart_Date")))), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", -7, CDate(Request.Form("Depart_Date")))), 2) & "' AS DATETIME)) " _
& " AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) < CAST('" & DatePart("yyyy", DateAdd("d", 7, CDate(Request.Form("Depart_Date")))) & "-" & Right("00" & DatePart("m", DateAdd("d", 7, CDate(Request.Form("Depart_Date")))), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", 7, CDate(Request.Form("Depart_Date")))), 2) & "' AS DATETIME)) "
ElseIf (Request.QueryString("Depart_Month") <> "") And (Request.QueryString("Depart_Year") <> "") Then
SQL = SQL & " AND (SUBSTRING(OB_Depdate, 7, 4) = '" & SafeSQL(Request.QueryString("Depart_Year")) & "') AND (SUBSTRING(OB_Depdate, 4, 2) = '" & SafeSQL(Right("00" & Request.QueryString("Depart_Month"), 2)) & "') "
Else
If DisplaySeason = "Summer" Then
SQL = SQL & "AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) > CAST('" & Season2 & "' AS DATETIME)) "
Else ' If (Request.QueryString("Season") = "Winter") Or (Session("CurrentSeason") = "Winter") Then
SQL = SQL & "AND (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME) < CAST('" & Season2 & "' AS DATETIME)) "
End If
End If
If Request.Form("Depart_Airport_Code") <> "" Then
SQL = SQL & " AND (OB_Departure_Airport = '" & SafeSQL(Request.Form("Depart_Airport_Code")) & "') "
ElseIf Request.QueryString("Depart_Airport_Code") <> "" Then
SQL = SQL & " AND (OB_Departure_Airport = '" & SafeSQL(Request.QueryString("Depart_Airport_Code")) & "') "
RowLimit = 999
End If
If Request.Form("Board") <> "" Then SQL = SQL & " AND (Board = '" & SafeSQL(Request.Form("Board")) & "') "
If Request.Form("Duration") <> "" Then SQL = SQL & " AND (Duration = '" & SafeSQL(Request.Form("Duration")) & "') "
SQL = SQL & "GROUP BY OB_Depdate, Duration, OB_Departure_Airport " _
& "ORDER BY Prio, (CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME)), (CAST(Adult_Price AS UNSIGNED))"
Set RS = Conn.Execute(SQL)
If RS.EOF Then
%>
| please call <%=PhoneNo%> for special offers to Magda Hotel 4* |
<% Else %>
| Departures from
<% For i = 0 To UBound(Airports) %>
<% If Trim(Airports(i) & " ") <> "" Then %>
• <%=AirportName(Airports(i))%>
<% End If %>
<% Next %>
|
<%
i = 0
Do While Not RS.EOF
ThisAirport = Trim(RS("Depart_Airport_Code"))
ThisMonth = DatePart("m", CDate(RS("Depart_Date")))
ThisURL = Trim(RS("URL"))
ThisURL = Replace(ThisURL, "holidays1.asp", "packages1.asp")
ThisURL = Replace(ThisURL, "&NoAdults=", "&NumRooms=1&NoAdults_1=")
ThisURL = Replace(ThisURL, "&NoChildren=", "&NoChildren_1=")
ThisURL = Replace(ThisURL, "&NoInfants=", "&NoInfants_1=")
ThisURL = Replace(ThisURL, "&Resort=&", "&Resort=GOU&")
ThisURL = Replace(ThisURL, "&", "&")
%>
<% If StrComp(ThisAirport, LastAirport, vbTextCompare) <> 0 Then %>
|
| Departures from <%=AirportName(Trim(RS("Depart_Airport_Code")))%> |
<% i = 0 %>
<% End If %>
<% If (StrComp(ThisMonth, LastMonth, vbTextCompare) <> 0) And (Request.QueryString("Depart_Airport_Code") <> "") Then %>
| |
| <%=MonthName(ThisMonth)%> |
<% End If %>
<% If i < RowLimit Then %>
>
" class="Text"><%=FormatDate(RS("Depart_Date"), "Y")%> |
<%=StarRatingImage(RS("Star_Rating"))%> |
<%=BoardBasis(RS("Board"))%> |
<%=Trim(RS("Duration"))%> nights |
" class="Text">fr
£ <%=FormatNumber((CDbl(RS("Price")) / 100), 0)%>  |
<% End If %>
<% If i = RowLimit Then %>
">
| " class="Headline" onClick="document.getElementById('More_<%=Trim(RS("Depart_Airport_Code"))%>').style.display='block';document.getElementById('MoreLink_<%=Trim(RS("Depart_Airport_Code"))%>').style.display='none';">Show more holidays from <%=AirportName(Trim(RS("Depart_Airport_Code")))%> |
<% End If %>
<%
LastAirport = ThisAirport
LastMonth = ThisMonth
i = i + 1
RS.MoveNext
Loop
End If
Set RS = Nothing
%>
<% Else %>
<%
SQL = "SELECT DISTINCT SUBSTRING(OB_Depdate, 4, 2) AS Month, SUBSTRING(OB_Depdate, 7, 4) AS Year " _
& "FROM Libra_Lates.AVLABL " _
& "WHERE (Country NOT LIKE 'holiday country') AND (Accom_Code = '4978') " _
& "GROUP BY SUBSTRING(OB_Depdate, 4, 2), SUBSTRING(OB_Depdate, 7, 4) " _
& "ORDER BY CAST(CONCAT(SUBSTRING(OB_Depdate, 7, 4), SUBSTRING(OB_Depdate, 4, 2)) AS UNSIGNED)"
Set RS = Conn.Execute(SQL)
If Not RS.EOF Then
%>
To find your holiday to Magda Hotel 4*, click on price below or use the search box on the right of the page.
<%
Months = RS.GetRows()
ReDim Cols(UBound(Months, 2))
SQL = "SELECT MIN(CAST(Adult_Price AS UNSIGNED)) AS Price, Country, Area, Resort, SUBSTRING(OB_Depdate, 4, 2) AS Month, SUBSTRING(OB_Depdate, 7, 4) AS Year, Airport_Prio.Airport_Code " _
& "FROM Libra_Lates.AVLABL " _
& "INNER JOIN Libra_Lates.Board_Prio ON Libra_Lates.AVLABL.Board = Libra_Lates.Board_Prio.Board_Code " _
& "INNER JOIN Libra_Lates.Airport_Prio ON Libra_Lates.AVLABL.OB_Departure_Airport = Libra_Lates.Airport_Prio.Airport_Code " _
& "WHERE (Country NOT LIKE 'holiday country') AND " _
& "(CAST(CONCAT('20', SUBSTRING(OB_Depdate, 7, 2), '-', SUBSTRING(OB_Depdate, 4, 2), '-', SUBSTRING(OB_Depdate, 1, 2)) AS DATETIME)) > (CAST('" & DatePart("yyyy", DateAdd("d", 1, Now())) & "-" & Right("00" & DatePart("m", DateAdd("d", 1, Now())), 2) & "-" & Right("00" & DatePart("d", DateAdd("d", 1, Now())), 2) & "' AS DATETIME)) AND " _
& "(Board_Prio.Prio > 1) AND (Board_Prio.Prio < 7) AND (Accom_Code = '4978') " _
& "GROUP BY Airport_Prio.Airport_Code, SUBSTRING(OB_Depdate, 4, 2) " _
& "ORDER BY Airport_Prio.Prio, CAST(CONCAT('20', SUBSTRING(OB_Depdate, 7, 4), SUBSTRING(OB_Depdate, 4, 2)) AS UNSIGNED), MIN(CAST(Adult_Price AS UNSIGNED))"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.CursorLocation = 3 ' adUseClient
RS.Open SQL, Conn
i = 0
k = 0
If RS.EOF Then
%>
| please call <%=PhoneNo%> for our latest holiday deals. |
<% Else %>
| |
<% For j = 0 To UBound(Months, 2) %>
<%=MonthName(CDbl(Months(0, j)), True)%> |
<% Next %>
<%
Do While Not RS.EOF
ThisAirport = Trim(RS("Airport_Code"))
If StrComp(ThisAirport, LastAirport, vbTextCompare) <> 0 Then
i = 0
k = k + 1
End If
RS.MoveNext
If Not RS.EOF Then
NextAirport = Trim(RS("Airport_Code"))
Else
NextAirport = ""
End If
RS.MovePrevious
'CurCol = j
'CurCol = CDbl(RS("Month")) - Month(Now()) : If CurCol < 0 Then CurCol = CurCol + 11
CurCol = 0
For j = 0 To UBound(Months, 2)
If (CDbl(Months(0, j)) = CDbl(RS("Month"))) And (CDbl(Months(1, j)) = CDbl(RS("Year"))) Then
CurCol = j
Exit For
End If
Next
Cols(CurCol) = RS("Month") & ":" & RS("Year") & ":" & Trim(RS("Price"))
If StrComp(ThisAirport, NextAirport, vbTextCompare) <> 0 Then
%>
>
<%=AirportName(ThisAirport)%> |
<% For j = 0 To UBound(Cols) %>
<%
If Trim(Cols(j) & " ") <> "" Then
TempArr = Split(Cols(j), ":", -1, 1)
%>
from <%=AirportName(ThisAirport)%>">£<%=FormatNumber((CDbl(TempArr(2)) / 100), 0)%> |
<% Else %>
--- |
<% End If %>
<% Next %>
<% ReDim Cols(UBound(Months, 2)) %>
<% i = i + 1 %>
<% End If %>
<%
LastAirport = ThisAirport
RS.MoveNext
Loop
End If
Set RS = Nothing
%>
<% End If %>
<% End If %>
<% End If %>
Location
200m from the resort centre, 80m from beach.
Facilities
· Reception · 2 swimming pools · lounge · restaurant · bar · snack bar · TV room · disco · souvenir shop · indoor pool · fitness room* · sauna* · indoor Jacuzzi* · outdoor Jacuzzi · tennis* · mini-golf*
Children Facilities
· Mini-club* · playground
Entertainment
Full daily entertainment and animation programme, BBQ's and Greek evenings
Accommodation
Bedrooms (2/3/4 adults) with twin beds, bathroom, satellite TV, direct dial telephone, air-conditioning, hairdryer, radio, safety deposit box*, mini fridge and balcony. Family Rooms (5 adults) facilities as above, with separated bedroom
Board Basis
Prices are based on 2 adults sharing a twin room on half board.
Supplements
Full board, family room, single room.
All Inclusive
Guests on all-inclusive basis can have free of charge:Drinks (from 10.00 to 24.00)Soft drinks, some juices (not fresh), filter coffee, tea, beer, wine by glass or carafe, whiskey, vodka, gin, rum, tequila, raki, ouzo, brandy and some fruit-tasted liquors.All above alcoholic drinks are locally produced and served also as long drinks.FoodBreakfast, lunch and dinner, all buffet style.Ice cream for children from 10.00 to 22.00.Coffee and cake are served in the afternoon.SportsFitness room, table-tennis, tennis, mini golf, fun ball - badminton, basketball, volleyball, boccia, darts. Archery during the animation hours. The outdoor Jacuzzi on standard hours.
No of Rooms
121
No of Floors
2
Official Rating
4 star
Additional Information
* Payable locally
Taxi
Available at a supplement
Hotels in Crete Gouves
Magda Hotel 4*,
Lavris Hotel 4*,
