<%
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%>
        <%