selects dependientes en asjax con asp y php

[Adler]

Hola

No, tendrías que editar los dos. El archivo poblaciones sería modificarlo por esto

Comunidad: <%=Request.Form("comunidad")%><br />
Provincia: <%=Request.Form("provincia")%><br />
Ciudad: <%=Request.Form("ciudad")%><br />
Calle: <%=Request.Form("calle")%><br /><br />
<form action="poblaciones.asp" method="post">

Se usa para que una vez que sumites el formulario te muestre todo lo que has seleccionado

El archivo poblaciones_ajax, quedaría así

Código ASP:

<%@LANGUAGE="VBSCRIPT"%>
<%
Dim buscarpor, kuantosHayKcargar, oConn, rs, SQL, registros, z, titulo
 
buscarpor = Request.QueryString("mostrark")
kuantosHayKcargar = Request.QueryString("k")
 
'conexión bd
 
Select Case Int(kuantosHayKcargar)
Case 1 :
SQL ="SELECT Comunidad, Provincia, Ciudad, Calle FROM Poblaciones WHERE Comunidad LIKE '"& buscarpor &"%' GROUP BY Comunidad, Provincia, Ciudad, Calle ORDER BY Provincia asc" 
Case 2 :
SQL ="SELECT Comunidad, Provincia, Ciudad, Calle FROM Poblaciones WHERE Provincia LIKE '"& buscarpor &"%' GROUP BY Comunidad, Provincia, Ciudad, Calle ORDER BY Ciudad asc" 
Case 3 :
SQL ="SELECT Comunidad, Provincia, Ciudad, Calle FROM Poblaciones WHERE Ciudad LIKE '"& buscarpor &"%' GROUP BY Comunidad, Provincia, Ciudad, Calle ORDER BY Calle asc" 
End Select
set rs = oConn.Execute(SQL)
registros = rs.getrows()
rs.Close
Set rs = Nothing
oConn.Close
Set oConn = Nothing
 
 
Response.Write "<?xml version=""1.0"" encoding=""UTF-8""?>"
%>
 
<datos>
<%
For i = Int(kuantosHayKcargar) to 3 ' Número de selec dependientes
 
Select Case Int(i)
Case 1 :
titulo = "Provincia"
Case 2 :
titulo = "Ciudad"
Case 3 :
titulo = "Calle"
End Select
%>
    <opciones>
        <titulo>Selecciona <%=titulo%></titulo>
 
<%
For z = 0 to UBound(registros,2)
%>
        <valor><%=registros(i,z)%></valor>
        <texto><%=registros(i,z)%></texto>
<%
Next 'z
%>
    </opciones>
<%
Next 'i
%>
</datos>
 

Con respecto al "loading" ten en cuenta que tendrás que ponerlo en un lateral o encima o debajo de los select

Suerte