Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/02/2004, 09:47
Avatar de deccweb
deccweb
 
Fecha de Ingreso: febrero-2003
Ubicación: Mataro
Mensajes: 365
Antigüedad: 22 años, 2 meses
Puntos: 0
Exclamación Paginar en asp

Hola compañeros, llevo mucho tiempo intentando hacer una paginacion sobre una base de datos pero nunca me funciona, haber si me podrias ayudar. Me gustaria que se vieran 15 registros por pagina y que hubiera un link de siguiente y otro de atras. Se puede hacer para que se vea el ultimo regitro al principio?

Aqui hos dejo el codigo, muchas gracias

<%
'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";"

'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM Noticias ORDER BY id DESC"
Set result = con.Execute(sql)
'Recorre todas las filas del resultado
Do While Not result.EOF
' Muestra la fila actual
Response.Write "<table width=600 cellSpacing=1 cellPadding=3 bgcolor=""#000000""><tr><td bgcolor=""#eeeeee""><font size=1 face=verdana color=""#000000""><b>"&result.Fields("titulo")&"</b><br><br><img src=actualidad/"&result.Fields("imagen")&" align=left>" &result.Fields("noticia") & "<br><br><i>" &result.Fields("copete") & "</i></font></td></tr></table><br>"

'Pasa a la siguiente fila
result.MoveNext
Loop
'Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
__________________
Calle17.net

edgargranados.es

Última edición por deccweb; 29/02/2004 a las 14:58