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&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&ntilde;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</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</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</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</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&uacute;blica Centroafricana</option> <option value="RepublicaCongo">Rep&uacute;blica del Congo (Zaire)</option> <option value="RepublicaDominicana">Rep&uacute;blica Dominicana</option> <option value="Rumania">Ruman&iacute;a</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</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">&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=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> &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>"&aDatos(edad,J)&" 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>"&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>&nbsp;&nbsp;") end if if iPag < iPaginas then Response.Write("<A HREF=""personal.asp?P="&iPag+1&""">Siguiente</A>&nbsp;") end if PaginarGR = 0 End Function '===================================================================================== %> <% end if %> </body> </html>