Problema com AbsolutePage

[diegokorvo 0]

Pessoal, estou utilizando este código para paginação de registros...Já busquei aqui no forum algo sobre o assunto, fiz as mudanças mas até agora não funcionou...Quando tem algum registro pra exibir, mostra normalmente, a paginação funciona perfeitamente, mas quando não existem registros dá o erro...

<% Session.LCID = 1046Set Conexao = CreateObject("ADODB.CONNECTION")Conecta ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco/dados.mdb")Conexao.Open ConectaSet RS = Server.CreateObject("AdoDb.RecordSet")RS.CursorLocation = 3registros = 2RS.CacheSize = registrosRS.PageSize = registrosSQL = "SELECT * FROM fachada ORDER BY data_inclusao Desc"RS.Open SQl,Conexao,3,3If RS.EOF Then	Response.Write "Não foi encontrada nenhum tipo de fachada."Else	If Request.QueryString("pagina") = "" Then		pagina = 1	Else	If cint(Request.QueryString("pagina")) < 1 Then			pagina = 1		Else	If cint(Request.QueryString("pagina")) > RS.PageCount Then				pagina = RS.PageCount			Else				pagina = Request.QueryString("pagina")			End if		End if	End IfEnd IfRS.AbsolutePage = CInt(pagina)contador = 0%>

Tipo de erro:ADODB.Recordset (0x800A0BB9)Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito./Meu/2007/plantasefachadas/fachada.asp, line 34

é a linha do RS.AbsolutePage = pagina

[Mário Monteiro 179]

mas neste caso pagina fica com algum valor?

[Ted k' 126]

Seria interessante se você pulasse linha para os IF's, exemplo:

 

seu codigo na linha 21:

Else	If Request.QueryString("pagina") = "" Then

codigo "correto":

Else
If Request.QueryString("pagina") = "" Then

e tratando do seu problema existe algum valor que seja imprimido na tela?

[diegokorvo 0]

achei o erro... o ultimo End If fica no final do código... O AbsolutePage entra no Else do primeiro If...