<%@ LANGUAGE=VBScript CODEPAGE=1254%> <% '******************************************* '// Coded By Fatih ÜNAL '// Designer & Developer '// http://www.acoder.info '// fatih@acoder.info '// icq : 148500839 '// Creation Date : 29.01.2005 - Kütahya '******************************************* '****************************************************************************************************************************************** '// "Şehirler Arası Uzaklıklar" isimli scriptimin 1. versiyonu olan bu script Türkiye deki iller arasındaki uzaklıkları KM olarak gösterir. '// Henüz sadece şehirler arasındaki uzaklıkları göstermektedir. Tam 81 il mevcuttur. '// İnşalllah en kısa zamanda sürüm yükseltmesi ile şehirlerin yanında ilçelerde dahil edebilir ve sizlere sunabilirim. '****************************************************************************************************************************************** Option Explicit 'Değişkenleri tanımlamadıysak dur diyoruz. '(Aslında hiç bir işe yaramaz bu komut ama değişken tanımlamak kodların derlenme sürecini biraz daha hızlandırır.) Response.Buffer = true 'Server tarafındaki derlenme işlemi bitmeden istekde bulunan istemciye asla html kodları gönderilmesin diyoruz. on error resume next 'hata durumunda sıradaki komuta devam et. '******************************************* // Zaman Aşımı Ayarları '******************************************* Session.Timeout = 180 '3 dakika iyi bir rakam. Server.ScriptTimeOut = 180 'Yine 3 dakika iyi bir rakam. '******************************************* // Karakter ve Bölgesel Ayarlar '******************************************* Response.ContentType = "text/HTML" 'Derlenen kodların çıktısının ne olduğunu belirtiyoruz. Response.Charset = "windows-1254" 'Yazı tipi ayarlarını çekiyoruz. Session.LCID = 1055 'Türkiyenin Local kodu 1055 Session.CodePage = 1254 %> <% '******************************************* // B A Ş L I Y O R U Z '******************************************* Dim Baglanti, SQL, funal 'Önce değişkenlerimizi tanımlıyoruz. Set Baglanti = Server.CreateObject("ADODB.Connection") 'Sunucuya git ADO ile bağlan gel diyoruz. Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/uzakliklar.mdb") 'Veritabanı yolunu belirtiyoruz. SQL = "Select * FROM iller" 'iller isimli tablomuzu aç diyoruz. set funal = Server.CreateObject("ADODB.RecordSet") 'ADO kayıt setini aç diyoruz. funal.open SQL,Baglanti,1,3 if funal.eof then 'Veritabanında kayıt yoksa aşağıdaki mesajı yaz diyoruz. response.write "Veritabanı Boş!" & vbCrLf else %>

sitene ekle
Bulunduğunuz ili seçiniz <%Do While Not funal.eof%> <%=trim(funal("sehir"))%> <% funal.Movenext Loop %>	Gitmek istediğiniz ili seçiniz <% set funal = Server.CreateObject("ADODB.RecordSet") 'Kayıt seti yeniden açıyoruz. funal.open SQL,Baglanti,1,3 %> <%Do While Not funal.eof%> <%=trim(funal("sehir"))%> <% funal.Movenext Loop %>
<% '******************************************* // Hafiften Güvenlik Olayı Denilebilir. '******************************************* If Request.ServerVariables("REQUEST_METHOD") <> "POST" Then 'Eğer formdan gelen bilgiler POST metodu ile gelmediyse işlemi durdur diyoruz. Response.End End If if Request.Form("iladi") = "" then 'Birinci ilin değeri boş geldiyse pencereyi kapat diyoruz. Response.Write "" & vbCrLf Response.end end if if Request.Form("il2") = "" then 'İkinci ilin değeri boş geldiyse pencereyi kapat diyoruz. Response.Write "" & vbCrLf Response.end end if Dim iladi, il2, plaka 'Yine değişkenlerimizi tanımlıyoruz. iladi = Request.Form("iladi") 'Formdan gelen ilk il adını bir değişkene atıyoruz. il2 = Request.Form("il2") 'Formdan gelen ikinci il adını başka bir değişkene atıyoruz. SQL = "SELECT * from iller WHERE sehir = '" & iladi & "'" set funal = server.createobject("ADODB.Recordset") 'Yine 'ADO kayıt setini aç diyoruz. funal.open SQL,Baglanti,1,3 if funal("sehir") = "Bulunduğunuz ili seçiniz" then 'Eğer birinci il seçilmemişse mesaj kutusu çıkar ve kullanıcıyı geri döndür diyoruz. Response.write "" Response.Write "" Response.end end if if funal(il2) = "Gitmek istediğiniz ili seçiniz" then 'Eğer ikinci il seçilmemişse mesaj kutusu çıkar ve kullanıcıyı geri döndür diyoruz. Response.write "" Response.Write "" Response.end end if %> <%=iladi%> ve <%=il2%> arası <%=funal(il2)%> KM 'r.

<% '******************************************* // Bağlantıları Kapatıyoruz. '******************************************* funal.close set funal=nothing Baglanti.CLOSE SET Baglanti = NOTHING end if %>