pregunta de para paginación

[ric18]

Saludos

Después de batallar un poco con un script para paginar datos, obtuve resultados con este script, el problema que tengo es que al cambiar la estructura de como quiero que llame a los registros ya no me funciona la paginación.

¿Que error estoy haciendo?

Gracias

Código PHP:

  <&#37;@LANGUAGE='VBScript'%>

<!--#INCLUDE File="conecta.asp" -->

 
<%

Set rs=Server.CreateObject("adodb.recordset")
    
rsnews= "SELECT ID,TITULO,SUMARIO FROM NEWS"

    rs.pagesize=1
    rs.CursorLocation=3
    rs.CursorType=1

rs.Open rsnews,dbConn

 link= rs ("ID")
 linkB = "MMX_NewsD.asp?id=" &link
 titulo= rs("TITULO")
 sumario= rs("SUMARIO")



Pagina = Request.QueryString("pagina")
if pagina < "1" or pagina = "" then
      pagina = "1"
end if
if not rs.eof then
      
      rs.AbsolutePage = pagina
end if
%>
<Table width=100%>
      <TR>
            <TD>ID Noticia</TD>
            <TD>Titulo</TD>
            <TD>Resumen</TD>
      </TR>
<%

For i = 1 to 1
      
      if not rs.eof then
            
            'Response.write ("<TR><TD>"&rs("titulo")&"</TD><TD>"&rs("sumario")&"</TD></TR>")

'**** <-- Si utilizo esta linea si funciona la paginaci&#243;n-->****
            'Response.write ("<TR><TD>"&rs("ID")&"</TD><TD>"&rs("titulo")&"</TD><TD>"&rs("sumario")&"</TD></TR>")

' *** <--- Si uso esta otra ya no jala -->****

            Response.write("<table>")
            Response.write("<td>")
            Response.write("<tr><a href="&linkB&">"&titulo& "</a></tr>" ) 
            Response.Write("<tr>"&sumario& "</tr>")
            Response.Write"<tr>" &imagen& "</tr>"
            Response.Write("</td>")
            Response.Write("</table>")

         
            rs.MoveNext
      end if
next
%>
</Table>

<Table  Width="600" border="0" align="center">
      <TR>
            
            <%if pagina = "1" then%>
                  <TD width="25%" align="center"> << </TD>
                  <TD width="25%" align="center"> < </TD>
            <%else%>
                  <TD width="25%" align= "center"><a href="paginador.asp?pagina=0"> << </a></TD>
                  <TD width="25%" align= "center"><a href="paginador.asp?pagina=<%=pagina-1%>"> < </a></TD>
            <%end if%>
            
            <%if int(pagina) => rs.PageCount then%>
                  <TD width="25%" align="center"> > </TD>
                  <TD width="25%" align="center"> >> </TD>
            <%else%>
                  <TD width="25%" align= "center"><a href="paginador.asp?pagina=<%=pagina+1%>"> > </a></TD>
                  <TD width="25%" align= "center"><a href="paginador.asp?pagina=<%=rs.PageCount%>"> < </a></TD>
            <%end if%>
      </TR>
</Table>  
   

[juanesquiz]

oye el error no sera en esta linea:

linkB = "MMX_NewsD.asp?id=" &link <----- y esto que??, creo que le falta el otro & y las comillas dobles.

creo que queda asi:

linkB = MMX_NewsD.asp?id=" & link & "
.
.
.
<a href="" & linkB & "">.....

espero te funcione de algo!!!
saludos!!!
suerte!!!

[JuanRAPerez]

cuentanos que es exactamente:

el problema que tengo es que al cambiar la estructura de como quiero que llame a los registros ya no me funciona la paginación

no pagina?
no se ve bien la tabla?
da error el código?

suerte

[ric18]

Iniciado por JuanRAPerez

cuentanos que es exactamente:



no pagina?
no se ve bien la tabla?
da error el código?

suerte

Pues no pagina, aunque si me muestra los consecutivos....

con esta línea si lo hace

Código PHP:

  Response.write ("<TR><TD>"&rs("ID")&"</TD><TD>"&rs("titulo")&"</TD><TD>"&rs("sumario")&"</TD></TR>")  
   

Pero si lo cambio a esto ya no lo hace, me muestra el primer registro de la noticia, pero cuando le doy al link de siguiente ya no pasa a la segunda noticia

Código PHP:

   
 
 
Set rs=Server.CreateObject("adodb.recordset") 
     
rsnews= "SELECT ID,TITULO,SUMARIO FROM NEWS" 
 
    rs.pagesize=1 
    rs.CursorLocation=3 
    rs.CursorType=1 
 
rs.Open rsnews,dbConn 
 
 link= rs ("ID") 
 link = "MMX_NewsD.asp?id=" & link <-- Lo unico que hace es colocar el "id" de la siguiente noticia, si lo cierro me marca un error de sintáxis 
 titulo= rs("TITULO") 
 sumario= rs("SUMARIO")  
   

Despues mando llamar asi

Código PHP:

  Response.write("<table>") 
            Response.write("<td>") 
            Response.write("<tr><a href="&link&">"&titulo& "</a></tr>" )  
            Response.Write("<tr>"&sumario& "</tr>") 
            Response.Write("</td>") 
            Response.Write("</table>")  
   

O sea que cambio una línea por esto

[ric18]

Bien ya quedó solucionado el asunto, tuve que quitar las variables y dejar el código como sigue, pego todo el código por si hay alguien que lo quiera ocupar, principalmente lo pensé para colocar un sistema de noticias en la página inicial.

Código PHP:

  <%@LANGUAGE='VBScript'%> 
 
<!--#INCLUDE File="conecta.asp" --> 
 
  
<% 
 
Set rs=Server.CreateObject("adodb.recordset") 
     
rsnews= "SELECT ID,TITULO,SUMARIO FROM EWS" 
 
    rs.pagesize=1 
    rs.CursorLocation=3 
    rs.CursorType=1 
 
rs.Open rsnews,dbConn 
 
 
Pagina = Request.QueryString("pagina") 
if pagina < "1" or pagina = "" then 
      pagina = "1" 
end if 
if not rs.eof then 
      'Indicamos que pagina debe de mostrar 
      rs.AbsolutePage = pagina 
end if 
%> 
<Table width=100%> 
      <TR> 
            <TD>ID Noticia</TD> 
            <TD>Titulo</TD> 
            <TD>Resumen</TD> 
      </TR> 
<% 
 
For i = 1 to 1 
      ' 
      if not rs.eof then 
             
</TD><TD>"&rs("titulo")&"</TD><TD>"&rs("sumario")&"</TD></TR>") 
            Response.write("<table>") 
            Response.write("<td>") 
            Response.write("<tr><a href=MMX_NewsD.asp?id="&rs("id")&">"&rs("titulo")& "</a></tr>" )  
            Response.Write("<tr>"&rs("sumario")& "</tr>") 
            'Response.Write"<tr>" &imagen& "</tr>" 
            Response.Write("</td>") 
            Response.Write("</table>") 
 
 
            rs.MoveNext 
      end if 
next 
%> 
</Table> 
 
<Table  Width="600" border="0" align="center"> 
      <TR> 
             
            <%if pagina = "1" then%> 
                  <TD width="25%" align="center"> << </TD> 
                  <TD width="25%" align="center"> < </TD> 
            <%else%> 
                  <TD width="25%" align= "center"><a href="paginador.asp?pagina=0"> << </a></TD> 
                  <TD width="25%" align= "center"><a href="paginador.asp?pagina=<%=pagina-1%>"> < </a></TD> 
            <%end if%> 
            <!--navegacion hacia paginas posteriores--> 
            <%if int(pagina) => rs.PageCount then%> 
                  <TD width="25%" align="center"> > </TD> 
                  <TD width="25%" align="center"> >> </TD> 
            <%else%> 
                  <TD width="25%" align= "center"><a href="paginador.asp?pagina=<%=pagina+1%>"> > </a></TD> 
                  <TD width="25%" align= "center"><a href="paginador.asp?pagina=<%=rs.PageCount%>"> < </a></TD> 
            <%end if%> 
      </TR> 
</Table>