selects dependientes en asjax con asp y php

[engonga]

hola encontre este script

http://micodigobeta.com.ar/?p=487

que funciona perfectamente pero quiero ponder un "...loading" para que muestre que esta cargando y cuando cargue se muestre el siguiente select

alguien sabe como hacerlo

gracias de antemano

[Adler]

Hola

Mirando por encima el código, el segundo select está cargado desde el principio, sin opciones. Después con la respuesta se llena.
Te puedo ofrecer este otro, que aunque está en PHP es fácilmente adaptable a ASP e incluso podría modificarlo para el "loading"

Suerte

[engonga]

hola

solo se tendria que pasar a asp el fichero poblaciones_ajax.php no?

ei y muchas gracias!!!

[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