Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/05/2005, 17:04
cristianf
 
Fecha de Ingreso: abril-2005
Mensajes: 112
Antigüedad: 20 años, 1 mes
Puntos: 0
paginacion de elementos

hola a todos: sigo intentando realizar una paginacion de un listado de noticias, he revisado infinidad de lugares, foros y buscadores (incluso nuestro gran forosdelweb) y no encuentro la respuesta. el tema es asi tengo una pagina de noticias, realice un listado y todo bien, con links a las noticias etc, el tema se me esta complicando mientras pasa el tiempo ya que me encuentro con la desicion de borrar o no noticias ya que se me hace muy largo el listado.
ya en este foro me han respondido pero no se es decir me brindaron informacion acerca de paginacion de resultados cosa que funciona bien pero no con mi sistema de noticias.
Asi que he pensado dos opciones.
1) encontrar al fin una forma de paginar mis listado de noticias.
2) especificar la cantidad de noticias que se deben mostrar.

para aclara mas el tema tengo una BD, con ID, TITULO, COPETE, NOTICIA

en mi listado solo muestro el titulo y el copete con links al despliegue de la nota a traves de este codigo.
<%
'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 "<p></b><font face=Arial size=2><a href=noticia.asp?id=" &result.Fields("id") & ">"&result.Fields("titulo")&"</a></b><br><font color=""#0085B0"">• " &result.Fields("copete") & "</font></font></p>"

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

bueno espero haber sido mas claro que la otra vez, y disculpen las molestias. espero ansioso respuestas