<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> Οδηγός Κουφονησίων - Μικρές Κυκλάδες
 Ποιοι είμαστε     Επικοινωνία     Διαφημιστείτε
Αναζήτηση:  
<% Euro=date EuroDate =day(Euro) & "/" & month(Euro) & "/" & year(Euro) response.write EuroDate %>
<% Response.write FormatDateTime(now(),4) %>
c
 
Χάρτης
Ταυτότητα
Ιστορία
Αξίζει να δείτε
Ενδιαφέροντα
Παραλίες
Φωτογραφίες
Συγκοινωνίες
Διαμονή
Εστιατόρια
Καφέ-Ποτό
Καταστήματα
Υπηρεσίες
 
Άλλα νησιά
Links
   
   
   
   
Ποιοι είμαστε

Πληροφορίες Smallcyclades.com

 

Μικρές Κυκλάδες εταιρεία
· Το smallcyclades.com άρχισε να δημιουργείται το καλοκαίρι του 2006 από μία παρέα Ελλήνων φίλων με μεγάλη γνώση στον τουρισμό και το διαδίκτυο.

· "Θελήσαμε να περιγράψουμε τα μέρη που αγαπήσαμε και που επιλέγουμε εμείς για τις διακοπές μας".

· Η πολυετής εμπειρία μας σε θέματα προώθησης τουριστικών αγαθών μας καθιστά έτοιμους στη δημιουργία του πιο αξιόπιστου τουριστικού οδηγού για τις Μικρές Κυκλάδες.




Μικρές Κυκλάδες ιστοσελίδα

· Ως δημιουργοί του smallcyclades.com, ελπίζουμε η ιστοσελίδα αυτή να γίνει  βασικός φορέας ενημέρωσης, προσφέροντας ποικίλες πληροφορίες για τα υπέροχα αυτά νησιά.

· Βασικός στόχος μας είναι η ποιοτική προβολή των Μικρών Κυκλάδων και η ήπια τουριστική τους ανάπτυξη, με γνώμονα το σεβασμό στο φυσικό τους κάλλος και και στον ιδιαίτερο χαρακτήρα τους.


<% objDB="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=smallcycl.ipowermysql.com; DATABASE=ferrari_default; UID=ferrari;PASSWORD=!antihack!; OPTION=3" set myconnection=server.createobject("adodb.connection") myconnection.open objDB set ets3=server.CreateObject("adodb.recordset") rowcount2=0 sql="SELECT * FROM `dreambanner` order by priority" ets3.open sql,myconnection do while not ets3.eof if ets3.fields("typer") = "jpg" then response.write " & ets3.fields(" response.write "
" response.write "
" end if if ets3.fields("typer") = "gif" then response.write " & ets3.fields(" response.write "
" response.write "
" end if if ets3.fields("typer") = "swf" then response.write"" response.write"" response.write"" response.write" " response.write"" response.write "
" response.write "
" end if ets3.movenext loop %>

 





<% set ets8=server.CreateObject("adodb.recordset") sql8="SELECT * FROM `commentsen`" ets8.open sql8,myconnection if ets8.fields("photo")="no" then response.Write("no photo available") else response.write "
" response.write "
" & ets8.fields("desgr") & "

" end if %>

 

<% ets3.close myconnection.close set ets3 = Nothing set myconnection = Nothing %>