Ver Mensaje Individual
  #4 (permalink)  
Antiguo 11/01/2008, 19:05
Avatar de flaviovich
flaviovich
 
Fecha de Ingreso: agosto-2005
Ubicación: Lima, Peru
Mensajes: 2.951
Antigüedad: 19 años, 8 meses
Puntos: 39
Re: Funcion para mostrar combos anidados

Bueno, la funcion final me quedo asi:
Código PHP:
function cambia(oCntrl)
{
  
oCntrl.length=0
  
switch (document.getElementById("marca").selectedIndex)
  {
  <%
    
dim rs_marcars_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, " ", 'Seleccione un modelo', 0);" vbCR
      
Do While Not rs_modelo.EOF
        detModelos
=detModelos "addOpt(oCntrl, " ", '" rs_modelo("dsc_modelo") & "', " rs_modelo("cod_modelo") & ");" vbCR
        j 
1
        rs_modelo
.MoveNext
      Loop
      Response
.Write detModelos
      End 
If
    %>
      break; 
  <%
    
1
    rs_marca
.MoveNext
    Loop
    End 
If
  %>
  } 

Espero que a alguien le sirva.
__________________
No repitamos temas, usemos el Motor de busquedas
Plantea bien tu problema: Ayúdanos a ayudarte.