İl ilçe semt sorunu

[anemon_es]

İl ilçe semt sorunu

Arkadaşlar mrb. elimde il ilçe ve semtleri birbirine bağlanmış accessde hazırlanmış veri tabanı var. Asp ile bunları birbirine bağlamak istiyorum. denedim ama olmadı. sizede lazım olabilir.Birde siz bakarsanız çok sevinirim.Teşekkürler.

Kod: Tümünü seç

Access de veri tabanı adı :  il 
İçindeki tablolar sehir, ilçeler, semt

Sehir ----/    id ve sehir alanları
İlçeler---/    ilceid, ilçe ve sehir alanları
Semt----/      semtid, semt, ilçeid alanları

buralarda problem yok. asp kodlarında problem var.

 :?:  veri tabanı burada :?: 

http://rapidshare.com/files/61221536/il.rar


<%
dbPath = Server.MapPath("iller.mdb")
Set Baglantim = Server.CreateObject("ADODB.Connection")
Baglantim.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbPath)
%>

</td></tr><tr>
            <td align=left> 
              <table width="50%" border="2" cellspacing="0" cellpadding="0">
    <tr>
     <td height="20" align=right class="menukisi">..::Sehir </td>
      <td><select name="il" id="IlListesi" onchange="document.location.href='default.asp?SehirKodu='+ this.options[this.selectedIndex].value;">
        <% 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=1
end if%>
        <option selected>SEÇINIZ</option>
        <%

for i=1 to sehirs.recordcount
if sehirs.eof or sehirs.bof then exit for
%>
        <option value="<%=sehirs("id")%>"><%=sehirs("sehir")%>
          <%if sehirs.recordcount>0 then%>
        <%end if%>
          </option>
        <%sehirs.MoveNext
  Next %>
        <% end if%>
        <% If Request("SehirKodu") <> "" Then	%>
        <%  
aaaaa=Request("SehirKodu")
	 Set sehirs = Server.CreateObject("ADODB.RecordSet")
	 sehirs.Open "SELECT * FROM sehir where id="&aaaaa, baglantim, 1, 3
	 
	 git = Request.QueryString("git")
if git="" then 
git=1
end if%>
        <%

for i=1 to sehirs.recordcount
if sehirs.eof or sehirs.bof then exit for
%>
        <option value="<%=sehirs("id")%>"><%=sehirs("sehir")%>
          <%if sehirs.recordcount>0 then%>
        <%end if%>
          </option>
        <%sehirs.MoveNext
  Next %>
        <% end if%>
      </select></td>
    </tr>
    <tr>
     <td height="20" align=right class="menukisi">..::Ilçe</td>
      <td>
	  
	  <select name="ilce" id="IlceListesi">
        <% If Request("SehirKodu") <> "" Then	%>
        <% 
aaaaa=Request("SehirKodu")
	 Set ilce = Server.CreateObject("ADODB.RecordSet")
	 ilce.Open "SELECT * FROM ilceler where sehir="&aaaaa, baglantim, 1, 3
	 
	 git = Request.QueryString("git")
if git="" then 
git=1
end if%>
        <%

for i=1 to ilce.recordcount
if ilce.eof or ilce.bof then exit for
%>
        <option value="<%=ilce("id")%>"><%=ilce("ilce")%>
        <%if ilce.recordcount>0 then%>
        <%end if%>
        </option>
        <%ilce.MoveNext
  Next %>
        <%end if%>
      </select></td>
    </tr>
    <tr>
      <td height="20" align=right class="menukisi">&nbsp;</td>
      <td><select name="il" id="IlListesi" onchange="document.location.href='default.asp?SehirKodu='+ this.options[this.selectedIndex].value;">
        <% 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=1
end if%>
        <option selected>SEÇINIZ</option>
        <%

for i=1 to sehirs.recordcount
if sehirs.eof or sehirs.bof then exit for
%>
        <option value="<%=sehirs("id")%>"><%=sehirs("sehir")%>
          <%if sehirs.recordcount>0 then%>
        <%end if%>
          </option>
        <%sehirs.MoveNext
  Next %>
        <% end if%>
        <% If Request("SehirKodu") <> "" Then	%>
        <%  
aaaaa=Request("SehirKodu")
	 Set sehirs = Server.CreateObject("ADODB.RecordSet")
	 sehirs.Open "SELECT * FROM sehir where id="&aaaaa, baglantim, 1, 3
	 
	 git = Request.QueryString("git")
if git="" then 
git=1
end if%>
        <%

for i=1 to sehirs.recordcount
if sehirs.eof or sehirs.bof then exit for
%>
        <option value="<%=sehirs("id")%>"><%=sehirs("sehir")%>
          <%if sehirs.recordcount>0 then%>
        <%end if%>
          </option>
        <%sehirs.MoveNext
  Next %>
        <% end if%>
      </select></td>
    </tr>
  </table>  
  <p>&nbsp; </p></td>

[SerkanK]

Senin kodunda Sehir ve ilceleri birbirine ASP kodu ile baglamıssın
SQL koduyla baglantı yaparsan Daha kolay olur

SELECT * FROM sehir,ilce where sehir.id="istanbul" AND ilce.id="istanbul", baglantim, 1, 3

Sql komutunda Tırnak (") yada yazım hatası olabilir. Sen Biraz uğraşırsın ustunde.

Bu Sql komutu iki tabloyu birleştirip sanki Tek bir tablo varmış gibi yapar
Bu yuzden Kendi Asp Komutlarını Değiştirmen gerekli.
Sana Kodları Tam olarak yazmak isterdim ama ASP ile uğraşmayalı uzun zaman oldu ve İşim nedeniyle çok vaktimde yok..

[ikutluay]

Meraba

uzun uzadıya kod yazacacak durumda değilim şu an ama buna benzer bir sorunu ben şöyle aşmıştım PHP de. java script yardımıyla ve select sorgularıyla

1. comboda eğer adana seçilrse sayfa refresh edilip adres satırında il=adana bilgisi geliyordu. bu durumda ilce için "slect * from ilce where il=adana" sorgusuyla ilçeleri alıyordu.

Senin yaptığın yöntemle iş çıkmaza girer.