[Resolvido] Problema com Paginação

[Matheus Brito 12]

Sempre usei essa paginação inclusive foi o ted'k que postou, agorra ta me apresentando esse erro aqui:

 

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/Vitrine/catalogo.asp, line 145

 

linha 145

RS_Produtos.PageSize = 10

 

<%
conn.cursorlocation = 3
RS_Produtos.Open "SELECT * FROM Produtos WHERE Preco between 20 and 30  ORDER BY Produto_Id;",conn
RS_Produtos.PageSize = 10



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

  If PaginaAtual = 0 Then
  PaginaAtual = 1
  End If

  RS_Produtos.AbsolutePage = PaginaAtual
  Num = RS_Produtos.PageCount
%>


<%


While Not RS_Produtos.Eof And RS_Produtos.AbsolutePage = PaginaAtual
%>
<br>
<br>
<a href="imagem.asp?Produto_Id=<%response.write RS_Produtos("Produto_Id")%>">
<a href="./produtos/<%Response.write RS_Produtos("Imagem_Icone")%>" rel="lightbox"><IMG height="150" width="110" align="left" src="./produtos/<%Response.write RS_Produtos("Imagem_Icone")%>"
border="1" ALT="<%=RS_Produtos("Produto_Nome")%>"/><br/><br></a></a>
<br>
<br>
<br>
<br>
<br>
<br>
<p>
<b>Nome: <%response.write RS_Produtos("Produto_Nome")%></b><br>
Autor(es): <% Response.write RS_Produtos("DESCRICAO_CURTA")%><br />
Editora: <% Response.write RS_Produtos("Descricao_Longa")%>

<%
if RS_Produtos("Promocao")=0 THEN
%>
<p><b>Preço</b>:<%Response.write FormatCurrency(RS_Produtos("Preco"))%>
<BR><a href="produto.asp?Produto_ID=<%response.write RS_Produtos("Produto_Id")%>">Clique aqui para comprar</A>

<%
else
%>
<p><b>Preço:</b><strike><%Response.write FormatCurrency(RS_Produtos("Preco"))%>
<br></strike><font color="#ff0000" >Em Promoção
<% Response.write FormatCurrency(RS_Produtos("Preco_Promocao"))%>
<BR></font><a href="produto.asp?Produto_ID=<%response.write RS_Produtos("Produto_Id")%>">Clique aqui para comprar</a>

<%
end if
%>

<% 
RS_Produtos.MoveNext : Wend
Anterior = PaginaAtual - 1
Proximo = PaginaAtual + 1

If Anterior <= 0 then
	Anterior = 1
end if

If Proximo > RS_Produtos.PageCount then
	Proximo = RS_Produtos.PageCount	
end if

Jo = 1

While Jo <= RS_Produtos.PageCount
	if PaginaAtual = Jo then
		Response.Write Jo
	Else
		
		Response.Write("<a href=""catalogo.asp?Pages="&Jo&"&"" class=""classFonte01"" title=""Página "&Jo&""">"&J0&"</a>  ")

end if

Jo = Jo + 1
Wend  
end if
%>



<%
RS_Produtos.Close
Set RS_Produtos = Nothing
conn.close
set conn = nothing
%>

[Matheus Brito 12]

Resolvido.

Abs