<%@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
   
   
   
   
 Φόρμα Κρατήσεων
<% dim sName, sEmail, sMessage dim oCdoMail, oCdoConf, sConfURL Dim objEmail sname=request("name") email=request("email") telephone=request("tel") armonth=request("Armonth") arday=request("Arday") aryear=request("Aryear") armonth0=request("Armonth0") arday0=request("Arday0") aryear0=request("Aryear0") message=request("message") hid=request("hid") sMessage="E-mail submitted from web site`s form:" & "Name: " & sname & vbnewline & "E-mail: " & email & vbnewline & "Telephone: " & telephone & vbnewline & "Arrival day: " & arday & vbnewline & "Arrival month: " & armonth & vbnewline & "Arrival year: " & aryear & vbnewline & "Departure day: " & arday0 & vbnewline & "Departure month: " & armonth0 & vbnewline & "Departure year: " & aryear0 & vbnewline & vbnewline & "Comments: " & message sEmail = hid Set oCdoMail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "localhost" .Fields.Item(sConfURL & "smtpserverport") = 25 .Fields.Update end with with oCdoMail .From = hid .To = hid .Subject = "My message subject" .TextBody = sMessage .HTMLBody = sMessage .Configuration = oCdoConf .Send end with Set oCdoConf = Nothing Set oCdoMail = Nothing response.write "Η φόρμα στάλθηκε με επιτυχία. Σύντομα ένας εκπροσωπός μας θα επικοινωνήσει μαζί σας." %>

  Επιστροφή στη διαμονή


<% 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 %>