paginação

eutiroonda · Dezembro 27, 2003

AONDE ESTÁ O ERRO??? PLEASE!!!!!A paginação é mostrada normalmente, só que quandovai para PAGINA 2 ou 3 ou 4... da mensagem de que não foram encontrados registros no bd. <%strsexo = trim(request.form("sexo"))stridade = trim(request.form("idade"))strcidade = trim(request.form("cidade"))strnamoro = trim(request.form("namoro"))strano1 = left(stridade,4)strano2 = Right(stridade,4)%><%procura = "SELECT * FROM membros INNER JOIN perfil ON membros.codmembro = perfil.codmembro " procura = procura &" WHERE membros.publicar='aceito' " procura = procura &" AND membros.sexo LIKE '%" & (strsexo) & "%' "procura = procura &" AND membros.ano Between '" & strano1 & "' "procura = procura &" AND '" & strano2 & "' "procura = procura &" AND membros.cidade LIKE '%" & (strcidade) & "%' "procura = procura &" AND membros.namorando LIKE '%" & (strnamoro) & "%' " procura = procura &" order by membros.nome " Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("banco.mdb") Set RS_Consultar = Server.CreateObject("ADODB.Recordset") SET RS_Consultar = Conexao.Execute(procura) %> <%If RS_consultar.EOF = true then%> <table border="1" width="100%" bgcolor="#CCCCCC"> <tr> <td width="100%" align="center" valign="middle" bgcolor="#99CCCC" bordercolor="#CCCCCC">Não foram encontrados registros com esses parâmetros</td> </tr> </table> <% End If %> <% 'CONFIGURAÇÃO PAGINAÇÃO**************************************** IF Request.QueryString("PN") = "" THEN PaginaCorrente = 1 ELSE PaginaCorrente = Request.QueryString("PN") END IF IF Request.QueryString("intervalo") = "" THEN Intervalo = 4 'Valor Padrão ELSE Intervalo = Request.QueryString("intervalo") END IF Set Rs = Server.CreateObject("ADODB.Recordset") Rs.CursorLocation = 3 Rs.Open procura, Conexao Rs.PageSize = CInt(intervalo) TotalPaginas= RS.PageCount TotalRegistros = RS.recordcount Response.Write " Mostrango página " & PaginaCorrente & " de " & TotalPaginas & " " Response.Write "Total Registros " & TotalRegistros & " " IF NOT Rs.Eof THEN Rs.AbsolutePage = CInt(PaginaCorrente) END IF 'FIM CONFIGURAÇÃO PAGINAÇÃO**************************************** %> <% 'INICIO MOSTRAR DADOS ******************** DO UNTIL Rs.AbsolutePage <> CInt(PaginaCorrente) OR Rs.EOF %> <table border="0" cellpadding="0" cellspacing="0" width="571">  <tr> <td><img src="slices/spacer.gif" width="5" height="1" border="0" alt=""></td> <td><img src="slices/spacer.gif" width="156" height="1" border="0" alt=""></td> <td><img src="slices/spacer.gif" width="410" height="1" border="0" alt=""></td> <td><img src="slices/spacer.gif" width="1" height="1" border="0" alt=""></td> </tr> <tr> <td colspan="3"><img name="perfis_r1_c1" src="slices/perfis_r1_c1.jpg" width="571" height="5" border="0" alt=""></td> <td><img src="slices/spacer.gif" width="1" height="5" border="0" alt=""></td> </tr> <tr> <td rowspan="2"><img name="perfis_r2_c1" src="slices/perfis_r2_c1.jpg" width="5" height="171" border="0" alt=""></td> <td rowspan="2" background="slices/perfis_r2_c2.jpg"> <% abcfoto = rs("foto") if abcfoto = "fotos/semfoto.jpg" then response.write "<img src='fotos/semfoto.jpg' width='154' height='165'>" else response.write "<img src='"& abcfoto &"'>" end if %> </td> <td background="slices/perfis_r2_c3.jpg"> <table width="90%" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td> </td> <td><a href="mailto:<%= rs("email") %>"><img border="0" src="imagens/botoes_Ag/email_off.jpg" width="54" height="28" alt="ENVIAR EMAIL"></a></td> <td><a href="java script:mensagem('compondo.asp?codigo=<%= rs("membros.codmembro") %>&nome=<%= rs("nome") %>&sobrenome=<%= rs("sobrenome") %>')"><img border="0" src="imagens/botoes_Ag/mensag_off.jpg" width="64" height="28" alt="ENVIAR MENSAGEM"></a></td> <td> <% foto2 = rs("foto2") if foto2 = "fotos/semfoto.jpg" then response.write "<img src='imagens/botoes_Ag/foto_des.jpg' width='66' height='28'>" else %> <a href="java script:foto2('asp-bin/abrefoto2.asp?foto=<%= rs("foto2") %>')"><img border="0" src="imagens/botoes_Ag/foto_off.jpg" width="64" height="28" alt="VER FOTO 2"></a> <% end if %> </td> </tr> </table> </td> <td><img src="slices/spacer.gif" width="1" height="38" border="0" alt=""></td> </tr> <tr> <td background="slices/perfis_r3_c3.jpg"> <table width="98%" border="0" cellspacing="1" cellpadding="0"> <tr bgcolor="#EEE8AA"> <td width="30%">Perfil de:</td> <td colspan="3"><%= RS("nome") %> <%= RS("sobrenome") %> </td> </tr> <tr bgcolor="#F5F5F5"> <td width="30%">APELIDO:</td> <td width="32%"><%= RS("apelido") %></td> <td width="15%">SEXO:</td> <td width="23%"><%= RS("sexo") %></td> </tr> <tr bgcolor="#F5F5F5"> <td width="30%">CIDADE:</td> <td width="32%" bgcolor="#F5F5F5"><%= RS("cidade") %> </td> <td width="15%">ESTADO:</td> <td width="23%"><%= RS("uf") %></td> </tr> <tr bgcolor="#F5F5F5"> </tr> </table> </td> <td><img src="slices/spacer.gif" width="1" height="133" border="0" alt=""></td> </tr> <tr> <td colspan="3" background="slices/perfis_r4_c1.jpg"> <table width="97%" border="0" cellspacing="1" cellpadding="0" align="center"> <tr bgcolor="#F5F5F5"> <td width="18%" height="19">ICQ:</td> <td width="32%" height="19"><%= RS("icq") %></td> <td width="17%" height="19">FILME:</td> <td width="33%" height="19"><%= rs("filme") %></td> </tr> </table> </td> <td><img src="slices/spacer.gif" width="1" height="33" border="0" alt=""></td> </tr> <tr> <td colspan="3"><img name="perfis_r5_c1" src="slices/perfis_r5_c1.jpg" width="571" height="33" border="0" alt=""></td> <td><img src="slices/spacer.gif" width="1" height="33" border="0" alt=""></td> </tr> </table> <% RS.MoveNext LOOP RS.Close Set RS = Nothing ' FIM MOSTRAR DADOS ****************** 'Mostrar Páginas Existentes***************************** Response.Write " Paginação Com Intervalo - " & Intervalo & " " Flag = INT(TotalPaginas / Intervalo) Flag1 = INT(PaginaCorrente / Intervalo) 'Definir página inicial e final PI = Flag1 * Intervalo IF PI = 0 THEN PI = 1 END IF PF = PI + Intervalo - 1 'Colocar << se for preciso IF CInt(Flag1) >= CInt(1) THEN Response.Write "<a href=""central.asp?PN=" & PI - 1 & "&intervalo=" & intervalo & """ class=""central""><< </a>" END IF FOR I = PI TO PF IF CInt(I) <= CInt(TotalPaginas) THEN IF CInt(PaginaCorrente) = CInt(I) THEN response.write "<a href=""central.asp?PN=" & I & "&intervalo=" & intervalo & """ class=""central"">[" & I & "]</a> " ELSE response.write "<a href=""central.asp?PN=" & I & "&intervalo=" & intervalo & """ class=""central"">" & I & "</a> " END IF END IF NEXT 'Colocar >> se for preciso IF (CInt(Flag1) < CInt(Flag)) THEN IF CInt(PF) <> CInt(TotalPaginas) THEN Response.Write "<a href=""central.asp?PN=" & PF + 1 & "&intervalo=" & intervalo & """ class=""central"">>> </a>" END IF END IF 'FIM Mostrar Páginas Existentes*****************************%>

Marhault · Dezembro 27, 2003

presta atenção nessa parte:

Set RS_Consultar = Server.CreateObject("ADODB.Recordset")SET RS_Consultar = Conexao.Execute(procura)

por que você naum coloca assim:

Set RS_Consultar = Server.CreateObject("ADODB.Recordset")RS_Consultar.open procura,Conexao,1

vê se dá certo assim...

Entrar

Arquivado

paginação

Recommended Posts

eutiroonda 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Marhault 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante