Foros del Web - pregunta de para paginación

Foros del Web (http://www.forosdelweb.com/)

- ASP Clásico (http://www.forosdelweb.com/f15/)

- - pregunta de para paginación (http://www.forosdelweb.com/f15/pregunta-para-paginacion-602188/)

pregunta de para paginación

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>

Respuesta: pregunta de para paginación

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!!!

Respuesta: pregunta de para paginación

cuentanos que es exactamente:

Cita:

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

Respuesta: pregunta de para paginación

Cita:

Iniciado por JuanRAPerez (Mensaje 2474141)

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

Respuesta: pregunta de para paginación

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>