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



Please select the island from the list below.
Select island :    

<% pg=trim(request("pg")) pionisi=request.form("island2") if pg="" then pg=1 myDSN="DSN=smallcyclades_com;uid=ferrari;pwd=VXJjMXwm;" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN set ets=server.CreateObject("adodb.recordset") ets.activeconnection=myconnection ets.CursorType=adOpenStatic ets.Pagesize=3 rowcount=0 if pionisi=0 or pionisi="" then sql="SELECT * FROM `restauranten` ORDER BY `priority`" else sql="SELECT * FROM `restauranten` where `island` =" & pionisi end if ets.open sql,myconnection ets.Absolutepage=pg do while not ets.eof and rowcount
:: <% 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 "" end if end if %>
<% response.write ets.fields("description") %>
Tel: <% response.write ets.fields("telephone") %>

 
<% if ets.fields("type")="1" then response.write " " else response.write "Read More" end if %>
<% ets.movenext loop %>
Pages : <% for i=1 to ets.Pagecount response.write" "& i & " " next %>
Forum

 

 

Ads

 




Comments