İllere göre ilçelerin Listesi (Uygulama)

******liste.asp******* İller : >Seçiniz <% Set objWebServ = New XMLWebServicesobjWebServ.PostURL = ""http://tckimlik.nvi.gov.tr/kpspublic.asmx""objWebServ.SoapURL = ""http://kps.nvi.gov.tr/WS/Public/IlListesiGetir""objWebServ.IlListesi()If Not CBool(objWebServ.SoapError) ThenSet objNode = objWebServ.getXML(""soap:Envelope/soap:Body/IlListesiGetirResponse/IlListesiGetirResult/IlBilgisi"")For Each Node In objNodeIf Cstr(Node.selectSingleNode(""Kod"").Text) = Cstr(Request(""SehirKodu"")) Thenstr = "" selected""elsestr = """"End ifResponse.Write(""""& Node.selectSingleNode(""Ad"").Text &""""& vbCrlf)NextSet objNode = NothingElseResponse.Write(""Bir Sorun Oluştur!"")End IfSet objWebServ = Nothing %>

İlçeler : <%If Request(""SehirKodu"") <> """" ThenSet objWebServ = New XMLWebServicesobjWebServ.PostURL = ""http://tckimlik.nvi.gov.tr/kpspublic.asmx""objWebServ.SoapURL = ""http://kps.nvi.gov.tr/WS/Public/IleBagliIlceListesiGetir""objWebServ.IleBagliIlceListesiGetir(Request(""SehirKodu""))If Not CBool(objWebServ.SoapError) ThenSet objNode = objWebServ.getXML(""soap:Envelope/soap:Body/IleBagliIlceListesiGetirResponse/IleBagliIlceListesiGetirResult/IlceBilgisi"")For Each Node In objNodeResponse.Write(""""& Node.selectSingleNode(""Ad"").Text &""""& vbCrlf)NextSet objNode = NothingElseResponse.Write(""Bir Sorun Oluştur!"")End IfSet objWebServ = NothingEnd If%>