Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/06/2002, 12:42
ralea
 
Fecha de Ingreso: mayo-2002
Mensajes: 15
Antigüedad: 23 años
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>