Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

Paginação que não dá erro nenhum na tela

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

Pessoal!

 

Estou me quebrando para descobrir oque está acontecendo com esta paginação que não quer mostrar os registros.

Vejam os códigos abaixo.

 

 

<!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-2" />
<title>EXEMPLO DE PAGINAÇAO</title>
</head>
<body>
<br />
<br />
<table width="340" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td width="54%" height="30" bgcolor="#E3E3E3" class="classFonte01 style1">  <strong class="tnt_fontebranca">ENDEREÇO DE E-MAIL</strong>
	<div align="center"></div></td>
  </tr>
</table>
<br />
<%
  BANCO = "DBQ=C:\Inetpub\wwwroot\outros\colunas\paginacao.mdb;Driver={Microsoft Access Driver (*.mdb)};"
	SQL = "SELECT * FROM TB_USERS"
 SET RS = Server.CreateObject("ADODB.Recordset")
	 RS.CursorLocation = 3
	 RS.CursorType	 = 0
	 RS.LockType	   = 1
	 RS.Pagesize	   = 30
	 RS.Open SQL, BANCO

  If RS.Eof Then
	 Response.Write("Nao há registros no banco de dados")
  Else
  
	 PaginaAtual = CInt(Request.QueryString("paginacao"))
  If PaginaAtual = 0 Then
	 PaginaAtual = 1
  End If
  
			RS.AbsolutePage = PaginaAtual
	  Num = RS.PageCount
  While Not RS.Eof And RS.AbsolutePage = PaginaAtual  


'COLUNAS DA PAGINACAO
  NumeroColunas  = 3
		Contador = - 1
		Contador = Contador + 1
	 IF Contador = 0 THEN
%>
<tr>
<%
ElseIF Contador MOD NumeroColunas = 0 THEN
%>
<td><%=RS("email")%></td>
<%
End IF
%>
</tr>
<%
RS.MoveNext
   Wend
		   
  Anterior = PaginaAtual - 1
   Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
	 Anterior  = 1
  End If

  If Proximo > RS.PageCount Then
	 Proximo = RS.PageCount
  End If
%>
<br />
<br />
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<td>
<%
		PaginacaoContador = 1
  While PaginacaoContador <= RS.PageCount

  If PaginaAtual = PaginacaoContador Then
	 Response.Write(""& PaginacaoContador &"")
			  Else
	 Response.Write("<a href=""paginacao.asp?paginacao="& PaginacaoContador &""""& PaginacaoContador &""">"& PaginacaoContador &"</a>")
  End If
	 PaginacaoContador = PaginacaoContador + 1
				  Wend
  End If
%>
</td></tr>
</table>
</body>
</html>

 

Se alguém me ajudar agradeço, só falta isso pra essa danada ficar certa.

Acrescentei código para mostrar em colunas e desde então, não funciona mais esta paginação.

Deve ser coisa pequena, mas eu não soube ajeitar.

 

 

 

Obrigado a todos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Pessoal!

 

Alguém consegue me ajudar só nesta parte aqui, pois acredito que seja isso.

 

'COLUNAS DA PAGINACAO
  NumeroColunas  = 3
		Contador = - 1
		Contador = Contador + 1
	 IF Contador = 0 THEN
%>
<tr>
<%
ElseIF Contador MOD NumeroColunas = 0 THEN
%>
<td><%=RS("email")%></td>
<%
End IF
%>
</tr>
<%
RS.MoveNext
   Wend

Depois que coloquei este código para mostrar em COLUNAS, não funcionou mais.

Obrigado...

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você já verificou se o que era para ser exibido está no HTML?

 

Veja que você mandou exibir linhas e colunas, mas não iniciou a tabela.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

HARGON!

 

Que bom que responder colega.

Tentei fazer assim agora mas não foi... veja se estou correto, e creio que estou longe do correto.

Mas dá uma força aí.

 

 

<table width="340" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
	<td width="54%" height="30" bgcolor="#E3E3E3" class="classFonte01 style1">  <strong class="tnt_fontebranca">ENDEREÇO DE E-MAIL</strong>
	<div align="center"></div></td>
  </tr>
</table>
<br />
<%
  BANCO = "DBQ=C:\Inetpub\wwwroot\outros\ASP\paginacao com CSS e colunas\paginacaomysqleasp.mdb;Driver={Microsoft Access Driver (*.mdb)};"
	SQL = "SELECT * FROM TB_USERS"
 SET RS = Server.CreateObject("ADODB.Recordset")
	 RS.CursorLocation = 3
	 RS.CursorType	 = 0
	 RS.LockType	   = 1
	 RS.Pagesize	   = 30
	 RS.Open SQL, BANCO

  If RS.Eof Then
	 Response.Write("Nao há registros no banco de dados")
  Else
  
	 PaginaAtual = CInt(Request.QueryString("paginacao"))
  If PaginaAtual = 0 Then
	 PaginaAtual = 1
  End If

%>
<table width="340" border="0" align="center" cellpadding="0" cellspacing="0">
<%
			RS.AbsolutePage = PaginaAtual
	  Num = RS.PageCount
  While Not RS.Eof And RS.AbsolutePage = PaginaAtual  


'COLUNAS DA PAGINACAO
  NumeroColunas  = 3
		Contador = - 1
		Contador = Contador + 1
	 IF Contador = 0 THEN
%>

<tr>
<%
ElseIF Contador MOD NumeroColunas = 0 THEN
%>
<td><%=RS("email")%></td>
<%
End IF
%>
</tr>
<%
RS.MoveNext
   Wend
		   
  Anterior = PaginaAtual - 1
   Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
	 Anterior  = 1
  End If

  If Proximo > RS.PageCount Then
	 Proximo = RS.PageCount
  End If
%>
</table>
<br />
<br />

 

Obrigado pela ajuda!

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