| ||||
Este es el código de un menú desplegable que hago para mostrar los datos de una base de datos:
Código:
DO while not rs.eof %> var Op_0 = new seccion("<%= rs("NOM")%>",null,null,3) <% codigo = RS("cod") set sec = Server.CreateObject("ADODB.Recordset") sql1= "SELECT * FROM WSUBSECC WHERE ACTIVO=' ' ORDER BY COD" sec.Open sql1 , conecta , 1 , 3 sec.movefirst Do while not sec.eof if mid(sec("cod"),1,3) = codigo then%> var Op_0_0=new seccion('<%= sec("NOM")%>','muestra.asp?n=subsecciones.asp?codigo=<%=sec("COD")%>',null,0,null,'iz') <%end if sec.movenext loop %> <% rs.movenext loop %> |
| ||||
Bueno, pasando por alto el que estas creando cíclicamente objetos ("sec") sin antes haberlos destruido, suponiendo que rs tenga registros, "seccion" efectivamente cree el objeto de menú correctamente con esos parámetros, que este sobrecargado su contructor (primero mandas 4 parámetros y luego 6) y que el campo ACTIVO valga exactamente un espacio en blanco: entonces debería de funcionar. ¿Ya probaste de manera manual, sin las tablas, haber si si te crea algo? |