<% set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_asigclegis_STRING Recordset2.Source = "SELECT * FROM legislacion ORDER BY id DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 3 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Recordset4 Dim Recordset4_numRows Set Recordset4 = Server.CreateObject("ADODB.Recordset") Recordset4.ActiveConnection = MM_activekb_STRING Recordset4.Source = "SELECT * FROM activekb_Questions ORDER BY pkQuestId DESC" Recordset4.CursorType = 0 Recordset4.CursorLocation = 2 Recordset4.LockType = 1 Recordset4.Open() Recordset4_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Recordset4_numRows = Recordset4_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %>
 

Selecciona uno o varios de los campos para acotar más tu busqueda.         

Tipo: Boc Número
Dia: Mes Año
Título:

  Recuerda que si no encuentras lo que buscas, o consideras que existe algo de interes que no se encuentra en esta base de datos, por favor ponte en contacto con nosotros, con tu ayuda coneguiremos mejores resultados. Entre todos mantenemos esta base de datos y día a día sera más completa,

 ¡¡haznos llegar todo lo que consideres de intéres!!

 

NOVEDADES.
     

     
         
     
   

   
     
         
     
   

<% While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) %>

<%=(Recordset2.Fields.Item("tipo").Value)%>, <%=(Recordset2.Fields.Item("numero").Value)%>/<%=(Recordset2.Fields.Item("año").Value)%>, "><%=(Recordset2.Fields.Item("titulo").Value)%>

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Recordset2.MoveNext() Wend %>

 

   
     
         
     
   

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset4.EOF)) %>
<%=(Recordset4.Fields.Item("qTitle").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset4.MoveNext() Wend %>
   
     
         
© 2005 A.S.I.G.C. Todos los derechos reservados.Terminos de uso y privacidad.