<%@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 %> Documento sin título

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)%>
—————————————————————————————————————————————

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Biblioteca.MoveNext() Wend %> <% Biblioteca.Close() Set Biblioteca = Nothing %>