Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jucelino_CE

Paginação com problemas...

Por , em ASP Clássico

Recommended Posts

Jucelino_CE    0

Jucelino_CE
Postado

Galera este codigo de paginação nao esta funcionando quando o numero de registro é maior que 10 quer dizer que inicia a paginação mais quando eu clico é PROXIMO ele da um erro em que nao pode executar pois o objeto esta fechado! SE ALGUEM SOUBER O QUE É, ME AJUDE POR FAVOR....OBRGADO E AI VAI O CODIGO:

 

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include virtual="/conn.asp" --><%dim listaDim buscadim totallista = (request.QueryString("lista"))busca = (request.QueryString("busca"))conn.open strconnDim CORatualCORatual = "#FFFFFF"Dim Rec_buscaConst NumPerPage = 10'Verifica qual a página solicitadaDim CurPageIf Request.QueryString("CurPage") = "" thenCurPage = 1 'Primeira páginaElseCurPage = Request.QueryString("CurPage")End IfSet rec_busca = Server.CreateObject("ADODB.Recordset")set rec_busca.activeconnection = connrec_busca.CursorLocation = 3rec_busca.CacheSize = NumPerPageif lista="Nome da Loja" thenrec_busca.open "Select * from Loja where (Nome_Loja LIKE '%"&busca&"%') AND Ativo='Sim'",connend ifif lista="Atividade" thenrec_busca.open "Select * from Loja where (Busca_Loja LIKE '%"&busca&"%') AND Ativo='Sim'",connend ifif lista="Rua" thenrec_busca.open "Select * from Loja where (Endereco_Loja LIKE '%"&busca&"%') AND Ativo='Sim'",connend if'Coloca a quantidade de páginasrec_busca.PageSize = NumPerPage'Pega o número total de páginasDim TotalPagesTotalPages = rec_busca.PageCount'Configura a página atual%><html><head><title>:: Resultados Busca :: - :: Josewalter.com ::</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body text="#000066" link="#000066" vlink="#000066" alink="#000066" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="778" border="0" cellspacing="0" cellpadding="0">  <tr>	<td><!--#include file="topo.asp"--></td></td>  </tr></table><table width="778" border="0" cellspacing="0" cellpadding="0">  <tr> 	<td height="153">		<%total = 0	  Count = 0	  Do While Not rec_busca.EOF And Count < rec_busca.PageSize%><table width="500" height="94" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="<%response.Write(CORatual)%>">		<tr>		  <td height="94">		  			<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor=>			  <tr> 				<td height="90"><table width="500" border="0" align="center" cellpadding="0" cellspacing="0">					<tr> 					  <td width="344"><font face="Verdana, Arial, Helvetica, sans-serif" size ="2" font color= "#000066"> 						<strong><%response.Write(rec_busca.fields("Nome_Loja"))%></strong>						</font></td>					  <td width="156"><font face="Verdana, Arial, Helvetica, sans-serif" size ="2" font color= "#000066"> 						<%response.Write(rec_busca.fields("Categoria_Loja"))%>						</font></td>					</tr>				  </table>				  <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">					<tr> 					  <td width="29"> </td>					  <td width="316"><font face="Verdana, Arial, Helvetica, sans-serif" size ="2" font color= "#000099"> 						<%response.Write(rec_busca.fields("Endereco_Loja"))%>						, n° 						<%response.Write(rec_busca.fields("Numero_Loja"))%>						- 						<%response.Write(rec_busca.fields("Complemento"))%>						</font></td>					  <td width="155"><font color="#000099" size="2" face="Verdana, Arial, Helvetica, sans-serif">Tel.</font><font color="#000099" size="2" face="Verdana, Arial, Helvetica, sans-serif"> 						<strong>						<%response.Write(rec_busca.fields("Telefone_Loja"))%>						</strong> </font></td>					</tr>				  </table>				  <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">					<tr> 					  <td width="29"> </td>					  <td width="471"><font face="Verdana, Arial, Helvetica, sans-serif" size ="2" font color= "#000099">					  <%response.Write(rec_busca.fields("Bairro_Loja"))%>						- Fortaleza - CE</font></td>					</tr>				  </table>				  <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">					<tr> 					  <td width="29"> </td>					  <td width="471"><font face="Verdana, Arial, Helvetica, sans-serif" size ="2" font color= "#000099"> 						Mais Informações</font></td>					</tr>				  </table>				  <table width="500" height="15" border="0" align="center" cellpadding="0" cellspacing="0">					<tr> 					  <td width="29" height="15"><div align="center"><font color="#333333" size="2">......................................................................................................................................................................</font></div></td>					</tr>				  </table></td>			  </tr>			</table></td>			<% 			   total = total + 1			   Count = Count + 1			   rec_busca.MoveNext			   if CORatual = "#FFFFFF" then				  CORatual = "#F3F3F3"			   else				  CORatual = "#FFFFFF"			   end if			   loop			   if total=0 then		response.write "<p> </p>"		response.write "<font color=#000066 size=3 face=verdana><b>" & "Nenhum cadastro foi Encontrado" &"</b></font><br><br>"		response.write "<font color=#000066 size=2 face=verdana><b>" & "Item de Pesquisa: "&busca&" </b></font><br>"		else		response.write "<p><font color=#000066 size=2 face=verdana><b>" & "Foram  encontrados " &total& " Cadastros que atendem a pesquisa:<font color=orange> " &busca&"</b></font></p>"		end if%>	  </tr>	  </table>	  <table width="500" border="0" align="center" cellpadding="0" cellspacing="0">		<tr> 		  <td width="257">				 <%'Mostra os botôes: Anterior e Próximo, utilizando da opção de IF				 if CurPage > 1 then				'Se for a primeira página, Mostra apenas o botão Próximo				 Response.Write("<B><font color=""#000066"">")				 Response.Write("<a href='resultado_busca.asp?curpage=" & curpage - 1 & "'>")				 Response.Write(" << Anterior ")				 End If				 if CInt(CurPage) < CInt(TotalPages) then				 'Se estiver na última página, mostra apenas o botão Anterior				 Response.Write("<B><font color=""#000066"">")				 Response.Write("<a href='resultado_busca.asp?curpage=" & curpage + 1 & "'>")				 Response.Write(" Próximo >> ")				End If				%> <font face="Verdana, Arial, Helvetica, sans-serif">  </font></td>		  <td width="243"><div align="right">			  <%Response.Write("<B><font color=""#000066"" size=""2"" face=""Arial""><strong> Página " & CurPage & " de " & TotalPages & " </strong></font></B>")%>			</div></td>		</tr>	  </table></td>  </tr></table><table width="778" border="0" cellpadding="0" cellspacing="0" bgcolor="#F3F3F3">  <tr>	<td><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Sistema 		de Busca em fase de Desenvolvimento</font> </div></td>  </tr></table></body></html><%Rec_busca.Close()Set Rec_busca = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

CaBo GeL    0

CaBo GeL
Postado

cara, usa essa paginacao... ta funcionando legal...

 

<%@Language="VBscript"%>

 

<!--#Include File="conexao.asp"-->

 

<%

cod_forum=request.querystring("for")

 

objbanco.cursorlocation=3

 

set objloc=server.createobject("adodb.recordset")

objloc.pagesize=7

 

objloc.open "select * from clientes", objbanco

 

paginaatual=Cint(request.querystring("p"))

 

if paginaatual=0 then

paginaatual=1

end if

 

objloc.absolutepage=paginaatual

num=objloc.pagecount

 

do while not objloc.eof and objloc.absolutepage=paginaatual

%>

 

<html>

<head>

 

<%=objloc("logincli")%><br>

 

</head>

</html>

 

<%

objloc.movenext

loop

 

anterior=paginaatual -1

if anterior <= 0 then

anterior=1

end if

 

proximo=paginaatual +1

if proximo > objloc.pagecount then

proximo=objloc.pagecount

end if

%>

 

Pagina <%=paginaatual%> no total de <%=num%>

 

<%

if paginaatual <> anterior then

%>

 

<a href="paginacao.asp?p=<%=anterior%>&for=<%=cod_forum%>">Anterior</a>

 

<%

else

%>

 

Anterior

 

<%

end if

%>

|

<%

j=1

do while j <= objloc.pagecount

if paginaatual=j then

%>

 

<%=j%>

 

<%

else

%>

 

<a href="paginacao.asp?p=<%=j%>&for=<%=cod_forum%>"><%=j%></a>

 

<%

end if

j=j+1

loop

%>

|

 

<%

if paginaatual <> proximo then

%>

 

<a href="paginacao.asp?p=<%=proximo%>&for=<%=cod_forum%>">Proximo</a>

 

<%

else

%>

 

Proxima

 

<%

end if

%>

 

 

 

espero q isso te ajude! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito