% @ 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, CurrentDB Dim Season1, Season2 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 = "Rhodes" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open LatesDatabase Searchform_SQL = "SELECT StartDate, Deppt, Arppt FROM Searchform_Defaults WHERE (Page LIKE 'Location') 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 'Location') 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 = 'Location') AND (PageName LIKE 'Rhodes') 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

|
|||||
| -holidays.htm" title="<%=PCase(Trim(RS("Hotel_Name"))) & " in " & PCase(Trim(RS("Holiday_Resort"))) & ", " & PCase(Trim(RS("Holiday_Country")))%>" class="Text"><%=PCase(Trim(RS("Hotel_Name")))%> | <%=StarRatingImage(RS("Star_rating"))%> | <%=BoardBasis(RS("Board"))%> | -holidays.htm<% If Request.QueryString("Season") = "Summer" Then Response.Write "?Season=Summer" %><% If Request.QueryString("Season") = "Winter" Then Response.Write "?Season=Winter" %>" title="<%=PCase(Trim(RS("Hotel_Name"))) & " in " & PCase(Trim(RS("Holiday_Resort"))) & ", " & PCase(Trim(RS("Holiday_Country")))%>" class="Text">fr £<%=FormatNumber((CDbl(RS("Price")) / 100), 0)%> |
||
Beaches
Dining Out
Holidays to Rhodes. As such a major holiday resort, it will come as no great surprise to hear that the island of Rhodes contains a far more than adequate selection of restaurants and eateries for tourists to choose from, offering international dishes from all around the world. If you are looking for traditional Greek dining on Rhodes, that there are plenty of tavernas and similar restaurants waiting to serve you. On restaurant menus, you can expect to find a very typical style of Mediterranean cuisine amongst a variety of many other international cuisines available.
Shopping
Rhodes offers many shopping facilities in the old town, especially gold and leather, in the new town tourist bazaars but also popular European and American shops like Benetton and Playlife and in the tourist bazaars near the Windy beach. In the old town you can find almost everything from leather bags, shoes, clothes, jewellery, towels, souvenirs, music. In the new town are many shops with popular brand names, meaning individual shops here and there. And near the beaches begin the tourist bazaars with towels, summer clothes and souvenirs. In the tourist bazaars the prices can be quite high, as everywhere in the tourist areas. In the new town, in normal shops like Terranova, you can find quite inexpensive clothes.
Out & About in Rhodes
Rhodes island, has a major port with sea links to Athens, the islands of the Aegean and Crete, as well as to international destinations such as Cyprus and Israel. Most international and inter island ferries dock at the commercial harbour of Kolona in Rhodes town, and there is a choice of high-speed catamarans, hydrofoils, car ferries or flights to other islands in the Dodecanese group. Public buses service the coastal towns around the island or it is possible to organise a bus tour for island excursions. For shorter distances shared taxis are available and Rental car agencies are easily available of which the best car hire rates are on offer with Libra Holidays.
Flights From
Transfer Time
Rhodes Town is approximately 20 minutes by coach, 15 minutes by taxi. Faliraki is 40 minutes by coach, 25 minutes by taxi. Lindos and Pefkos are two hours, 30 minutes by coach, one hour by taxi.
Resorts in Rhodes
Faliraki,
Ixia,
Kalathos,
Kolymbia,
Lardos,
Lahania,
Lindos,
Pefkos,
Tholos,