Multiples Listas Dependientes (no anda)

[horizonte]

Lo prometido es deuda dicen, aunque sea un poco tarde, lo importante es cumplir, como parte del agradecimiento a todos los que alguna vez aportamos algo.

Ante todo una aclaracion: me puse a ver todos mis post y me encontre con que habia varios que quedaron inconclusos(aunque ya fueron solucionados en su tiempo de publicacion), entonces decidi cerrar todos mis post, es decir a lo largo de todo este tiempo fui aprendiendo con ustedes(entre otras fuentes), y me parecio etico aportarles un poco de orden para que estos post sirvan a otra gente.

Este tema lo solucione asi:

Código:

<script language = "JavaScript">
<% 
Dim x1, strSQL

Set  objRS= CreateObject("ADODB.Recordset")
strSQL = "select distinct Pais, Provincia from Paises "& _
         "order by Pais"
objRS.Open strSQL, oConn

x1=0
%>
//--------------FUNCION DE COMBO BOX COMBINADO [Para el Select_Provincia]----------
function cargarProvincia(form, itemSeleccionado) {
  form.Provincia.length = 0
  //alert("La Provincia Seleccionada es: "+itemSeleccionado); [DEBUG]

<%
  count= 0
  y=0
  Do While not objRS.EOF
%>

    x1 = <%= trim(y) %>;

    subcat = new Array();
    subcatagory = "<%=(objRS("Provincia")) %>";
    subcatagoryof = "<%=(objRS("Pais"))%>";
    subcat[x1,0] = subcatagory;
    subcat[x1,1] = subcatagoryof;
    if (subcat[x1,0] == itemSeleccionado ) {
      var option<%= trim(count) %> = new Option(subcat[x1,1]);
      form.Provincia.options[form.Provincia.length]= option<%= trim(count)%>;
      form.Provincia.options[form.Provincia.length -1].value= subcat[x1,1];
    }
<%
    count = count + 1
    y = y + 1
    objRS.MoveNext
  Loop
  objRS.Close
  
%>
}
</script>

<script language = "JavaScript">
//------------------Consulta para OBTENER los Paises-----------------
<%
Dim x2, strSQL1, count, y

strSQL1 = "select * from Paises "& _
          "order by Paises"
objRS.Open strSQL1, oConn

x2=0
%>
//-------------FUNCION DE COMBO BOX COMBINADO [Para el Select_Pais]----------
function cargarPais(form, itemSeleccionado) {
  form.Pais.length = 0
  //alert("El Pais Seleccionado es: "+itemSeleccionado); [DEBUG]

<%
  count= 0
  y=0
  Do While not objRS.EOF
%>

    x2 = <%= trim(y) %>;

    subcat = new Array();
    subcatagory = "<%=(objRS("Pais")) %>";
    subcatagoryof = "<%=objRS("Pais")%>"; //Es la Categoria mas alta
    subcat[x2,0] = subcatagory;
    subcat[x2,1] = subcatagoryof;
    if("<%=objRS("Pais")%>" == itemSeleccionado) {
      var option<%= trim(count) %> = new Option(subcat[x2,1]);
      form.Pais.options[form.Pais.length]= option<%= trim(count)%>;
      form.Pais.options[form.Pais.length -1].value= subcat[x2,0];
    }
<%
    count = count + 1
    y = y + 1
    objRS.MoveNext
  Loop
  objRS.Close
%>
}
</script>
<!--...y asi sucesivamente con cuantos combos necesiten-->

Si tienen BD MUY Grandes, no les va a convenir cargar TODA la tabla, en esos casos lo expuesto anteriormente no sirve, entonces hay que usar "Remote Scripting", hay mucha documentacion para leer.

Saludos