<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> Koufonissia hotels. Villas and rooms in 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
 
small cyclades contact
Map
small cyclades koufonisia
Small Cyclades
cyclades kontakt
History-Culture
kyklades telephones
What to see & do
small cyclades islands
Leisure
cyclades contact mails
Beaches
small cyclades iraklia
Photo Gallery
mail to koufonissia
Travel
hotels rooms telephones
Accommodation
koufonissia heraklia emails
Eating
iraklia contact koufonissi
Cafes - Bars
donoussa emails shinousa
Shopping
east cyclades
Useful
 
Kyklades koufonissia
Other Greek Isles
small east islands
Links
   
   
   
   
<% whichnewa=(request("whichnew")) session("imager")=whichnewa 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 ets=server.CreateObject("adodb.recordset") sql="select * from hotelsen2 where id=" & whichnewa ets.open sql,myconnection session("iparxei")=ets.fields("photo") %>
<% response.write ets.fields("title") %>




<% if ets.fields("photo")="yes" then set ets8=server.CreateObject("adodb.recordset") sql8="SELECT * FROM photocar" & whichnewa ets8.open sql8,myconnection do while not ets8.eof %> <% if not ets8.eof then end if loop end if %>
<% if not ets8.eof then if ets8.fields("pic")="yes" then response.write "
" else response.write "
" end if ets8.movenext end if %>
<% if not ets8.eof then if ets8.fields("pic")="yes" then response.write "
" else response.write "
" end if ets8.movenext end if %>
<% if not ets8.eof then if ets8.fields("pic")="yes" then response.write "
" else response.write "
" end if ets8.movenext end if %>
<% if not ets8.eof then if ets8.fields("pic")="yes" then response.write "
" else response.write "
" end if ets8.movenext end if %>


<% response.write ets.fields("description") %>
 
<% response.write ets.fields("telephone") %>
   
<% response.write ets.fields("mobile") %>
   
<% response.write ets.fields("fax") %>
   
<% emailer=ets.fields("email") response.write emailer %>
   
  <% if request("lycos")="yes" then response.write "Back to search page" else response.write "Back to accomodation" end if %>
 
Reservation Form

 

Name:

Country:

Rooms

Adults per room

Children per room

Arrival
Departure

E-Mail:

Tel:


Comments:

 


<% 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("des") & "

" end if %>

 

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