Foros del Web » Programando para Internet » ASP Clásico »

pregunta de para paginación

Estas en el tema de pregunta de para paginación en el foro de ASP Clásico en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 02/07/2008, 12:41
 
Fecha de Ingreso: marzo-2007
Mensajes: 49
Antigüedad: 17 años, 3 meses
Puntos: 0
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")
 
sumariors("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 
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
  #2 (permalink)  
Antiguo 02/07/2008, 13:23
 
Fecha de Ingreso: abril-2008
Ubicación: México
Mensajes: 2
Antigüedad: 16 años, 1 mes
Puntos: 0
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!!!

Última edición por juanesquiz; 02/07/2008 a las 13:29
  #3 (permalink)  
Antiguo 02/07/2008, 14:04
Avatar de JuanRAPerez
Colaborador
 
Fecha de Ingreso: octubre-2003
Mensajes: 2.393
Antigüedad: 20 años, 7 meses
Puntos: 27
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
__________________
JuanRa Pérez
San Salvador, El Salvador
  #4 (permalink)  
Antiguo 02/07/2008, 14:29
 
Fecha de Ingreso: marzo-2007
Mensajes: 49
Antigüedad: 17 años, 3 meses
Puntos: 0
Respuesta: pregunta de para paginación

Cita:
Iniciado por JuanRAPerez Ver Mensaje
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 noticiasi lo cierro me marca un error de sintáxis
 titulo
rs("TITULO")
 
sumariors("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
  #5 (permalink)  
Antiguo 02/07/2008, 14:57
 
Fecha de Ingreso: marzo-2007
Mensajes: 49
Antigüedad: 17 años, 3 meses
Puntos: 0
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> 
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:11.