Foros del Web - Ver Mensaje Individual

ralea · #1 (**permalink**) 26/06/2002, 12:27

Por favor necesito ayuda me toi volviendo loco con la paginacion.Me baje un ejemplo y lo he intentado adaptar a mis necesidades pero no me funciona.Por favor k alguien me ayude!!!!!!!!!!!!
Aqui os mando el kodigo de la pagina:
<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="default.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&nbsp;</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>
&nbsp;</font></td>
<td bgcolor="#759AFB"><font size="1" face="Verdana">Edad&nbsp;</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&nbsp;</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&ntilde;a">Espa&nt ilde;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&iacute;</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&eacute;lgica&lt ;/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&uacute;n&lt ;/option>
<option value="Canada">Canad&aacute;</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&iacute;a&lt ;/option>
<option value="India">India</option>
<option value="Indonesia">Indonesia</option>
<option value="Iran">Ir&aacute;n</option>
<option value="Iraq">Ir&aacute;q</option>
<option value="Israel">Israel</option>
<option value="Jamaica">Jamaica</option>
<option value="Japon">Jap&oacute;n</option>
<option value="Jordania">Jordania</option>
<option value="Kuwait">Kuwait</option>
<option value="RepublicaCheca">La
Rep&uacute;blica Checa</option>
<option value="RepublicaEslovaca">La
Rep&uacute;blica Eslovaca</option>
<option value="Letonia">Letonia</option>
<option value="Libia">L&iacute;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&eacute;jico</option>
<option value="Monaco">M&oacute;naco</option>
<option value="Nepal">Nepal</option>
<option value="Nicaragua">Nicaragua</option>
<option value="Niger">N&iacute;ger</option>
<option value="Nigeria">Nigeria</option>
<option value="Noruega">Noruega</option>
<option value="NuevaZelanda">Nueva
Zelanda</option>
<option value="PaisesBajos">Pa&iacute;ses
Bajos</option>
<option value="Pakistan">Pakist&aacute;n& lt;/option>
<option value="Paraguay">Paraguay</option>
<option value="Peru">Per&uacute;</option>
<option value="Polonia">Polonia</option>
<option value="Portugal">Portugal</option>
<option value="PuertoRico">Puerto
Rico</option>
<option value="RepublicaCentroafricana">Rep&a mp;uacute;blica
Centroafricana</option>
<option value="RepublicaCongo">Rep&uacute ;blica
del Congo (Zaire)</option>
<option value="RepublicaDominicana">Rep&u acute;blica
Dominicana</option>
<option value="Rumania">Ruman&iacute;a&lt ;/option>
<option value="Rusia">Rusia</option>
<option value="Sudan">Sud&aacute;n</option>
<option value="Suecia">Suecia</option>
<option value="Suiza">Suiza</option>
<option value="Tailandia">Tailandia</option>
<option value="Taiwan">Taiw&aacute;n</option>
<option value="Tunez">T&uacute;nez</option>
<option value="Turquia">Turqu&iacute;a&lt ;/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&gt ;<font size="1" face="Verdana">&nbsp;&nbsp;
<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=11
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)
response.write("<table border=""0"" cellpadding=""0"" cellspacing=""3"" width=""1"" dwcopytype=""CopyTableCell""&g t;<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>"& amp;aDatos(nombre,i)&"</b></font> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <font face=""Verdana"" size=""1""><b>"& amp;aDatos(edad,i)&" años</b></font>&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;<font face=""Verdana"" size=""1""><b>"& amp;aDatos(pais,i)&"</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,i)&"""><img src ="""&aDatos(foto,i)&"& quot;"></td><td width=""417"" height=""79""><p align=""justify""><span class=""small""><font size=""1""face=""Ver dana""><span class=""normal"">"&amp ;aDatos(descripcion,i)&"</span>..</font></span></td></tr></tbody> </table></td></tr></tbody> </table></td></tr>")

response.write("</tr>")
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=""general.asp?P="&iPag-1&""">Anterior</A>&nbsp;&nbsp;")
end if
if iPag < iPaginas then
Response.Write("<A HREF=""general.asp?P="&iPag+1&a mp;""">Siguiente</A>&nbsp;")
end if

PaginarGR = 1

End Function
'================================================= ====================================
%>
<% end if %>
</body>
</html>