Hola a todosA ver si alguien me puede ayudar. Aclarar que soy "aficionadilla" que le echa mucha moral. Estoy intentando poner en mi web un menú desplegable, en el que el valor que se seleccione ha de ser el criterio de filtro para los valores que aparecerán en un segundo menú desplegable.
A su vez el valor seleccionado en ese segundo menú ha de ser el filtro que muestre los valores en una nueva página.
Para que se entienda mejor, la web es para una agencia de viajes. El primer menú mostrará los valores correspondientes a los continentes. Según el continente que se seleccione, el segundo menú mostrará los países de dichos continentes. Ambos menús deben estar en la misma página.
Y según el país seleccionado, debe aparecer una nueva página que mostrará una lista de los viajes que se ofrecen en dicho país. Creo que con esto último no tengo problemas.
El problema lo tengo con los dos menús desplegables dependientes. Después de mucho buscar he encontrado un script en www.desarrolloweb.com (muchas gracias por tan estupenda web) en el artículo de la zona ASP "Select dependientes con ASP y BBDD".
Para probarlo he integrado las mismas tablas en mi BBDD y me ocurre lo siguiente:
- Si configuro el servidor local (localhost), funciona perfectamente.
- Cuando subo la página al servidor remoto (copiada exactamente igual solo cambiando los valores del objeto conexión) ocurre lo siguiente : el primer menú se muestra correctamente y muestra los valores que están en la tabla de la BBDD. Pero cuando selecciono un valor para que se muestre el segundo menú me sale un mensaje de error diciéndome que la "Página no se encuentra"
¿ POR QUÉ? Lo he remirado un montón de veces y no soy capaz de encontrar el error.
Espero que alguien pueda echarme un cable
GRACIAS
Por si no queréis buscar el código, lo copio a continuación:
<form name=formulario>
PAÍS: <select name=idPais onChange="location.href('selects_dependientes.asp? idPais=' + formulario.idPais.options[formulario.idPais.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ssdd.mdb"))
SQL_pais="select * from paises order by pais asc"
set RS_pais=createobject("ADODB.Recordset")
RS_pais.open SQL_pais,conn
do while not RS_pais.eof
pais = RS_pais("pais")
idPais = RS_pais("idPais")
p = request.querystring("pais")
if p <> "" then
if p = pais then
response.write "<option value="&idPais&"&pais="&pais&" selected>"&pais&"</option>"
elseif p <> pais then
response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>"
end if
else
response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>"
end if
RS_pais.movenext
loop
RS_pais.close
%>
</select>
<%
if request.querystring("idPais") <> "" then %>
PROVINCIA: <select name=ubicacion>
<%
SQL_prov="select * from provincias where pais="&request.querystring("idPais")&" order by provincia asc"
set RS_prov=createobject("ADODB.Recordset")
RS_prov.open SQL_prov,conn
do while not RS_prov.eof
pais = request.querystring("pais")
provincia = RS_prov("provincia")
%>
<option value="<%=provincia%>, <%=pais%>"><%=provincia%></option>
<%
RS_prov.movenext
loop
RS_prov.close
%>
</select><% end if %></form>
