Rezarvation



<%@ LANGUAGE="VBSCRIPT" %> Ylçe Listeleme
<% '----------- sayfadan gelen parametreler alynyyor. il="" ilce="" ilce_kodu="" ilkodu2="" ilce_kodu=Request.Form("ilce_kodu") ilkodu2=Request.Form("il_kodu2") gonder=Request.Form("gonder") boncuk=5 if gonder<>"0" then '------------ veri tabany ba?lantysy yapylyyor. Set VT = Server.CreateObject("ADODB.Connection") VT.Open=("Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & Server.MapPath("siteyonetim/db/dbtitco445.mdb")) %>
<% '------------- Seçilen ilin ilçelerinin listelenmesi if ilkodu2 <> "" then SQL2="SELECT baslik,kategori FROM icerik WHERE bolum="&ilkodu2&" ORDER BY baslik" Set ilceVeriSeti=VT.Execute(SQL2) %> <% end if%> <% if ilce_kodu<>"" then%> <% end if%>
İl Seçiniz
Otel Seçiniz
İsim Soyad
Kişi Sayısı
Rezervasyon Tarihi
<% VT.Close Set VT=Nothing else msg_txt = msg_txt & "
yl:
" & Request.form("il") msg_txt = msg_txt & "
otel:
" & Request.form("ilce") msg_txt = msg_txt & "
ad:
" & Request.form("ad") msg_txt = msg_txt & "
kisi sayysy
" & Request.form("sayi") msg_txt = msg_txt & "
Rezervasyon Tarihi:" & Request.form("tarih") kime = "ataman5@hotmail.com" Set ObjMail = server.CreateObject("Persits.MailSender") ObjMail.IsHTML = True ObjMail.Host ="mail.gunayataman.info" ObjMail.From = "deneme@gunayataman.info" 'ilgili hosttan aldy?ynyz mail adresi ObjMail.Username = "deneme@gunayataman.info" ' from ile ayny ObjMail.Password = "osman" 'hosttan alynan mail adresinin ?ifresi ObjMail.FromName ="ArtMedikal Iletisim Formu" ObjMail.Subject= "ArtMedikal Iletisim Formu" ObjMail.AddAddress kime ObjMail.Body = msg_txt ObjMail.SEnd response.Redirect("talepformu_gonderildi.html") end if %>




 Barbaros Bulvarı Koç Apt. No: 161 Kat: 4/8 Balmumcu - ISTANBUL - TURKEY
 Phone : 0 212 274 35 52 - 267 48 92 - 274 36 01 Fax : 0 212 274 35 44 - 267 47 78      
E-mail :
bita@bitaturizm.com      
BAWAB INTERNATIONAL TOOURISM & TRAVEL AGENCY