Greek time: <% '=greekDateTime%>

Your <%=mainKeyword%> Guide Hotels in Crete <%=sofoAds_GetAdASP("F=1&Z=10000&N=1")%>

The Complete Crete Hotel Guide for your travel in Crete. Our directory is a brief catalogue with hotels in Crete. You can find a plethora of Crete hotels accommodation. We provide useful information about Crete Hotels, Heraklion Hotels, Chania Hotels and Agios Nikolaos Hotels.

Crete Hotels, Heraklion Hotels, Chania Hotels, Rethymno Hotels, Agios Nikolaos Hotels,Lassithi Hotels, Ierapetra Hotels, Sitia Hotels, Elounda Hotels, Hotels in Crete, Hotels in Heraklion, Hotels in Chania, Hotels in Rethymno, Hotels in Agios Nikolaos, Malia Hotels, Hersonissos Hotels, Platanias Hotels, Georgioupolis Hotels, Stalida Hotels, Gouves Hotels, Gournes Hotels, Agia Marina Hotels, Agia Pelagia Hotels, Ammoudara Hotels, Kokkini Hani Hotels, Stalos Hotels, Agia Galini Hotels

Crete Hotels

Crete is a different world compared to other parts of Greece. Crete is a place with its own tradition, its own character and its own dialect. Local people are very proud of their Cretan origin. Throughout the island the remnants of occupation by invaders from the Romans, through to the Turks, can still be seen, with aqueducts and architecture still plainly visible. But throughout these invasions the Cretan people have remained relatively unscathed and retain their justifiable pride in their island and their culture. With English spoken widely throughout the island to ask a Cretan a question is to invite them to sit with you, and with time measured differently here you are likely to be sitting for while taking in long conversations that will naturally require food and drink.

Nowadays, Crete has a flourishing economy which is based partly on tourism. It has giant hotel resorts where you can enjoy splendid facilities. In the south of the island, you will find hundreds of exotic beaches, some crowded and some isolated which can satisfy any taste. Crete is famous for its fruit and vegetable production. So by visiting Crete, you have the chance to taste the world-known Cretan diet based on vegetables and pure olive oil.

If you are looking for Crete hotels you can visit the crete-guide.gr. Our Crete Hotels Guide offers you all type of hotels in the cities and villages in Crete.

To learn about crete accommodation you can visit the following pages:

Crete Hotels, Heraklion Hotels, Chania Hotels, Rethymno Hotels, Agios Nikolaos Hotels, Lassithi Hotels, Ierapetra Hotels, Sitia Hotels, Elounda Hotels, Hotels in Crete, Hotels in Heraklion, Hotels in Chania, Hotels in Rethymno, Hotels in Agios Nikolaos, Malia Hotels, Hersonissos Hotels, Platanias Hotels, Georgioupolis Hotels, Stalida Hotels, Gouves Hotels, Gournes Hotels, Agia Marina Hotels, Agia Pelagia Hotels, Ammoudara Hotels, Kokkini Hani Hotels, Stalos Hotels, Agia Galini Hotels

<% ' Local file to store XML ' You must create a blank file named "local_107552.xml" in the same ' directory as this script. It MUST be writable by the web ' server. On unix you would CHMOD 666 the file. On Windows ' you will need to access your custom control panel to set ' the permissions or contact your hosting company. Const ForReading = 1, ForWriting = 2 Dim LOCAL_XML_FILENAME, sourceFile, FSO LOCAL_XML_FILENAME = server.MapPath("local_107552.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=EPZF24MJRZOKGGEUAB7H&referer =" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set FSO = server.createObject ("Scripting.FileSystemObject") ' update local XML Dim DateMod, MonthString, DayString, DateModFile, DateModLimit DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified MonthString = Month(DateMod) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(DateMod) If (DayString < 10) Then DayString = "0" & DayString End If DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod) MonthString = Month(Date) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(Date) If (DayString < 10) Then DayString = "0" & DayString End If DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now) Dim Contents, Result, xmlhttp, TextStream ' read local XML Contents = "" Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -2) Do While Not TextStream.AtEndOfStream Contents = Contents & TextStream.ReadLine Loop TextStream.Close Set TextStream = nothing If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then ' fetch remote XML Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET", sourceFile, False xmlhttp.send "" Result = xmlhttp.responseText If (Result <> "") Then Contents = Result End If ' write new XML to local file Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True) TextStream.Write Contents TextStream.Close Set TextStream = nothing End If ' parse local XML Dim source Set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadXML(Contents) ' Output links Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText Set objLst = source.getElementsByTagName("Link") numLinks = objLst.length - 1 Response.Write("

" & BeforeText & " " & Text & " " & AfterText & "

") %>