[Resolvido] Paginação

[Mário Monteiro 179]

muda para

 

Response.Write(Mostrou & "<br>")
  Response.Write(tab.pagesize & "<br><br>")

isso vai separar os valores

 

ai eu verei la no site o comportamente e poderei sugerir alguma mudança

[Jow Xavier 0]

Pronto ... Olhá lá no site

[Mário Monteiro 179]

Pronto o valor esta realmente em 10

 

ou seja é ai o erro

 

-------------------------

 

Este inicio

cnn.CursorLocation = 3
  Set tab = Server.CreateObject("Adodb.RecordSet")
  tab.Pagesize = 4
  sql = "SELECT * FROM produtos "
  set tab = cnn.execute(sql)

Mude para

 

Set tab = Server.CreateObject("Adodb.RecordSet")
  sql = "SELECT * FROM produtos "
  tab.Open sql, cnn, 3, 3 
  tab.PageSize = 4

Deve funcionar agora

 

Mas deixe as impressoes ainda para ver como ficou

[Jow Xavier 0]

Continua mostrando do mesmo jeito ...

[Mário Monteiro 179]

Como esta o codigo desta pagina

[Jow Xavier 0]

<table width="100%" border="0" cellspacing="2" cellpadding="0">

<tr>

<td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01"> <strong>Produto</strong> </td>

</tr>

<!--#include file="admin/config/conexao.asp"-->

 

<% call abre_conectar

cnn.CursorLocation = 3

Set tab = Server.CreateObject("Adodb.RecordSet")

sql = "SELECT * FROM produtos "

tab.Open sql, cnn, 3, 3

tab.PageSize = 3

 

sql = "SELECT * FROM produtos "

set tab = cnn.execute(sql)

 

If tab.Eof Then

Response.Write("")

Else

PaginaAtual = Request.Querystring("Pages")

 

If PaginaAtual = "" Then

PaginaAtual = 1

Else

PaginaAtual = CINT(PaginaAtual)

End If

 

tab.AbsolutePage = PaginaAtual

 

Mostrou = 0

While Not tab.Eof And Mostrou < tab.Pagesize

Mostrou = Mostrou + 1

Response.Write(Mostrou & "<br>")

Response.Write(tab.pagesize & "<br><br>")

 

%>

<tr>

<td height="22" bgcolor="#F7F7F7" class="classFonte01"> <img src="admin/<%=tab("foto")%>"> </td>

 

</tr>

<%

tab.MoveNext : Wend

 

Anterior = PaginaAtual - 1

Proximo = PaginaAtual + 1

 

If Anterior <= 0 Then

Anterior = 1

End If

 

If Proximo > tab.PageCount Then

Proximo = tab.PageCount

End If

%>

<tr>

<td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong> <%

Jo = 1

While Jo <= tab.PageCount

 

If PaginaAtual = Jo Then

Response.Write("["&Jo&"]  ")

Else

Response.Write("<a href=""paginacao.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a>  ")

End If

Jo = Jo + 1

Wend

End If

%></td>

</tr>

</table>

[hargon 64]

Desculpem minha intromição, mas qual banco de dados está sendo utilizado?

 

Acima do Set tab = Server.CreateObject("Adodb.RecordSet") coloca Dim tab

[Mário Monteiro 179]

esta linha ta sobrando

 

cnn.CursorLocation = 3

 

pode tirar

 

nao entendo porque continua 10

[Jow Xavier 0]

Desculpem minha intromição, mas qual banco de dados está sendo utilizado?

 

Acima do Set tab = Server.CreateObject("Adodb.RecordSet") coloca Dim tab

Banco de dados MySql

[Jow Xavier 0]

esta linha ta sobrando

 

cnn.CursorLocation = 3

 

pode tirar

 

nao entendo porque continua 10

se eu tirar, dá erro aki tab.AbsolutePage = PaginaAtual

 

ADODB.Recordset error '800a0cb3' 
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. 

/novo/lojista/paginacao.asp, line 28

[Jow Xavier 0]

Ufa depois de muito tentar aki consegui resolver uhauuhauauhauhauhauhuhaau ... até suei heheheh ... Valeu galera, estou adaptando este script em um site, mas está dando erro no parametro, ou seja na hora de passar para a página seguinte ... vou kebrar a cabeça um pokito e se eu tiver dúvida abro um outro tópico beleza ... abaixo a solução q eu encontrei abraçossss

<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
  <td width="44%" height="30" bgcolor="#EBEBEB" class="classFonte01"> <strong>Produto</strong> </td>
  </tr>
<!--#include file="admin/config/conexao.asp"-->

<% call abre_conectar 
  cnn.CursorLocation = 3
  Set tab = Server.CreateObject("Adodb.RecordSet")
  tab.Pagesize = 4
  tab.Open "Select * From produtos",cnn

  If tab.Eof Then
  Response.Write("")
  Else
  PaginaAtual = Request.Querystring("Pages")

  If PaginaAtual = "" Then
  PaginaAtual = 1 
  Else
  PaginaAtual = CINT(PaginaAtual) 
  End If

  tab.AbsolutePage = PaginaAtual
  
  Mostrou = 0
  While Not tab.Eof And Mostrou < tab.Pagesize
  Mostrou = Mostrou + 1
  %>
<tr>
  <td height="22" bgcolor="#F7F7F7" class="classFonte01"> <img src="admin/<%=tab("foto")%>"> </td>
  
</tr>
  <%
  tab.MoveNext : Wend
  
  While Not tab.Eof And tab.AbsolutePage = PaginaAtual
  %>
<tr>
  <td height="22" bgcolor="#F7F7F7" class="classFonte01"> <img src="admin/<%=tab("foto")%>"> </td>
  
</tr>
  <%
  tab.MoveNext : Wend
  Anterior = PaginaAtual - 1
  Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
  Anterior = 1
  End If

  If Proximo > tab.PageCount Then
  Proximo = tab.PageCount
  End If
  %>
<tr>
  <td height="30" colspan="2" align="right" bgcolor="#EBEBEB" class="classFonte01"><strong>Paginas:</strong> <%
  Jo = 1
  While Jo <= tab.PageCount 

  If PaginaAtual = Jo Then
  Response.Write("["&Jo&"]  ")
  Else
  Response.Write("<a href=""paginacao.asp?Pages="&Jo&""" class=""classFonte01"" title=""Página "&Jo&""">"&Jo&"</a>  ")
  End If
  Jo = Jo + 1 
  Wend
  End If
%></td>
</tr>
</table>

Problema resolvido

[Mário Monteiro 179]

Que bom que resolveu

 

Parabens