<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> Advertise your business in Cyclades islands
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
   
   
   
   
 Advertise With Us
<% Dim objEmail sname=request("name") location=request("location") category=request("category") website=request("website") contactperson=request("contactperson") telephone=request("telephone") mobile=request("mobile") fax=request("fax") email=request("email") comments=request("comments") Set objEmail = CreateObject("CDONTS.NewMail") objEmail.To = "liakopoulos@hotmail.com" objEmail.from="tade@tade.gr" 'objEmail.To = "advertise@smallcyclades.com" objEmail.Subject ="email submitted by web site`s form" objEmail.Body ="E-mail submitted from web site`s form:" & "Name: " & sname & vbnewline & "Location: " & location & vbnewline & "Category: " & category & vbnewline & "Web site: " & website & vbnewline & "Contact person: " & contactperson & vbnewline & "Telephone: " & telephone & vbnewline & "Mobile: " & mobile & vbnewline & "Fax: " & fax & vbnewline & "E-mail: " & email & vbnewline & vbnewline & "Comments: " & comments objEmail.Send response.write "The form has been submitted.A small cyclades representative will contact with you soon." %>

 


  Back to advertise with us


<% myDSN="DRIVER={MySQL ODBC 3.51 Driver}; SERVER=smallcycl.ipowermysql.com; DATABASE=ferrari_default; UID=ferrari;PASSWORD=VXJjMXwm; OPTION=3" set myconnection=server.createobject("adodb.connection") myconnection.open myDSN 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 %>