%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Biblioteca Dim Biblioteca_numRows Set Biblioteca = Server.CreateObject("ADODB.Recordset") Biblioteca.ActiveConnection = MM_bdSITE_STRING Biblioteca.Source = "SELECT * FROM Biblioteca ORDER BY Titulo ASC" Biblioteca.CursorType = 0 Biblioteca.CursorLocation = 2 Biblioteca.LockType = 1 Biblioteca.Open() Biblioteca_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Biblioteca_numRows = Biblioteca_numRows + Repeat1__numRows %>
Biblioteca CORQUIVEN
Biblioteca especializada en el mundo de la Quimica. CORQUIVEN pone al alcance de todos sus clientes y relacionados esta interesante biblioteca con el objeto de compartir conceptos y aportar conocimientos especializados.
<% While ((Repeat1__numRows <> 0) AND (NOT Biblioteca.EOF)) %> target=<%=(Biblioteca.Fields.Item("Target").Value)%>><%=(Biblioteca.Fields.Item("Titulo").Value)%> target=<%=(Biblioteca.Fields.Item("Target").Value)%> class="Estilo1">
<%=(Biblioteca.Fields.Item("DescBreve").Value)%>
—————————————————————————————————————————————