Ver Mensaje Individual
  #3 (permalink)  
Antiguo 05/07/2004, 08:24
Avatar de franbmartinez
franbmartinez
 
Fecha de Ingreso: julio-2004
Mensajes: 24
Antigüedad: 20 años, 10 meses
Puntos: 0
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 %>