<%@LANGUAGE="VBSCRIPT" CODEPAGE="1253"%> Small Cyclades
 Ποιοι είμαστε     Επικοινωνία     Διαφημιστείτε
Αναζήτηση:  
<% Euro=date EuroDate =day(Euro) & "/" & month(Euro) & "/" & year(Euro) response.write EuroDate %>
<% Response.write FormatDateTime(now(),4) %>
c
 
Χάρτης
Ταυτότητα
Ιστορία
Αξίζει να δείτε
Ενδιαφέροντα
Παραλίες
Φωτογραφίες
Συγκοινωνίες
Διαμονή
Εστιατόρια
Καφέ-Ποτό
Καταστήματα
Υπηρεσίες
 
Άλλα νησιά
Links
   
   
   
   
 10 λόγοι που αξίζει να προβληθείτε σε μας…
<% 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.from=request("email") 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 Set objEmail = Nothing response.write "Το τμήμα διαφήμισης του Small Cyclades .com θα επικοινωνήσει μαζί σας το συντομότερο δυνατό για να σας ενημερώσει για το κατάλληλο πρόγραμμα και το κόστος, ικανοποιώντας έτσι την όποια ανάγκη σας." %>

 


  Διαφημιστείτε


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

" end if %>