Ver Mensaje Individual
  #1 (permalink)  
Antiguo 05/04/2010, 20:34
xhio_nihayami
 
Fecha de Ingreso: abril-2010
Mensajes: 6
Antigüedad: 14 años, 1 mes
Puntos: 0
De acuerdo Combos dependientes ASP-Javascript

Hola.
Soy nueva.
Mucho gusto, despues de que gracias a sus comentarios me han sacado de muchos apuros, hoy mas que nada les agradezco.
en muchos de sus temas he leido al respecto...pero aun asi no me ha funcionado, mi situacion es la siguiente...
Quiero hacer Combos dependientes de esta forma Pais-estado-ciudad...mucho me han hablado de Iframes, pero la vdd no se como usarlos y decidi empezar primero con hacer los combos de Pais-Estado...con este codigo:

<html><head>
<title>Paises combos de prueba</title>

<script language = "JavaScript">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\Closer.mdb"))


productos_Sql = "Select distinct id_pa, id_edo, estado from estados"
set rs = CreateObject("ADODB.Recordset")
rs.Open productos_Sql, Conn
x=0
%>
// FUNCION DE COMBO BOX COMBINADO

function sublist(inform, selecteditem)
{
inform.estados.length = 0

<%
count= 0
y=0
do while not rs.eof
%>
x = <%= trim(y) %>;

states = new Array();
estadious = "<%=(rs("id_edo"))&" "&(rs("estado")) %>";
estadisof = "<%=(rs("id_pa"))%>";
estadosid = "<%=(rs("id_edo"))%>";
states[x,0] = estadious;
states[x,1] = estadosof;
states[x,2] = estadosid;
if (states[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(states[x,0], states[x,2]);
inform.estados.options[inform.estados.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}

</script>


</head>

<body bgcolor="#CDB1B7">
<h2 align="center"><b><i><font color="#AE1732"><u>Prueba de los paises</u></font></i></b></h2>
<form name="prueba">
<div align="center">
<center>
<table border="0" width="80%">
<tr>

<td width="77%"> <select size="1" id="pais" name="pais" onChange = "javascript:sublist(this.form, pais.value);">
<option selected>Selecciona un pais</option>
<%pais_Sql = "Select distinct id_pa, pais from paises"
rs.Open pais_Sql, Conn
do while not rs.eof
%>
<option value="<%=rs("id_pa")%>"><%=rs("pais")%></option>
<%rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
</select> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp ; <select id="estados" name="estados" size="1">
<option selected value="none"></option>
</select></td>

</tr>
</table>
</center>
</div>
<center>
</form>
</center>
</body>
</html>

Cuando previsualizo la pagina, me muestra las combos, y al abrir el primer combo salen los pais que son Mexico, Canada y E.U, el problema es que cuando selecciono uno de los paises no me cambia en nada el otro combo correspondiente a los estados pertenecientes al pais seleccionado.
En la barra de estado me dice que esta listo pero con errores, he tratado de meditar el codigo y no encuentro la falla, espero puedan ayudarme.

Y orientarme en la manera para tener como producto final tres combos pais--estado--Ciudad

Por su atencion Gracias...