Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/10/2010, 12:23
igonfil
 
Fecha de Ingreso: junio-2008
Mensajes: 250
Antigüedad: 16 años, 5 meses
Puntos: 1
problemas con combos dependientes

Hola tengo un problema con un código, el cual consiste en dos combos dependientes dinámico. El problema es que no me muestra absolutamente nada en el navegador.¿a qué se puede deber? Gracias

Código PHP:

<html>

<
head>
<
title>Combos combinados</title>

<
script language "JavaScript">



<%
CONSULTA PARA OBTENER LOS DATOS
Set Conn 
Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" Server.MapPath("../Data/hard.mdb"))



productos_Sql "Select distinct familia, codigo, denominacion from articulos "
    
set rs CreateObject("ADODB.Recordset")
    
rs.Open productos_SqlConn
x
=0
%>

// FUNCION DE COMBO BOX COMBINADO

function sublist(informselecteditem)
 {
    
inform.subcatagory.length 0

    
<%
     
count0
     y
=0
     
do while not rs.eof
    
%>

    
= <%= trim(y) %>;

    
subcat = new Array();
    
subcatagorys "<%=(rs("codigo"))&" "&(rs("denominacion")) %>";
    
subcatagoryof "<%=(rs("familia"))%>";
    
subcatagoryid "<%=(rs("codigo"))%>";
    
subcat[x,0] = subcatagorys;
    
subcat[x,1] = subcatagoryof;
    
subcat[x,2] = subcatagoryid;
    if (
subcat[x,1] == selecteditem) {
      var 
option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
      
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
     }
    <%
      
count count 1
      y 
1
      rs
.movenext
     loop
    rs
.close
    
%>
}

</script>

<base target="principal">

</head>

<body bgcolor="#CDB1B7">
<h2 align="center"><b><i><font color="#AE1732"><u>El PCcillo Feliz</u></font></i></b></h2>
<form name="prueba" method="POST" action="verarticulo.asp">
<div align="center">
  <center>
<table border="0" width="80%">
  <tr>
   
    <td width="77%">
        <select size="1" id="familia" name="familia" onChange = "javascript:sublist(this.form, familia.value);">
            
            <option selected>Selecciona una familia</option>
          <%familias_Sql = "Select distinct id,familia from familias"
            rs.Open familias_Sql, Conn
            do while not rs.eof
            %>
                <option value="<%=rs("id")%>"><%=rs("familia")%></option>
                
            
            <%rs.movenext
              loop
            set rs=nothing
                conn.close
                set conn=nothing%>
            </select>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <SELECT id="subcatagory" name="subcatagory" size="1">
                        <Option selected value="none"></option>
    </SELECT></td>
    <td width="9%">
    <p align="left">
    <input border="0" src="images/submit.gif" name="I4" type="image">

    </p>

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