Ulaşım Hariç Rafting Turu sadece 10 EUR
Kendi Aracı ile Rafting Turumuza katılmak isteyen Misafirlerimiz için bu programı oluşturduk.Günübirlik rafting turumuz Öğlen yemeği dahil sadece 10 EUR.
Ulaşım ve buluşma noktası ile ilgili detayları Acente personelimiz rezervasyonunuzdan sonra size bildirecektir.Tur Programı Antalya- Rafting Programımızın aynısdır.Yolcuların geldikleri araçlar için park yerimiz mevcut olup, müşterilerimizin eşyalarının tümü güven altındadır.
- Taşağıl Beldesinde bulunan Rafting buluşma noktasına getirilen misafirler, buradan 40 km ileride bulunan tesislerimize getirilirler ve burada sigorta kağıtları imzalandıktan sonra, gerekli info verilir.
- Can yelekleri giyindirilen misafirler, buradan start noktasına doğru yol alırlar. Misafirler kendi dilinde rehberlik yapan nehir klavuzlarıyla botlarındaki yerini alır ve start verilir.
- Tarihi köprülerin de bulunduğu yerler ziyaret edilerek burada isteyenler fotoğraf ve kamera çekimi yaptırırlar.
- Atlama yerlerinde yapılan animasyonlardan sonra tesislerimize ulaşılır ve nefis bir öğlen yemeği ikram edilir.
- Meyvelerin de yenilmesinden sonra misafirler tekrar botlara binerek Rafting finish noktasına doğru yol alırlar.
- Burada sergilenen fotoğraflarına bakan ve çekilen video filmlerini seyreden misafirler tur arabalarına binerek otellerine götürülmek üzere yollarına devam ederler.
Yol Durumu : Antalya ile Köprülü Kanyon arasında yer alan 95 km asfalt yoldan Rafting Turu başlangıç noktamıza ulaşabilirsiniz.Rafting Turuna katılacak olan misafirlerimize 1 Gün öncesinde Rehber telefon numaralari ve buluşma noktası hakkında bilgi verilecektir.
Tur Rezervasyonu ve Rafting Hakkında bilgi almak için bizi 0242 746 85 19 - 0242 746 85 12 nolu Telefonlarımızdan ulaşabilirsiniz.Çağrı bırakmak yada cepten ulaşmak için CEP: 0555 804 50 62
İletişim Formu
<%
'Güvenlik kodu
function TestCaptcha(byval valSession, byval valCaptcha)
dim tmpSession
valSession = Trim(valSession)
valCaptcha = Trim(valCaptcha)
if (valSession = vbNullString) or (valCaptcha = vbNullString) then
TestCaptcha = false
else
tmpSession = valSession
valSession = Trim(Session(valSession))
Session(tmpSession) = vbNullString
if valSession = vbNullString then
TestCaptcha = false
else
valCaptcha = Replace(valCaptcha,"i","I")
if StrComp(valSession,valCaptcha,1) = 0 then
TestCaptcha = true
else
TestCaptcha = false
end if
end if
end if
end function
%>
<%
ad=replace(request.form("ad"),"'","é")
posta=request.form("posta")
telefon=request.form("telefon")
konu=replace(request.form("konu"),"'","é")
icerik=replace(request.form("konu"),"'","é")
onay=request.form("onay")
tarih=now()
ip=Request.ServerVariables("REMOTE_ADDR")
btn=request.form("btn")
guvenlik=request.form("guvenlik")
if btn="Gönder" then
if TestCaptcha("ASPCAPTCHA", Request.Form("guvenlik")) then
else
msg="Güvenlik kodunu yanlış girdiniz"
giris="yok"
end if
if InStr(1,posta,"@")=0 then
msg="Geçersiz e-posta adresi!"
izin="yok"
end if
if ad="" then
msg="* ile gösterilen alanları boş bırakamazsınız"
giris="yok"
end if
if posta="" then
msg="* ile gösterilen alanları boş bırakamazsınız"
giris="yok"
end if
if icerik="" then
msg="* ile gösterilen alanları boş bırakamazsınız"
giris="yok"
end if
if izin<>"yok" then
set bnad=server.createobject("ADODB.connection")
bnad.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("veri.mdb")
sql="insert into iletisim (ad,posta,telefon,konu,icerik,tarih,ip) values ('"&ad&"','"&posta&"','"&telefon&"','"&konu&"','"&icerik&"','"&tarih&"','"&ip&"')"
set kaydet=bnad.execute(sql)
set kaydet=nothing
bnad.close
set bnad=nothing
if request.form("onay")="on" then
msg_txt = "
İletişim Formu"
msg_txt = msg_txt & "
Ad Soyad: " & Request.form("ad")
msg_txt = msg_txt & "
E-Posta: " & Request.form("posta")
msg_txt = msg_txt & "
Telefon: " & Request.form("telefon")
msg_txt = msg_txt & "
Konu:" & Request.form("konu")
msg_txt = msg_txt & "
İçerik:" & Request.form("icerik")
msg_txt = msg_txt & ""
Set Mail = Server.CreateObject("Persits.MailSender")
'Burayı kendi sunucunuza göre ayarlayın
Mail.Host = "mail.sfm-travel.com"
Mail.From = "info@sfm-travel.com"
Mail.FromName = ad
'Mailin gideceği adres
Mail.AddAddress posta
Mail.Subject = "İletişim Formuna Mesaj Geldi"
Mail.IsHTML = True
Mail.Body = msg_txt
On Error Resume Next
Mail.Send
end if
msg= "Mesaj başarılı bir şekilde Gönderildi!"
end if
end if
%>