????? ??µaste     ?p????????a     ??af?µ?ste?te
??a??t?s?:  
<% Euro=date EuroDate =day(Euro) & "/" & month(Euro) & "/" & year(Euro) response.write EuroDate %>
<% Response.write FormatDateTime(now(),4) %>
c
 
???t??
?a?t?t?ta
?st???a
????e? ?a de?te
??d?af????ta
?a?a??e?
F?t???af?e?
S?????????e?
??aµ???
?st?at???a
?af?-??t?
?atast?µata
?p??es?e?
 
???a ??s??
Links
   
   
   
   
????a????e? - ???????se?? s?af??
<% dim sName, sEmail, sMessage dim oCdoMail, oCdoConf, sConfURL Dim objEmail craft=request("craft") skipper=request("skipper") people=request("people") cabins=request("cabins") otherport=request("otherport") port=request("port") emmonth=request("emmonth") emday=request("emday") emyear=request("emyear") dismonth=request("dismonth") disday=request("disday") disyear=request("disyear") contact=request("contact") telephone=request("telephone") mobile=request("mobile") fax=request("fax") email=request("email") comments=request("comments") if skipper ="1" then skipper = "yes" else skipper = "no" end if if otherport <> "" then port=otherport else if port = "1" then port="Naxos" end if if port = "2" then port="Attica" end if if port = "3" then port="Koufonissia" end if end if sMessage="E-mail submitted from web site`s yachting form:" & vbnewline & "Craft: " & craft & vbnewline & "Skipper: " & skipper & vbnewline & "People: " & people & vbnewline & "Cabins: " & cabins & vbnewline & "Port: " & port & vbnewline & "Embarcation day: " & emday & vbnewline & "Embarcation month: " & emmonth & vbnewline & "Embarcation year: " & emyear & vbnewline & "Disembarcation Day: " & disday & vbnewline & "Disembarcation month: " & dismonth & vbnewline & "Disembarcation year: " & disyear & vbnewline & "Mobile: " & mobile & vbnewline & "Fax: " & fax & vbnewline & "E-mail: " & email & vbnewline & vbnewline & "Comments: " & comments sEmail = "yachting@smallcyclades.com" 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 = email .To = sEmail .Subject = "My message subject" .TextBody = sMessage .HTMLBody = sMessage .Configuration = oCdoConf .Send end with Set oCdoConf = Nothing Set oCdoMail = Nothing response.write "The form has been submitted. Our representative will contact you as soon as possible." %> <% ' Dim objEmail ' craft=request("craft") ' skipper=request("skipper") ' people=request("people") ' cabins=request("cabins") ' otherport=request("otherport") ' port=request("port") ' emmonth=request("emmonth") ' emday=request("emday") ' emyear=request("emyear") ' dismonth=request("dismonth") ' disday=request("disday") ' disyear=request("disyear") ' contact=request("contact") ' telephone=request("telephone") ' mobile=request("mobile") ' fax=request("fax") ' email=request("email") ' comments=request("comments") ' ' ' if skipper ="1" then ' skipper = "yes" ' else ' skipper = "no" ' end if ' ' if otherport <> "" then ' port=otherport ' else ' if port = "1" then ' port="Naxos" ' end if ' if port = "2" then ' port="Attica" ' end if ' if port = "3" then ' port="Koufonissia" ' end if ' end if ' 'Set objEmail = CreateObject("CDONTS.NewMail") 'objEmail.from=email 'objEmail.To = "yachting@smallcyclades.com" 'objEmail.Subject ="email submitted by web site`s form" 'objEmail.Body ="E-mail submitted from web site`s yachting form:" & vbnewline & "Craft: " & craft & vbnewline & "Skipper: " & skipper & vbnewline & "People: " & people & vbnewline & "Cabins: " & cabins & vbnewline & "Port: " & port & vbnewline & "Embarcation day: " & emday & vbnewline & "Embarcation month: " & emmonth & vbnewline & "Embarcation year: " & emyear & vbnewline & "Disembarcation Day: " & disday & vbnewline & "Disembarcation month: " & dismonth & vbnewline & "Disembarcation year: " & disyear & vbnewline & "Mobile: " & mobile & vbnewline & "Fax: " & fax & vbnewline & "E-mail: " & email & vbnewline & vbnewline & "Comments: " & comments 'objEmail.Send 'Set objEmail = Nothing ' response.write "The form has been submitted. Our representative will contact you as soon as possible." %>

 


  ?p?st??f? st? yachting


V <% myDSN="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 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 %>

mysql_select_db





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