Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/07/2003, 12:27
Avatar de Artepop
Artepop
 
Fecha de Ingreso: noviembre-2002
Ubicación: Fuengirola
Mensajes: 292
Antigüedad: 22 años, 6 meses
Puntos: 1
Paginar Tutorial

Tengo este Script ASP para mostrar los resultados de una base de datos Access en la web, me podrian ayudar para paginar los resultados de 10 en 10,

Este es el Script:

Código:
<%
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/tutoriales.mdb"))
TBL.Open "Tutoriales" ,DB
While NOT TBL.EOF
Response.Write("<b>T&iacute;tulo</b>: " & TBL("Titulo") & "<br>")
Response.Write("<b>Fecha</b>: " & TBL("Fecha") & "<br>")
Response.Write("<b>Autor</b>: " & TBL("Autor") & "<br>")
Response.Write("<b>Correo-e</b>: <a href=""mailto:" & TBL("Correo-e") & """>" & TBL("Correo-e") & "</a><br>")
Response.Write("<b>URL</b>: <a target=""_brank"" href=""../enlaces_externos/default.asp?pagina=" & TBL("URL") & """>" & TBL("URL") & "</a><br>")
Response.Write("<b>Descripci&oacute;n</b>: " & TBL("Descripcion") & "<br><br>")
TBL.MoveNext
Wend
TBL.Close
DB.Close
Set DB = Nothing
Set TBL = Nothing
%>
Gracias
__________________
http://www.mfo.com.es/