
05/07/2004, 08:24
|
 | | | 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 %>
|