<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> Small Cyclades
About Us Contact Us Advertise With Us
Search:  
<% Euro=date EuroDate =day(Euro) & "/" & month(Euro) & "/" & year(Euro) response.write EuroDate %>
<% Response.write FormatDateTime(now(),4) %>
c
 
Map
Small Cyclades
History-Culture
What to see & do
Leisure
Beaches
Photo Gallery
Travel
Accommodation
Eating
Cafes - Bars
Shopping 
Useful
 
Other Greek Isles
Links
   
   
   
   
Search


<% myDSN="DSN=smallcyclades_com;uid=ferrari;pwd=VXJjMXwm;" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN sql="SELECT * FROM cafeen where description like '%" & request("textfield") & "%' OR title like '%" & request("textfield") & "%' OR shortdes like '%" & request("textfield") & "%' OR alt like '%" & request("textfield") & "%' OR fax like '%" & request("textfield") & "%' OR email like '%" & request("textfield") & "%' OR mobile like '%" & request("textfield") & "%' OR telephone like '%" & request("textfield") & "%'" set ets=server.CreateObject("adodb.recordset") ets.open sql,myconnection do while not ets.eof %>
:: <% response.write ets.fields("title") %>::
<% if ets.fields("type")="1" then response.Write "" else if ets.fields("photo")="no" then response.Write "" else response.write " & ets.fields(" end if end if %>
<% response.write ets.fields("shortdes") %>
<% if ets.fields("telephone")<>"" then response.write "Tel: " & ets.fields("telephone") end if %>
<% if ets.fields("mobile")<>"" then response.write "Mobile: " & ets.fields("mobile") & "
" end if %> <% if ets.fields("fax")<>"" then response.write "Fax: " & ets.fields("fax") & "
" end if %> <% if ets.fields("email")<>"" then response.write "E-mail: " & ets.fields("email") & "
" end if %>

 
<% if ets.fields("type")="1" then response.write " " else response.write "  Read More" end if %>


<% ets.movenext loop %>
<% sql="SELECT * FROM hotelsen where title like '%" & request("textfield") & "%' OR shortdes like '%" & request("textfield") & "%' OR description like '%" & request("textfield") & "%' OR alt like '%" & request("textfield") & "%' OR telephone like '%" & request("textfield") & "%' OR mobile like '%" & request("textfield") & "%' OR fax like '%" & request("textfield") & "%' OR email like '%" & request("textfield") & "%'" set ets=server.CreateObject("adodb.recordset") ets.open sql,myconnection do while not ets.eof %>
:: <% response.write ets.fields("title") %>::
<% if ets.fields("type")="1" then response.Write "" else if ets.fields("photo")="no" then response.Write "" else response.write " & ets.fields(" end if end if %>
<% response.write ets.fields("shortdes") %>
<% if ets.fields("telephone")<>"" then response.write "Tel: " & ets.fields("telephone") end if %>
<% if ets.fields("mobile")<>"" then response.write "Mobile: " & ets.fields("mobile") & "
" end if %> <% if ets.fields("fax")<>"" then response.write "Fax: " & ets.fields("fax") & "
" end if %> <% if ets.fields("email")<>"" then response.write "E-mail: " & ets.fields("email") & "
" end if %>

 
<% if ets.fields("type")="1" then response.write " " else response.write "  Read More" end if %>


<% ets.movenext loop %>
<% sql="SELECT * FROM restauranten where title like '%" & request("textfield") & "%' OR shortdes like '%" & request("textfield") & "%' OR description like '%" & request("textfield") & "%' OR alt like '%" & request("textfield") & "%' OR telephone like '%" & request("textfield") & "%' OR mobile like '%" & request("textfield") & "%' OR fax like '%" & request("textfield") & "%' OR email like '%" & request("textfield") & "%'" set ets=server.CreateObject("adodb.recordset") ets.open sql,myconnection do while not ets.eof %>
:: <% response.write ets.fields("title") %>::
<% if ets.fields("type")="1" then response.Write "" else if ets.fields("photo")="no" then response.Write "" else response.write " & ets.fields(" end if end if %>
<% response.write ets.fields("shortdes") %>
<% if ets.fields("telephone")<>"" then response.write "Tel: " & ets.fields("telephone") end if %>
<% if ets.fields("mobile")<>"" then response.write "Mobile: " & ets.fields("mobile") & "
" end if %> <% if ets.fields("fax")<>"" then response.write "Fax: " & ets.fields("fax") & "
" end if %> <% if ets.fields("email")<>"" then response.write "E-mail: " & ets.fields("email") & "
" end if %>

 
<% if ets.fields("type")="1" then response.write " " else response.write "  Read More" end if %>


<% ets.movenext loop %>
<% sql="SELECT * FROM shopen where title like '%" & request("textfield") & "%' OR shortdes like '%" & request("textfield") & "%' OR description like '%" & request("textfield") & "%' OR alt like '%" & request("textfield") & "%' OR telephone like '%" & request("textfield") & "%' OR mobile like '%" & request("textfield") & "%' OR fax like '%" & request("textfield") & "%' OR email like '%" & request("textfield") & "%'" set ets=server.CreateObject("adodb.recordset") ets.open sql,myconnection do while not ets.eof %>
:: <% response.write ets.fields("title") %>::
<% if ets.fields("type")="1" then response.Write "" else if ets.fields("photo")="no" then response.Write "" else response.write " & ets.fields(" end if end if %>
<% response.write ets.fields("shortdes") %>
<% if ets.fields("telephone")<>"" then response.write "Tel: " & ets.fields("telephone") end if %>
<% if ets.fields("mobile")<>"" then response.write "Mobile: " & ets.fields("mobile") & "
" end if %> <% if ets.fields("fax")<>"" then response.write "Fax: " & ets.fields("fax") & "
" end if %> <% if ets.fields("email")<>"" then response.write "E-mail: " & ets.fields("email") & "
" end if %>

 
<% if ets.fields("type")="1" then response.write " " else response.write "  Read More" end if %>


<% ets.movenext loop %>
<% sql="SELECT * FROM estateen where title like '%" & request("textfield") & "%' OR ektasi like '%" & request("textfield") & "%' OR descr like '%" & request("textfield") & "%' OR price like '%" & request("textfield") & "%' OR alt like '%" & request("textfield") & "%' OR telephone like '%" & request("textfield") & "%' OR mobile like '%" & request("textfield") & "%' OR fax like '%" & request("textfield") & "%' OR email like '%" & request("textfield") & "%'" set ets=server.CreateObject("adodb.recordset") ets.open sql,myconnection do while not ets.eof %>
:: <% response.write ets.fields("title") %>::
<% if ets.fields("type")="1" then response.Write "" else if ets.fields("pic")="no" then response.Write "" else response.write " & ets.fields(" end if end if %>
<% response.write ets.fields("descr") %>
<% if ets.fields("telephone")<>"" then response.write "Tel: " & ets.fields("telephone") end if %>
<% if ets.fields("mobile")<>"" then response.write "Mobile: " & ets.fields("mobile") & "
" end if %> <% if ets.fields("fax")<>"" then response.write "Fax: " & ets.fields("fax") & "
" end if %> <% if ets.fields("email")<>"" then response.write "E-mail: " & ets.fields("email") & "
" end if %>

 
<% if ets.fields("type")="1" then response.write " " else response.write "  Read More" end if %>


<% ets.movenext loop %>


<% set ets3=server.CreateObject("adodb.recordset") ets3.activeconnection=myconnection 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") ets8.activeconnection=myconnection 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("des") & "

" end if %>