Ver Mensaje Individual
  #1 (permalink)  
Antiguo 16/05/2008, 11:01
ric18
 
Fecha de Ingreso: marzo-2007
Mensajes: 49
Antigüedad: 18 años, 1 mes
Puntos: 0
paginación para sistema de noticias

Saludos:

Tengo un script que publica las noticias en mi sitio, ya tengo la paginación, pero me falta un detalle, quiero que vaya mostrando de una en una cada noticia, esto con la finalidad de colocarlo en el espacio del página de inicio, ¿alguien me puede ayudar?

Gracias..

Código PHP:
<%@LANGUAGE='VBScript'%>
<% 
'Option Explicit %>
 
 <!--#include file = conecta.asp-->


<%  
    sql = "SELECT NEWS.id,NEWS.titulo,NEWS.sumario,NEWS.descripcion "
    sql = sql&"FROM news INNER JOIN "
    sql = sql&" GrupoNews ON News.ID_GRUPO = GrupoNews.ID"
    sql = sql&" WHERE GrupoNews.ID=1"
    sql = sql&" AND NEWS.publicar=1 "
    
    '
response.Write(sql)
    
'response.End
    
    set rsnews = dbConn.Execute(sql)
    
    
        if    Err.number<>0 Then
            response.Write "Hubo un error en la BD"    
            response.End
    
                End if                    

                            
if rsnews.EOF then
    response.Write "No hay noticias que mostrar"
    response.end
    end if
                
 Do    while Not rsnews.EOF    
link=rsnews("ID") '
<--- indice 
link 
"pagina_detalle.asp?id=" link
titulo
=rsnews("titulo")
sumario=rsnews("sumario")
titulo=rsnews("titulo")
sumario=rsnews("sumario")
'tmpstr = split(sumario," ")
'
for i=0 to 6 
'resumen = resumen & tmpstr(i) & " "
'
next
        
        Response
.Write"<table>"
        
Response.Write"<td>"
        
Response.Write"<tr><a href="link &">" titulo "</a></tr>"
        'Response.Write "<tr>" & titulo &"</tr>"
        Response.Write"<tr>"& sumario & "</tr>"
        Response.Write"<tr>" & imagen & "</tr>"
        Response.Write"</td>"
        Response.Write"</table>"
        
rsnews.MoveNext        
loop
        
        '
rsnews.Close
        
'set rsnews = nothing

%>

<% '
paginador de noticias
norden 
"orden"
    
Set rsnews dbConn.Execute("SELECTnews.id as anterior,NEWS.id,NEWS.titulo, NEWS.descripcion FROM news INNER JOIN GrupoNews ON News.ID_GRUPO = GrupoNews.ID WHERE GrupoNews.ID=1 AND NEWS.publicar=1 ")
if 
not rsnews.EOF and not isnull (rsnews("anterior")) then 
        response
.write(" <a href='noticias.asp?id='" rsnews("id") & "'>&nbsp;&lt anterior</a>&nbsp; ")
end if
        
1
            
do while not rsnews.EOF
                    
if norden <>  rsnews("id")then
                    response
.write ("<a href='noticias.asp?id=" "id" " ' >" "</a> &nbsp;")
        else 
            
response.write("&nbsp;")
            
end if
                
i+1
                rsnews
.movenext
            loop
        Set rsnews 
dbConn.execute("SELECT news.id as siguiente NEWS.id,NEWS.titulo, NEWS.descripcion FROM news INNER JOIN MMX_GrupoNews News.ID_GRUPO = GrupoNews.ID WHERE GrupoNews.ID=1 AND NEWS.publicar=1 ")
            if 
not rsnews.EOF and not isnull (rsnews("siguiente")) then
                    response
.write("<a href=noticias.asp?id=" &  rsnews("id") &"'>Siguiente &nbsp;&lt</a>&nbsp;")
    
end if
        
'end if 
'
end if

'rsnews.Close
        '
set rsnews nothing


%>