<%@LANGUAGE="VBSCRIPT"%>
<%
' -- show.asp --
' Generates a list of uploaded files
Response.Buffer = True
dim mostrar
dim cant_paginas
dim pagina_actual
dim registro_mostrado
dim i
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("FileDB.mdb")
mostrar=2
%>
<html>
<head>
<title>Listado de noticias</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body background="background.jpg" link="#000033" vlink="#000066" alink="#006699" leftmargin="0" topmargin="10" marginwidth="0" marginheight="0" >
<table width="87%" height="153" align=center border="0" cellpadding="0 " cellspacing="4" bgcolor="#CCCC99" >
<%
If Request.QueryString("listado1.asp") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("listado1.asp"))
End If
Dim rs
dim cont
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from Files order by [ID] desc", connStr, 3, 4
cont=0
cant_paginas = RS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
' Nos movemos a la página elegida
RS.AbsolutePage = pagina_actual
' Mostramos el dato de que página estamos...
%>
<FONT SIZE="+1">Page <B><%= pagina_actual %></B> of <B><%= cant_paginas %></B></FONT>
<%
' Espacios
Response.Write "<BR><BR>" & vbCrLf
'iniciamos la tabla donde mostraremos todo
Response.Write "<TABLE BORDER=""1"">" & vbCrLf
' Mostramos los titulos de las columnas... (pueden sacar ese FOR para eliminar eso)
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD><B>"
Response.Write RS.Fields(ID).Name (se supone (para probar) que solo quiero el id)
Response.Write "<B></TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf
registro_mostrado = 0
While registro_mostrado < mostrar And Not RS.EOF
For I = 0 To RS.Fields.Count - 1
if (cont < 3) then
Response.Write vbTab & vbTab & "<TD>"
Response.Write RS.Fields(ID)
Response.Write "</TD>" & vbCrLf
end if
registro_mostrado = registro_mostrado + 1
cont = cont + 1
rs.MoveNext
next
wend
Response.Write "</TABLE>" & vbCrLf
End If
' Cerramos y limpiamos...
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%>
<a href="listado1.asp?eje=30&page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
%>
<a href="listado1.asp?eje=30&page=<%= I %>"><%= I %></a>
<%
End If
Next 'I
If pagina_actual < cant_paginas Then
%>
<a href="listado1.asp?eje=30&page=<%= pagina_actual + 1 %>">[Próximo >>]</a>
<%
End If
'Fin...
%>
</table>
</body>
</html>