<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next %> <% On Error Resume Next CurPage = Request.QueryString("Pagina") If CurPage = "" then CurPage = 1 'set the first page number Else CurPage = CLng(CurPage) 'make numeric! End If RowCount = 0 Dim Datos Dim Datos_numRows Set Datos = Server.CreateObject("ADODB.Recordset") Datos.ActiveConnection = MM_CasaLibertad_STRING Datos.Source = "SELECT * FROM Publicaciones ORDER BY ID DESC" Datos.CursorType = 1 Datos.CursorLocation = 2 Datos.LockType = 3 Datos.Open() Datos_numRows = 0 Datos.PageSize = 10 Datos.AbsolutePage = CurPage intCount = Datos.RecordCount %>

FUNDACION CULTURAL DEL BANCO CENTRAL DE BOLIVIA

	Publicaciones / Books <% While Not Datos.EOF and RowCount < Datos.PageSize %> <% RowCount = RowCount + 1 Datos.MoveNext() Wend %> <%=(Datos.Fields.Item("Titulo").Value)%> <%=Replace((Datos.Fields.Item("Autor").Value),VbCrLf," ")%> <%=Replace((Datos.Fields.Item("Extras").Value),VbCrLf," ")%> " border="1"> <%=Replace((Datos.Fields.Item("Descripcion").Value),VbCrLf," ")%> <%if CInt(CurPage) > 1 Then %> << Página anterior <%End if %> <%if CInt(CurPage) < Datos.PageCount Then %> Página siguiente >> <%End if %>
Derechos Reservados - Fundación Central del BCB, 2003 - 2007

<% Datos.Close() Set Datos = Nothing %>