como hacer un list box a partir de otro

[Maxon]

Nancy...

Yo hice algo asi pero muy simple...

Tengo dos tablas... una con el campo ZONA y otra con dos campo ZONA y SUB-ZONA




- - - Esto lo pones hasta arriba de la pagina - - - - es para que al seleccionar del menu desplegable solo se valla a la otra lista



<script language="JavaScript">
<!--
function MM_jumpMenu(targ,selObj,restore){ //v3.0
eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
if (restore) selObj.selectedIndex=0;
}
//-->
</script>


<%
zon = request.querystring ("zon")
%>


- - - - - - - ESTAS SON LAS CONSULTAS - - - - - -


SQL=" SELECT * FROM zona order by zona"
SQLa=" SELECT * FROM subzona where zona= '"&zon&"' or zona = 'seleccione' order by subzona"






- - - - - - - Luego este es el menu desplegable - - - - - -


<%
If zon = "" Then
Response.Write " <select class = ""search"" name=""menu1"" onChange=""MM_jumpMenu('parent',this,0)""> "
Do While not RS.eof
Response.Write "<option value='agregarraiz.asp?zon="&rs("zona")&"'>"&RS("z ona")&"</option>"
RS.movenext
Loop
Response.Write "</select>"
Else
Response.write zon
END IF
%>





- - - - - Y este es el segundo menu desplegable - - - - -


<%
If zon = "" Then
Response.Write " <select name=""subzona""> "
Response.Write "<option>"
Response.Write "</select>"
Else
Response.Write " <select name=""subzona""> "
Do While not RSa.eof
Response.Write "<option>" & RSa("subzona")
RSa.movenext
Loop
Response.Write "</select>"
End If
%>