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