Funcion para mostrar combos anidados

[flaviovich]

Amigos, tengo un formulario con 2 combos anidados (marca y modelo de auto).
Se que para muchos esto es facil. Ya tengo avanzado mi script, solo que me he truncado en un error.

Código PHP:

  function cambia(oCntrl) 
{ 
  switch (document.getElementById("marca").selectedIndex) 
  { 
  <% 
    dim i,j 
    i = 0 
    Set rs_marca = SQLQuery(cnnDB, "SELECT * FROM marcas ORDER BY cod_marca ASC") 
    If Not rs_marca.EOF Then 
    Do While Not rs_marca.EOF 
  %> 
    case <% = i %>: 
    <% 
      j = 0 
      Set rs_modelo = SQLQuery(cnnDB, "SELECT * FROM marca_modelos WHERE cod_marca=" & rs_marca("cod_marca") & " ORDER BY dsc_modelo ASC") 
      If Not rs_modelo.EOF Then 
      Do While Not rs_modelo.EOF 
    %> 
      addOpt(oCntrl, <% = j %>, "<% = rs_modelo('dsc_modelo') %>", "<% = rs_modelo('cod_modelo') %>"); 
    <% 
        j = j + 1 
        rs_modelo.MoveNext 
      Loop 
    %> 
      break;  
  <% 
    i = i + 1 
    rs_marca.MoveNext 
    Loop 
  %> 
  }  
}  
   

El error me da en esta linea:

addOpt(oCntrl, <% = j %>, "<% = rs_modelo('dsc_modelo') %>", "<% = rs_modelo('cod_modelo') %>");

Esta funcion la he tomado de la faq 105.- Selects. Solo que ahi tienen el segundo combo con los datos fijos y yo quiero que sea dinamico.
Alguien podria ayudarme con este problema?
Gracias!

[m4xp0wer]

Te sobran los tags de asp dentro de la función:

addOpt(oCntrl, j , rs_modelo('dsc_modelo') , rs_modelo('cod_modelo') )

ya me contarás si te funciona

[flaviovich]

No creo que esa sea la solucion, ya que esos son objetos manejados en ASP y no en javascript.
Lo que quiero lograr es que aparezca algo asi:

case 0:
addOpt(oCntrl, 0, "Corolla", "1");
addOpt(oCntrl, 1, "Yaris", "9");
addOpt(oCntrl, 2, "Prado", "12");
break;
case 1:
addOpt(oCntrl, 0, "Tiida", "2");
addOpt(oCntrl, 1, "Sentra", "3");
addOpt(oCntrl, 2, "Sunny", "4");
break;

[flaviovich]

Bueno, la funcion final me quedo asi:

Código PHP:

  function cambia(oCntrl) 
{ 
  oCntrl.length=0 
  switch (document.getElementById("marca").selectedIndex) 
  { 
  <% 
    dim rs_marca, rs_modelo 
    dim i, j 
    i = 0 
    Set rs_marca = SQLQuery(cnnDB, "SELECT * FROM marcas ORDER BY cod_marca ASC") 
    If Not rs_marca.EOF Then 
    Do While Not rs_marca.EOF 
  %> 
    case <% = rs_marca("cod_marca") %>: 
    <% 
      dim detModelos 
      j = 1 
      Set rs_modelo = SQLQuery(cnnDB, "SELECT * FROM marca_modelos WHERE cod_marca=" & rs_marca("cod_marca") & " ORDER BY dsc_modelo ASC") 
      If Not rs_modelo.EOF Then 
      detModelos="addOpt(oCntrl, " & 0 & ", 'Seleccione un modelo', 0);" & vbCR 
      Do While Not rs_modelo.EOF 
        detModelos=detModelos & "addOpt(oCntrl, " & j & ", '" & rs_modelo("dsc_modelo") & "', " & rs_modelo("cod_modelo") & ");" & vbCR 
        j = j + 1 
        rs_modelo.MoveNext 
      Loop 
      Response.Write detModelos 
      End If 
    %> 
      break;  
  <% 
    i = i + 1 
    rs_marca.MoveNext 
    Loop 
    End If 
  %> 
  }  
}  
   

Espero que a alguien le sirva.