Dilerseniz Beşkonak Köprülü Kanyon Antalya'da Rafting Turumuz için buradan ön rezervasyon yapabilirsiniz.Rezervasyon esnasında kredi karti bilgileri istenmemektedir.Hızlı ve Kolay Rafting Tur rezervasyon Formumuzu doldurup bize gönderebilirsiniz.Bilgileriniz tarafımıza ulaşır ulaşmaz yetkili arkadaşlarımız size, belirttiğiniz telefon numarasından dönüş yapacak ve rafting tur kaydınzı teyid edeceklerdir.
İ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
%>
