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

ayudaaaaaaa paginacion!!!!

Estas en el tema de ayudaaaaaaa paginacion!!!! en el foro de ASP Clásico en Foros del Web. Por favor necesito vuestra ayuda,tengo un formulario de busqueda y los resultados son correctos,pero no los puedo paginar.Utilizo Getrows para mostrar los resultados,pero a la ...
  #1 (permalink)  
Antiguo 29/06/2002, 12:42
 
Fecha de Ingreso: mayo-2002
Mensajes: 15
Antigüedad: 22 años, 1 mes
Puntos: 0
ayudaaaaaaa paginacion!!!!

Por favor necesito vuestra ayuda,tengo un formulario de busqueda y los resultados son correctos,pero no los puedo paginar.Utilizo Getrows para mostrar los resultados,pero a la hora DE PAGINARLOS NO PUEDOOOOOO.

Por favor ayuda, os envio el codigo:
Código:
<!--#include file="conexion_resultados.asp"-->
<html>
<head>
<title>Buscar Datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table border="0" cellpadding="0" width="528">
  <tr>
                                    <td valign="top" width="464" height="2" bgcolor="#FFFFFF">
                                      
      <table cellspacing="0" cellpadding="0" width="526" border="0" bgcolor="#FFFFFF" height="1">
        <tbody> 
        <tr bgcolor="#2d4d5f">
                                            <td width="385" height="1">
                                              
            <table cellspacing="1" cellpadding="0" width="527" border="0" height="7">
              <tbody> 
              <tr>
                                                    <td bgcolor="#759AFB" width="470" height="1">
                                                    
                  <form action="/general.asp" method="post">
                    <table cellspacing="0" cellpadding="0" width="517" border="0" height="19">
                      <tbody> 
                      <tr>
                                                            <td align="right" bgcolor="#759AFB" width="512" height="19">
                                                              <div align="center">
                                                                
                            <table border="0" cellpadding="0" cellspacing="6" width="518" height="40">
                              <tr>
                                                                    
                                <td valign="top" width="525" height="2" bgcolor="#759AFB"> 
                                  <div align="center">
                                                                        
                                            
                                    <table border="0" cellpadding="0" cellspacing="0" width="491" align="left">
                                      <tr> 
                                                <td bgcolor="#759AFB"><font size="1" face="Verdana">Busco </font></td>
                                                <td bgcolor="#759AFB"><font size="1" face="Verdana">
                                                    <select name="sexo" size="1" style="color: #004080; font-size: 10 px; font-family: Verdana; font-weight: bold">
                                                      <option selected value="Mujer">Mujer</option>
                                                    <option value="Hombre">Hombre</option>
                                                  </select>
                                                   </font></td>
                                                <td bgcolor="#759AFB"><font size="1" face="Verdana">Edad </font></td>
                                                <td bgcolor="#759AFB"><font size="1" face="Verdana">
                                                    <select name="edad" style="font-size: 10 px; font-family: Verdana; color: #004080; font-weight: bold" size="1">
                                                      <option value="18">18</option>
                                                      <option value="25">25</option>
                                                      <option value="30">30</option>
                                                      <option value="35">35</option>
                                                      <option value="40">40</option>
                                                      <option value="45">45</option>
                                                      <option value="50">50</option>
                                                      <option value="55">55</option>
                                                      <option value="60">60</option>
                                                      <option value="70">70</option>
                                                    </select>
                                                  </font></td>
                                                <td bgcolor="#759AFB"><font size="1" face="Verdana">a</font></td>
                                                  <td bgcolor="#759AFB"><font size="1" face="Verdana"> 
                                                    <select name="edad1" style="color: #004080; font-family: Verdana; font-size: 10 px; font-weight: bold" size="1">
                                                      <option value="18"><font size="1" face="Verdana">18</font></option>
                                                      <option value="25"><font size="1" face="Verdana">25</font></option>
                                                      <option value="30"><font size="1" face="Verdana">30</font></option>
                                                      <option value="35"><font size="1" face="Verdana">35</font></option>
                                                      <option value="40"><font size="1" face="Verdana">40</font></option>
                                                      <option value="45"><font size="1" face="Verdana">45</font></option>
                                                      <option value="50"><font size="1" face="Verdana">50</font></option>
                                                      <option value="55"><font size="1" face="Verdana">55</font></option>
                                                      <option value="60"><font size="1" face="Verdana">60</font></option>
                                                      <option value="70"><font size="1" face="Verdana">70</font></option>
                                                      <option value="80"><font size="1" face="Verdana">80</font></option>
                                                    </select>
                                                    </font></td>
                                                <td bgcolor="#759AFB"><font size="1" face="Verdana">De </font></td>
                                                <td bgcolor="#759AFB">
                                                    <select name="pais" onchange="load_states(this.value)" style="background-color: #ffffff; font-family: Verdana; font-size: 10 px; width: 114; height: 23; color: #004080; font-weight: bold" size="1">
                                                      <option value="España">España</option>
                                                      <option value="Francia">Francia</option>
                                                      <option value="Inglaterra">Inglaterra</option>
                                                      <option value="Irlanda">Irlanda</option>
                                                      <option value="Italia">Italia</option>
                                                      <option value="ArabiaSaudi">Arabia 
                                                      Saudí</option>
                                                      <option value="Albania">Albania</option>
                                                      <option value="Alemania">Alemania</option>
                                                      <option value="Australia">Australia</option>
                                                      <option value="Andorra">Andorra</option>
                                                      <option value="Angola">Angola</option>
                                                      <option value="Argelia">Argelia</option>
                                                      <option value="Argentina">Argentina</option>
                                                      <option value="Austria">Austria</option>
                                                      <option value="Belgica">Bélgica</option>
                                                      <option value="Bolivia">Bolivia</option>
                                                      <option value="BosniaHerzegovina">Bosnia 
                                                      Herzegovina</option>
                                                      <option value="Brasil">Brasil</option>
                                                      <option value="Bulgaria">Bulgaria</option>
                                                      <option value="Camerun">Camerún</option>
                                                      <option value="Canada">Canadá</option>
                                                      <option value="Chile">Chile</option>
                                                      <option value="China">China</option>
                                                      <option value="Chipre">Chipre</option>
                                                      <option value="Colombia">Colombia</option>
                                                      <option value="CoreaNorte">Corea 
                                                      del Norte</option>
                                                      <option value="CoreaSur">Corea 
                                                      del Sur</option>
                                                      <option value="CostaRica">Costa 
                                                      Rica</option>
                                                      <option value="Croacia">Croacia</option>
                                                      <option value="Cuba">Cuba</option>
                                                      <option value="Dinamarca">Dinamarca</option>
                                                      <option value="Ecuador">Ecuador</option>
                                                      <option value="Egipto">Egipto</option>
                                                      <option value="ElCongo">El 
                                                      Congo</option>
                                                      <option value="ElSalvador">El 
                                                      Salvador</option>
                                                      <option value="Escocia">Escocia</option>
                                                      <option value="Eslovenia">Eslovenia</option>
                                                      <option value="EstadosUnidos">Estados 
                                                      Unidos</option>
                                                      <option value="Estonia">Estonia</option>
                                                      <option value="Filipinas">Filipinas</option>
                                                      <option value="Finlandia">Finlandia</option>
                                                      <option value="Gales">Gales</option>
                                                      <option value="Gibraltar">Gibraltar</option>
                                                      <option value="Grecia">Grecia</option>
                                                      <option value="Guatemala">Guatemala</option>
                                                      <option value="Honduras">Honduras</option>
                                                      <option value="HongKong">Hong 
                                                      Kong</option>
                                                      <option value="Hungria">Hungría</option>
                                                      <option value="India">India</option>
                                                      <option value="Indonesia">Indonesia</option>
                                                      <option value="Iran">Irán</option>
                                                      <option value="Iraq">Iráq</option>
                                                      <option value="Israel">Israel</option>
                                                      <option value="Jamaica">Jamaica</option>
                                                      <option value="Japon">Japón</option>
                                                      <option value="Jordania">Jordania</option>
                                                      <option value="Kuwait">Kuwait</option>
                                                      <option value="RepublicaCheca">La 
                                                      República Checa</option>
                                                      <option value="RepublicaEslovaca">La 
                                                      República Eslovaca</option>
                                                      <option value="Letonia">Letonia</option>
                                                      <option value="Libia">Líbia</option>
                                                      <option value="Lituania">Lituania</option>
                                                      <option value="Luxemburgo">Luxemburgo</option>
                                                      <option value="Malasia">Malasia</option>
                                                      <option value="Malta">Malta</option>
                                                      <option value="Marruecos">Marruecos</option>
                                                      <option value="Mexico">Méjico</option>
                                                      <option value="Monaco">Mónaco</option>
                                                      <option value="Nepal">Nepal</option>
                                                      <option value="Nicaragua">Nicaragua</option>
                                                      <option value="Niger">Níger</option>
                                                      <option value="Nigeria">Nigeria</option>
                                                      <option value="Noruega">Noruega</option>
                                                      <option value="NuevaZelanda">Nueva 
                                                      Zelanda</option>
                                                      <option value="PaisesBajos">Países 
                                                      Bajos</option>
                                                      <option value="Pakistan">Pakistán</option>
                                                      <option value="Paraguay">Paraguay</option>
                                                      <option value="Peru">Perú</option>
                                                      <option value="Polonia">Polonia</option>
                                                      <option value="Portugal">Portugal</option>
                                                      <option value="PuertoRico">Puerto 
                                                      Rico</option>
                                                      <option value="RepublicaCentroafricana">República 
                                                      Centroafricana</option>
                                                      <option value="RepublicaCongo">República 
                                                      del Congo (Zaire)</option>
                                                      <option value="RepublicaDominicana">República 
                                                      Dominicana</option>
                                                      <option value="Rumania">Rumanía</option>
                                                      <option value="Rusia">Rusia</option>
                                                      <option value="Sudan">Sudán</option>
                                                      <option value="Suecia">Suecia</option>
                                                      <option value="Suiza">Suiza</option>
                                                      <option value="Tailandia">Tailandia</option>
                                                      <option value="Taiwan">Taiwán</option>
                                                      <option value="Tunez">Túnez</option>
                                                      <option value="Turquia">Turquía</option>
                                                      <option value="Ucrania">Ucrania</option>
                                                      <option value="Uruguay">Uruguay</option>
                                                      <option value="Venezuela">Venezuela</option>
                                                      <option value="Vietnam">Vietnam</option>
                                                      <option value="Yugoslavia">Yugoslavia</option>
                                                      <option value="Otros">Otros</option>
                                                    </select>
                                                </td>
                                                
                                        <td bgcolor="#759AFB"><b><dfn><font size="1" face="Verdana">   
                                          <input name="Buscar" style="BACKGROUND-COLOR: #77bbff; BORDER-BOTTOM-COLOR: #000096; BORDER-BOTTOM-STYLE: solid; BORDER-LEFT-COLOR: #000096; BORDER-LEFT-STYLE: solid; BORDER-RIGHT-COLOR: #000096; BORDER-RIGHT-STYLE: solid; BORDER-TOP-COLOR: #000096; BORDER-TOP-STYLE: solid; COLOR: #004080; FONT-FAMILY: Verdana; FONT-SIZE: 10px; FONT-WEIGHT: bold" type="submit" value="Buscar">
                                          </font></dfn></b></td>
                                              </tr>
                                            </table>      
                                                                      </div>
                                                                    </td>
                                                                  </tr>
                                                                </table>
                                                              </div>
                                                            </td>
                                                          </tr>
                                                        </tbody>
                                                      </table>
													  </form>
                                                    </td>
                                                  </tr>
                                                </tbody>
                                              </table>
                                      
											</td>
                                          </tr>
                                        </tbody>
                                      </table>
                                    </td>
                                  </tr>
                                  <tr>
                                    <td></td>
                                  </tr>
                                </table>
                                
<table border="0" cellpadding="0" cellspacing="3" width="525">
  <tr>
                    
    <td width="529" bgcolor="#000000"> 
      <table cellspacing="1" cellpadding="0" width="512" border="0" height="15">
        <tbody> 
        <tr>
                            
          <td bgcolor="#B5CBFB" width="526" height="15"> 
            <table border="0" cellPadding="0" cellSpacing="0" width="523">
              <tbody> 
              <tr>
                                  <td>
                                    <div align="center">
                                      <center>
                                      <table border="0" cellpadding="0" cellspacing="5">
                                        <tr>
                                              
                                              <td width="904" bgcolor="#B5CBFB">
                                                <div align="center">
                                                  <table border="0" cellpadding="0" cellspacing="0">
                                                    <tr>
                                                      
                                  <td><font face="Verdana" size="1"><b>RESULTADOS 
                                    OBTENIDOS</b></font></td>
                                                    </tr>
                                                  </table>
                                                </div>
                                              </td>
                                        </tr>
                                      </table>
                                      </center>
                                    </div>
                                  </td>
                                </tr>
                              </tbody>
                            </table>
                          </td>
                          </tr>
                        </tbody>
                      </table>
                    </td>
                  </tr>
                </table>
<% if tabla.bof and tabla.eof  then %>
<p><font face="Tahoma" size="2">  No se ha encontrado nada en la base de datos</font></p>
<%
else
aDatos = tabla.GetRows
nombre=6
edad=4
pais=10
foto=14
descripcion=15
%>
<%
Tabla.Close 
 set tabla=nothing
   Conexion.Close 
   set conexion=nothing
   %>
   <%
   pag = CInt(Request.QueryString("P"))
'Y llamo a PaginarGR
iEstado = PaginarGR (5, pag, aDatos)
'=====================================================================================
' PaginarGR -- Pagina un vector bidimensional 
' vector es el vector a paginar, iPag la página a mostrar y iRegsPorPag el nº de
' registros por cada página que queremos.
'=====================================================================================
Function PaginarGR (iRegsPorPag, iPag, aDatos)
'
'I, J se utilizan para recorrer el vector
Dim I, J 
'Total de páginas y la página que queremos mostrar
Dim iPaginas, iPagActual
'Total de registros, registro en que empezamos y registro en que terminamos
Dim iTotal, iComienzo, iFin

'Hallo el total de registros devueltos
iTotal = UBound(aDatos,2)+1
'Calculo el numero de páginas que tenemos
iPaginas = (iTotal \ iRegsPorPag)
'Si daba decimales, añado una más
'para mostrar los últimos registros
if iTotal mod iRegsPorPag > 0 then
	iPaginas = iPaginas + 1
end if
'Si no es una página válida, comienzo en la primera
if iPag < 1 then
	iPag = 1
end if
'Si es una página mayor al nº de páginas, comienzo en la última
if iPag > iPaginas then
	iPag = iPaginas
end if
'for i=0 to UBound(aDatos,2)
for I= iComienzo to iFin
	for J=0 to UBound(aDatos,2)
 response.write("<table border=""0"" cellpadding=""0"" cellspacing=""3"" width=""1"" dwcopytype=""CopyTableCell""><tr> <td width=""602"" bgcolor=""#000000""> <table cellspacing=""1"" cellpadding=""0"" width=""521"" border=""0"" height=""15""><tbody> <tr> <td bgcolor=""#FFF8D2"" width=""1215"" height=""10""><font face=""Verdana"" size=""1""><b>"&aDatos(nombre,J)&"</b></font>                           <font face=""Verdana"" size=""1""><b>"&aDatos(edad,J)&"  años</b></font>                             <font face=""Verdana"" size=""1""><b>"&aDatos(pais,J)&"</b></font></td></tr></tbody></table></td></tr>")
 response.write("<tr> <td width=""602"" bgcolor=""#000000""> <table cellspacing=""1"" cellpadding=""0"" width=""22"" border=""0"" height=""1""><tbody> <tr> <td bgcolor=""#FFFFFF"" width=""716"" height=""1""><table cellspacing=""5"" cellpadding=""0"" width=""519"" border=""0"" height=""12""><tbody><tr> <td width=""87"" height=""79""><a href=""detalle.asp?Cliente="& aDatos(id,J)&"""><img src ="""&aDatos(foto,J)&"""></td><td width=""417"" height=""79""><p align=""justify""><span class=""small""><font size=""1""face=""Verdana""><span class=""normal"">"&aDatos(descripcion,J)&"</span>..</font></span></td></tr></tbody> </table></td></tr></tbody> </table></td></tr>")
next
response.write("</tr>")
next
response.write("</table>")
'Pinto la tabla
'Response.Write("<TABLE BORDER=""1"">")

		'Response.Write("<TD>" & aDatos(J,I) & "</TD>")
	
	'next
'next
'Response.Write("</TABLE>")
Response.Write("Página " & iPag & " de " & iPaginas & " (" & iTotal & " registros)<br>")
'Calculo el índice donde comienzo:
 iComienzo = (iPag-1)*iRegsPorPag
'y donde termino:
 iFin = iComienzo + (iRegsPorPag-1)
'Si no tengo suficientes registros restantes,
'voy hasta el final
if iFin > UBound(aDatos, 2) then
	iFin = UBound(aDatos, 2)
end if


'Imprimo enlaces, si son necesarios
if iPag > 1 then
	Response.Write("<A HREF=""personal.asp?P="&iPag-1&""">Anterior</A>  ")
end if
if iPag < iPaginas then
	Response.Write("<A HREF=""personal.asp?P="&iPag+1&""">Siguiente</A> ")
end if

PaginarGR = 0


End Function
'=====================================================================================
%>
<% end if %>
</body>
</html>
  #2 (permalink)  
Antiguo 25/12/2002, 07:18
Avatar de korev  
Fecha de Ingreso: diciembre-2002
Ubicación: Barcelona
Mensajes: 127
Antigüedad: 21 años, 5 meses
Puntos: 0
Podrías editar el mensaje y partir los dos response.write que se cargan el html del foro . También eliminar el código antes del else que se encarga del getrows, eso se supone que ocurre si no hay datos en la bd y parece que sí existen.

Bueno, al tema... tu mensaje es un pelín 'denso' (por lo que he mencionado). ¿Qué error te da? Uso ese código de Carlos de la Orden hace tiempo y no me da problemas.
__________________
on error... resume next
  #3 (permalink)  
Antiguo 25/12/2002, 11:55
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Podrias haberte dado con una piedra en una mano antes de haber puesto este rollo.
¿Y ademas, cual es la duda?

Tomate unos links sobre paginacion.
http://aspfacil.com/articulos/paginar.asp
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net
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 00:04.