Busca + Paginação

[DackAle]

E ae galerinha =)

Bom em um site, fi uma busca e ao mostrar os resultados há uma paginação, ele busca normalmente e mostra os resultados e embaixo a paginação...

Mas quando clico na segunda pagina, ao invés de continuar mostrando os registros de onde parou na pagina um, na pagina dois ele mostra todos os registros, na terceira pagina ele contiua mostrando os registro e por ae vai.....

AO invés de mostrar a continuação, ele mostra todos... estranho... o codigo e esse:

<%@ LANGUAGE="VBSCRIPT"%>
<!--#include file="includes/config.asp"-->
<!--#include file="includes/abrebanco.asp"-->
<!--#include file="includes/adovbs.inc"-->
<%
currentpage=request.querystring("currentpage")
var_categoria = Request.form("f_categoria")
var_tipo = Request.form("f_tipo")
var_local = Request.form("f_local")

Response.Expires = 0

Const intPageSize = 20

If currentpage = "" then
	intCurrentPage = 1
Else
	intCurrentPage = Request.Querystring("CurrentPage")
	Select Case Request.Querystring("Submit")
  Case "Previous"
  	intCurrentPage = intCurrentPage -1
  Case "Next"
  	intCurrentPage = intCurrentPage +1
  End Select
End If

Set exe = Server.CreateObject("ADODB.Recordset")
exe.CacheSize = intPageSize

if var_categoria = "" and var_tipo = "" and var_local = "" then
SQL="SELECT * FROM imoveis ORDER BY bairro, preço ASC"
elseif var_categoria = "" and var_tipo = "" then
SQL="SELECT * FROM imoveis WHERE bairro ='" & var_local & "' ORDER BY bairro, preço ASC"
elseif var_categoria = "" and var_local = "" then
SQL="SELECT * FROM imoveis WHERE tipo ='" & var_tipo & "' ORDER BY bairro, preço ASC"
elseif var_tipo = "" and var_local = "" then
SQL="SELECT * FROM imoveis WHERE categoria ='" & var_categoria & "' ORDER BY bairro, preço ASC"
elseif var_tipo = "" then
SQL="SELECT * FROM imoveis WHERE categoria ='" & var_categoria & "' and bairro='" & var_local & "' ORDER BY bairro, preço ASC"
elseif var_categoria = "" then
SQL="SELECT * FROM imoveis WHERE tipo ='" & var_tipo & "' and bairro='" & var_local & "' ORDER BY bairro, preço ASC"
elseif var_local = "" then
SQL="SELECT * FROM imoveis WHERE tipo ='" & var_tipo & "' and categoria='" & var_categoria & "' ORDER BY bairro, preço ASC"
else
SQL="SELECT * FROM imoveis WHERE bairro ='" & var_local & "' AND tipo ='" & var_tipo & "' AND categoria='" & var_categoria & "' ORDER BY bairro, preço ASC"
end if
exe.Open sql, banco,3,3

exe.PageSize = intPageSize
If Not(exe.EOF) Then exe.AbsolutePage = intCurrentPage

intTotalPages = exe.PageCount
%>

Tem um resto do codigo, mas é a parte de mostrar links e fazer o looping só, alguém tem ideia do por que ele não esta mostrando certo a paginação ?

Abraços

[DackAle]

Hmmmm to achando que o cara que fez o codigo (não fui eu) fez caquinha, naquela parte do request.querystring("submit"), não tem nada de submit no codigo e na url muito menos...

If currentpage = "" then
intCurrentPage = 1
Else
intCurrentPage = Request.Querystring("CurrentPage")
Select Case Request.Querystring("Submit")
 Case "Previous"
  intCurrentPage = intCurrentPage -1
 Case "Next"
  intCurrentPage = intCurrentPage +1
 End Select
End If

Pelo que entendi é nesta parte que ele continua a paginação e se for isso, ai que deve ta dando o erro...

[mariofdf]

cara um otimo exemplo.

http://scriptbrasil.com.br/forum/index.php...f=2&t=12549&st=