İl İlçe Açılan Kutusu

Herkes faydalansın diye veritabanı ve kod sistemli ben hazırladımhttp://www.muratsoft.com/kodbank/iller.rarBuda Kodları Gerçi içinde var ama sitede bulunsun <%dbPath = Server.MapPath("iller.mdb")Set Baglantim = Server.CreateObject("ADODB.Connection")Baglantim.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbPath)%> ..:: | Şehir : <% If Request("SehirKodu") = "" Then %><% Set sehirs = Server.CreateObject("ADODB.RecordSet") sehirs.Open "SELECT * FROM sehir ", baglantim, 1, 3 git = Request.QueryString("git")if git="" then git=1end if%> SEÇİNİZ <%sehirs.pagesize = 10000sehirs.absolutepage = gitsayfa = sehirs.pagecountfor i=1 to sehirs.pagesizeif sehirs.eof or sehirs.bof then exit for%> "><%=sehirs("sehir")%><%if sehirs.recordcount>0 then%> <%end if%><%sehirs.MoveNext Next %> <% end if%> <% If Request("SehirKodu") <> "" Then %><% kadir=Request("SehirKodu") Set sehirs = Server.CreateObject("ADODB.RecordSet") sehirs.Open "SELECT * FROM sehir where id="&kadir, baglantim, 1, 3 git = Request.QueryString("git")if git="" then git=1end if%> <%sehirs.pagesize = 10000sehirs.absolutepage = gitsayfa = sehirs.pagecountfor i=1 to sehirs.pagesizeif sehirs.eof or sehirs.bof then exit for%> "><%=sehirs("sehir")%><%if sehirs.recordcount>0 then%> <%end if%><%sehirs.MoveNext Next %> <% end if%>
..:: | İlçe : <% If Request("SehirKodu") <> "" Then %> <% kadir=Request("SehirKodu") Set ilce = Server.CreateObject("ADODB.RecordSet") ilce.Open "SELECT * FROM ilceler where sehir="&kadir, baglantim, 1, 3 git = Request.QueryString("git")if git="" then git=1end if%> <%ilce.pagesize = 10000ilce.absolutepage = gitsayfa = ilce.pagecountfor i=1 to ilce.pagesizeif ilce.eof or ilce.bof then exit for%> "><%=ilce("ilce")%><%if ilce.recordcount>0 then%> <%end if%><%ilce.MoveNext Next %> <%end if%>