Adopta tu Mascota ::

<%@LANGUAGE="VBSCRIPT"%> <% idPagina = request.item("idpagina") idSeccion = request.item("idseccion") ''1. Inicializar el menu superior ''lo primero es mostrar los títulos habilitados para la página. strSQL = "select * from vwContenidos where idPagina=" & idPagina & " order by ordentitulo " response.write ("") set rs = Server.createObject("ADODB.recordset") rs.open strSQL, strDSN strSQL = "select * from vw_seleccionmenu where idseccion= " & idSeccion & " and idPagina=" & idPagina set rsseleccion = Server.createObject("ADODB.recordset") rsseleccion.open strSQL, strDSN set rsMenu = Server.CreateObject("ADODB.Recordset") rsMenu.ActiveConnection = strDSN rsMenu.Source = "SELECT * FROM SECCIONES order by ORDENSECCION" 'Response.Write rsMenu.Source rsMenu.CursorType = 3 rsMenu.CursorLocation = 2 rsMenu.LockType = 3 rsMenu.Open() rsMenu_numRows = 0 response.write "" %> Adopta tu Mascota ::

<% set rsMenu2 = Server.CreateObject("ADODB.Recordset") rsMenu2.ActiveConnection = strDSN rsMenu2.Source = "SELECT * FROM SECCIONES order by ORDENSECCION" 'Response.Write rsMenu.Source rsMenu2.CursorType = 3 rsMenu2.CursorLocation = 2 rsMenu2.LockType = 3 rsMenu2.Open() rsMenu2_numRows = 0 if not rsMenu2.eof then %> <% rsMenu2.MoveNext() %> <% rsMenu2.MoveNext() %> <% rsMenu2.MoveNext() %> <% rsMenu2.MoveNext() %> <%end if%>

_0,-15,24,null,'link10')" onMouseOut="MM_startTimeout();">

<%=(rsMenu2.Fields.Item("titulo").Value)%>