paginación para sistema de noticias

[ric18]

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
        i = 1
            do while not rsnews.EOF
                    if norden <>  rsnews("id")then
                    response.write ("<a href='noticias.asp?id=" & "id" & " ' >" & i & "</a> &nbsp;")
        else 
            response.write(i & "&nbsp;")
            end if
                i = 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


%> 
   

[JuanRAPerez]

quiero que vaya mostrando de una en una cada noticia

eso es lo que quieres que aparezca una y desaparezca, que aparezca otra...
si es eso no es asp lo que neceistas es javascript o ajax

suerte

[i_e_s27]

Quizas esto sirva?

[Adler]

Siguiendo con lo que dice JuanRa de javascript ¿Qué tal un Marquee?

Suerte

[ric18]

Pues, estaré probando con AJAX si logro el resultado que busco, con gusto lo postearé, gracias por su tiempo.

[ric18]

Ya casi lo tengo, ahora lo que me falla es que al dar clic en cada enlace no me lleva a la noticia seleccionada, ya no entiendo que estoy haciendo mal, ¿ me podrían decir que me hace falta? Gracias

Código PHP:

  <%@LANGUAGE='VBScript'%>
<% 'Option Explicit %>
 
 <!--#include file = conecta.asp-->
 
 
<%  
 
    
    
sql = "SELECT TOP 1 id,id_grupo,titulo, sumario FROM NEWS WHERE publicar = 1 "    
        set rsnews = dbConn.Execute(sql)
    
norden = rsnews("id")
nnews = rsnews("id_grupo")    
 
 
        if    Err.number<>0 Then
            response.Write "Hubo un error en la BD"    
            response.End
    
                End if                    
 
                            
'if not rsnews.EOF then
    'response.Write "No hay noticias que mostrar"
    'response.end
    'end if
 
 
    if rsnews.EOF THEN
            response.write"no hay registros que mostrar"
        else
 Do    while Not rsnews.EOF    
link=rsnews("id") '<---  id_noticia 
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
        end if
        'rsnews.Close
        'set rsnews = nothing    
 
 
 'paginador de noticias
 
    'sql="SELECT id,id_grupo FROM NEWS where publicar = 1"
        'SET rsnewsb =dbConn.Execute(sql)
 
 
    if NOT ISNULL(norden) then
        if norden <> 0 then
Set rsnews = dbConn.Execute("SELECT MAX (id) as anterior,id,ID_GRUPO FROM NEWS where id_grupo =" & nnews & " and  publicar = 1 GROUP BY id,id_grupo")            
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
 
            
 
        i = 1
            do while not rsnews.EOF
                    if nnews <> rsnews("id")then
                    response.write ("<a href='noticias.asp?id=" & rsnews("id") & " ' >" & i & "</a> &nbsp;")
        else 
            response.write(i & "&nbsp;")
            end if
                i = i+1
                rsnews.movenext
            loop
        Set rsnews = dbConn.execute("SELECT MIN (id) as siguiente,id,ID_GRUPO FROM NEWS where id_grupo = " & nnews & " and publicar = 1 GROUP BY id,id_grupo ")
            if not rsnews.EOF and not isnull (rsnews("siguiente")) then
                    response.write("<a href=noticias.asp?id=" &  rsnews("id") &">Siguiente &nbsp;&gt</a>&nbsp;")
    end if
        end if 
end if
 
'rsnews.Close
        'set rsnews = nothing
    
 
%>