Paginção com ASP E Access

feasso · Junho 25, 2009

O rs.pagecount está retornando -1.

O BD tem 5 registros.

Ted k' · Junho 25, 2009

coloca essa paginação ai, para ver como está fazendo!

mais antes, você fez o filtro?

If rs.AbsolutePage < rs.PageCount Then

feasso · Junho 25, 2009

<%

regPorPagina = 10

If pagina = "" Then

pagina = 1

Else

pagina = cInt(pagina)

End If

cont = 0

Call abreRS("SELECT id_noticias, titulo, chamada, data FROM noticias ORDER BY data DESC;",rsNoticias)

rsNoticias.pagesize = regPorPagina

rsNoticias.absolutepage = pagina

While Not rsNoticias.Eof And cont < regPorPagina

cont = cont + 1

data = day(rsNoticias("data"))&"-"&month(rsNoticias("data"))&"-"&year(rsNoticias("data"))

%>

<p class="tit_noticias"><strong><%=data%><br /><a href="noticia.asp?id=<%=rsNoticias("id_noticias")%>" title="<%=rsNoticias("titulo")%>"><%=rsNoticias("titulo")%></a></strong></p>

<a href="noticia.asp?id=<%=rsNoticias("id_noticias")%>" title="mais" class="voltar">mais</a>

<%

rsNoticias.moveNext

Wend

%>

</div>

<%

If rsNoticias.pagecount > 1 Then

paginacao = "<ul class=""avanca_paginas"">"

If pagina > 1 Then

paginacao = paginacao & "<li><a href=""noticias.asp?pagina=1"" title=""primeira""><<</a></li>" &_

"<li><a href=""noticias.asp?pagina="&pagina-1&""" title=""anterior""><</a></li>"

Else

End If

For i = 1 To rsNoticias.pagecount

If pagina = i Then

paginacao = paginacao & "<li><a href=""java script:void(0);"" title="""&i&""" class=""active"">"&i&"</a></li>"

Else

paginacao = paginacao & "<li><a href=""noticias.asp?pagina="&i&""" title="""&i&""">"&i&"</a></li>"

End If

paginacao = paginacao & " <li><a href=""noticias.asp?pagina="&pagina+1&""" title=""próxima"">></a></li>" &_

"<li><a href=""noticias.asp?pagina="&rsNoticias.pagecount&""" title=""última"">>></a></li>"

End If

paginacao = paginacao & "</ul>"

End If

response.write paginacao

Call fechaRS(rsNoticias)

%>

Ted k' · Junho 25, 2009

faz a verificação, assim:

If Rs.AbsolutePage < Rs.PageCount Then
pagina = pagina + 1
Else
pagina = Rs.PageCount
End If

feasso · Junho 25, 2009

Não entendi... onde mudo no meu código ?

Ted k' · Junho 25, 2009

poste ele completo, que te ajudo!

feasso · Junho 25, 2009

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<head>

<title>ECP - Sistemas Ambientais</title>

<%pagina = LimpaSQL(Request.QueryString("pagina"))

If pagina <> "" And Not isNumeric(pagina) Then

response.Redirect("./")

response.End()

End If

%>

</div>

<h1>Depoimentos</h1>

</div>

<%

regPorPagina = 20

If pagina = "" Then

pagina = 1

Else

pagina = cInt(pagina)

End If

cont = 0

sql = " select * from depoimento where disponivel = 1 "

id = request.QueryString("id")

if id <> "" then

sql = sql & "id_depoimento = " & id

set rs = Conexao.Execute(sql)

rs.pagesize = regPorPagina

rs.absolutepage = pagina

%>

<ul>

</ul>

</div>

<a class="linkVerde link18" href="<%=url_site%>Depoimentos.asp" title="voltar">Voltar</a>

</div>

<%

else

set rs = Conexao.Execute(sql)

Do While Not rs.EOF And cont < regPorPagina

cont = cont + 1

%>

</div>

<%

rs.MoveNext

Loop

end if

If Rs.AbsolutePage < Rs.PageCount Then

pagina = pagina + 1

paginacao = "<div class=""navegaPagina"">" &_

" <div class=""navegaConteudo"">"

paginacao = paginacao & "<ul>"

If pagina > 1 Then

paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina=1""title=""primeira""><<</a></li>" &_

"<li><a href=""Depoimentos.asp?pagina="&pagina-1&""" title=""anterior""><</a></li>"

Else

End If

For i = 1 To Rs.PageCount

If pagina = i Then

paginacao = paginacao & "<li><a class=""ativo"" href=""java script:void(0);"" title=""pagina"">"&i&"</a></li>"

else

paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina="&i&""" title=""pagina"">"&i&"</a></li>"

End If

paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina="&pagina+1&""" title=""próximo"">></a></li>"&_

"<li><a href=""Depoimentos.asp?pagina="&rsNoticias.pagecount&""" title=""última"">>></a></li>"

End If

paginacao = paginacao & "</ul>"

%>

</div>

<%

else

pagina = Rs.PageCount

end if

response.write paginacao

%>

</div>

</div>

<ul>

<li><a href="<%=url_site%>Default.asp" title="Home">home</a></li>

<li><strong>Depoimentos</strong></li>

</ul>

</div>

<span class="internaEsqTopo">Depoimentos</span>

</div>

</div>

</div>

Ted k' · Junho 25, 2009

veja ai se ajuda:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>ECP - Sistemas Ambientais</title>
<!--#include file="asp/inicio.asp"-->

	<div id="geralConteudo">
		<div id="conteudo">
		
			<!-- Box Grande -->
			<div class="boxGrande">
				<div class="boxTopo">
					<div class="topoEsq topoEsqBranco"></div>
					<div class="meio bgBranco"></div>
					<div class="topoDir topoDirBranco"></div>
				</div>
				<div class="boxConteudo bgInternas">
					<div class="internaDir">
					
						<!-- Interna Principal -->
						<div class="internaGrande">
							<h1>Depoimentos</h1>
							<div class="boxTopo">
								<div class="topoEsq topoEsqCinza"></div>
								<div class="meio bgCinza"></div>
								<div class="topoDir topoDirCinza"></div>
							</div>
							<div class="boxConteudo bgCinza">
								
							<%
							pagina = LimpaSQL(Request.QueryString("pagina"))
							
							regPorPagina = 20
					
							If pagina = "" Then
								pagina = 1
							Else
								pagina = cInt(pagina)
							End If
							
							cont = 0
							
							sql = " select * from depoimento where disponivel = 1 "

							id = request.QueryString("id")
							
											
							if id <> "" then
								sql = sql & "id_depoimento = " & id
							
							set rs = .Execute(sql)
							rs.pagesize = regPorPagina
							rs.absolutepage = pagina
							%>
								<div class="chamadaCases depoimento">
									<div class="chamadaEsq">
										
										<ul>
											<li><%=rs("empresa_depoimento")%></li>
											<li><%=rs("autor_depoimento")%></li>
											<li><%=rs("cargo_depoimento")%></li>
										</ul>
									</div>
									<div class="chamadaDir chamadaGrande">
										<p><%=rs("texto_depoimento")%></p>
										<a class="linkVerde link18" href="<%=url_site%>Depoimentos.asp" title="voltar">Voltar</a>
									</div>
								</div>
								
							<%
							else
								  Conexao.CursorLocation = 3
								  Set rs_pag = Server.CreateObject("Adodb.RecordSet")
								  rs_pag.Pagesize = 30
								  rs_pag.Open sql,Conexao
								
								  If rs_pag.Eof Then
								  Response.Write("")
								  Else
								  PaginaAtual = CInt(Request.Querystring("pagina"))
								
								  If PaginaAtual = 0 Then
								  PaginaAtual = 1
								  End If
								
								  rs_pag.AbsolutePage = PaginaAtual
								  Num = rs_pag.PageCount
								 
								  While Not rs_pag.Eof And rs_pag.AbsolutePage = PaginaAtual
									cont = cont + 1
							%>
									<div class="chamadaCases depoimento">
										<h2><%=Server.HTMLEncode(rs_pag("empresa_depoimento"))%> - <%=rs_pag("autor_depoimento")%> - <%=rs_pag("cargo_depoimento")%></h2>
										<p><%=rs_pag("texto_depoimento")%></p>
										<span class="dotsCinza"></span>
									</div>
							<%
									rs_pag.MoveNext : Wend
							end if
														
							If rs_pag.AbsolutePage < rs_pag.PageCount Then
							pagina = pagina + 1
							paginacao = "<div class=""navegaPagina"">" &_
										" <div class=""navegaConteudo"">"
							  
									paginacao = paginacao & "<ul>"
									If pagina > 1 Then
										paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina=1""title=""primeira""><<</a></li>" &_
																"<li><a href=""Depoimentos.asp?pagina="&pagina-1&""" title=""anterior""><</a></li>"
									Else
									End If
									For i = 1 To rs_pag.PageCount
										If pagina = i Then
											paginacao = paginacao & "<li><a class=""ativo"" href=""java script:void(0);"" title=""pagina"">"&i&"</a></li>"
										else
											paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina="&i&""" title=""pagina"">"&i&"</a></li>"
										End If
									Next
									If rs_pag.pagecount > pagina Then
										paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina="&pagina+1&""" title=""próximo"">></a></li>"&_
																"<li><a href=""Depoimentos.asp?pagina="&rsNoticias.pagecount&""" title=""última"">>></a></li>"
									End If
										paginacao = paginacao & "</ul>"
									
								%>
								</div>
							</div>
							<%
							else
							pagina = Rs.PageCount
							end if
							response.write paginacao
							%>	
							</div>
							<div class="boxFim">
								<div class="fimEsq fimEsqCinza"></div>
								<div class="meio bgCinza"></div>
								<div class="fimDir fimDirCinza"></div>
							</div>
						</div>
						
						<!-- Interna Secundária -->
						
						
						<!-- Migalha -->	  
						  <div id="migalha">
							<ul>
								<li><a href="<%=url_site%>Default.asp" title="Home">home</a></li>
								<li>></li>
								<li><strong>Depoimentos</strong></li>
							</ul>
						</div>
					</div>
					<div class="internaEsq">
						<span class="internaEsqTopo">Depoimentos</span>
					</div>
					<div class="imagemInternaEsq"></div>
				</div>
				<div class="boxFim">
					<div class="fimEsq fimEsqBranco"></div>
					<div class="meio bgBranco"></div>
					<div class="fimDir fimDirBranco"></div>
				</div>
			</div>
		</div>
	
<!--#include file="asp/fim.asp"-->

feasso · Junho 25, 2009

A última versão do código está assim (abaixo), mas ainda há alguns erros.

1- Ele só gera a paginação quando está na primeira ou na última página, nas centrais não.

2- O rs_pag.Pagesize = 3, não funcionado com qualquer valor, por que ?

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>ECP - Sistemas Ambientais</title>
<!--#include file="asp/inicio.asp"-->

	<div id="geralConteudo">
		<div id="conteudo">
		
			<!-- Box Grande -->
			<div class="boxGrande">
				<div class="boxTopo">
					<div class="topoEsq topoEsqBranco"></div>
					<div class="meio bgBranco"></div>
					<div class="topoDir topoDirBranco"></div>
				</div>
				<div class="boxConteudo bgInternas">
					<div class="internaDir">
					
						<!-- Interna Principal -->
						<div class="internaGrande">
							<h1>Depoimentos</h1>
							<div class="boxTopo">
								<div class="topoEsq topoEsqCinza"></div>
								<div class="meio bgCinza"></div>
								<div class="topoDir topoDirCinza"></div>
							</div>
							<div class="boxConteudo bgCinza">
								
							<%
							
							pagina = LimpaSQL(Request.QueryString("pagina"))
							
							regPorPagina = 20
					
							If pagina = "" Then
								pagina = 1
							Else
								pagina = cInt(pagina)
							End If
							
							cont = 0

							
							sql = " select * from depoimento where disponivel = 1 order by id_depoimento desc"

							
								  Conexao.CursorLocation = 3
								  Set rs_pag = Server.CreateObject("Adodb.RecordSet")
								  rs_pag.Pagesize = 10
								  rs_pag.Open sql,Conexao
								
								  If rs_pag.Eof Then
								  Response.Write("")
								  Else
								  PaginaAtual = CInt(Request.Querystring("pagina"))
								
								  If PaginaAtual = 0 Then
								  PaginaAtual = 1
								  End If
								
								  rs_pag.AbsolutePage = PaginaAtual
								  Num = rs_pag.PageCount
								 
								  While Not rs_pag.Eof And rs_pag.AbsolutePage = PaginaAtual
									cont = cont + 1
							%>

									<div class="chamadaCases depoimento">
										<h2><%=Server.HTMLEncode(rs_pag("empresa_depoimento"))%> - <%=rs_pag("autor_depoimento")%> - <%=rs_pag("cargo_depoimento")%></h2>
										<p><%=rs_pag("texto_depoimento")%></p>
										<span class="dotsCinza"></span>
									</div>
							<%
						
							rs_pag.MoveNext : Wend
																					
							If rs_pag.AbsolutePage < rs_pag.PageCount Then
							pagina = pagina + 1
							paginacao = "<div class=""navegaPagina"">" &_
										" <div class=""navegaConteudo"">"
							  
									paginacao = paginacao & "<ul>"
									If pagina > 1 Then
										paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina=1"" title=""primeira""><<</a></li>" &_
																"<li><a href=""Depoimentos.asp?pagina="&pagina-1&""" title=""anterior""><</a></li>"
									Else
									End If
									For i = 1 To rs_pag.PageCount
										If pagina = i +1 Then
											paginacao = paginacao & "<li><a class=""ativo"" title=""pagina atual"">"&i&"</a></li>"
										else
											paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina="&i&""" title=""pagina"">"&i&"</a></li>"
										End If
									Next
									If rs_pag.pagecount > pagina Then
										paginacao = paginacao & "<li><a href=""Depoimentos.asp?pagina="&pagina+1&""" title=""próximo"">></a></li>"&_
																"<li><a href=""Depoimentos.asp?pagina="&rs_pag.pagecount&""" title=""última"">>></a></li>"
									End If
										paginacao = paginacao & "</ul>"
									
								%>
								</div>
							</div>
							<%
							else
							pagina = rs_pag.PageCount
							end if
							response.write paginacao
							end if
							%>	
							</div>
							<div class="boxFim">
								<div class="fimEsq fimEsqCinza"></div>
								<div class="meio bgCinza"></div>
								<div class="fimDir fimDirCinza"></div>
							</div>
						</div>
						
						<!-- Interna Secundária -->
						
						
						<!-- Migalha -->	  
						  <div id="migalha">
							<ul>
								<li><a href="<%=url_site%>Default.asp" title="Home">home</a></li>
								<li>></li>
								<li><strong>Depoimentos</strong></li>
							</ul>
						</div>
					</div>
					<div class="internaEsq">
						<span class="internaEsqTopo">Depoimentos</span>
					</div>
					<div class="imagemInternaEsq"></div>
				</div>
				<div class="boxFim">
					<div class="fimEsq fimEsqBranco"></div>
					<div class="meio bgBranco"></div>
					<div class="fimDir fimDirBranco"></div>
				</div>
			</div>
		</div>
	
<!--#include file="asp/fim.asp"-->

xanburzum · Junho 25, 2009

qual erro retornado, número e linha....

feasso · Junho 26, 2009

1- Ele só gera a paginação quando está na primeira ou na última página, nas centrais não.

2- O rs_pag.Pagesize = 3, não funcionado com qualquer valor, por que ?

hargon · Junho 26, 2009

Altera o CursorLocation para 3:

conexao.CursorLocation = 3

xanburzum · Junho 26, 2009

só lembrando, existe uma classe de paginacaun, ótima para estudos e ver a lógica de uma paginacaun...

aki

Arquivado

Paginção com ASP E Access

Recommended Posts

feasso 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

feasso 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

feasso 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

feasso 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

feasso 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

feasso 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

select com varias categorias por horario

comando like (Mysql) no php

Alguém com pratica em subir site em codeigniter4 na Hostinger? Não consigo acessar o bd. Erro de Autenticação. O mesmo site funciona normal em outro servidor web.

Fóruns

Tempo Real

Informação importante