o banco de dados esta consultando normalmente, mas a paginação não fun

paulo_roll · Agosto 10, 2006

o banco de dados esta consultando normalmente, mas a paginação não funciona e não apresenta erros na tela. desculpa colocar o código, mas é que estou precisando. analisem e mandem a sintaxe correta se possível por favor. obrigado a todos do fórum.

<%@LANGUAGE=VBSCRIPT%>

<html>

<head>

<title>HABITAR IMOBILIÁRIA</title>

</head>

<body>

<%

tipo = Request.QueryString("tipo")

categoria = request.querystring("categoria")

transacoes = request.querystring("transacoes")

preco = request.querystring("preco")

if tipo <> "" then

stringConexao = "Provider=Microsoft.JET.OLEDB.4.0; Data Source=" & Server.MapPath("info.mdb")

set objConexao = Server.CreateObject("ADODB.Connection")

objConexao.Open stringConexao

Set objRS = Server.Createobject("ADODB.Recordset")

objRS.PageSize = 4

strSQL = "SELECT * FROM imoveis WHERE tipo LIKE '%"& tipo &"%' and categoria LIKE '%"& categoria &"%' and transacoes LIKE '%"& transacoes &"%' and preco < '"& preco &"' + 1 "

objRS.Open strSQL,objConexao,3,3

%>

<%

'paginação

'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc.

IF objRS.EOF then

response.write " "

response.write ""

Response.Write "<center>nenhum registro encontrado</center>"

Response.End 'paramos o programa

ELSE 'Definindo em qual pagina o visitante está

IF Request.QueryString("pagina")="" then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> objRS.PageCount then

intpagina=objRS.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

'Fim das verificações de exceções

'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta

objRS.AbsolutePage=intpagina

' Inicia o contador que vai controlar os registros mostrados

intrec=0

'Enquanto o contador for menor que a quantidade de registros mostrados ou

' não for o final do arquivo

%>

<%While intrec < objRS.PageSize and not objRS.EOF %>

<tr>

<%response.write ""& objRS("transacoes") &""%>

<%response.write "R$"& objRS("preco") &",00"%></div></td>

<a href="<%response.write ""& objRS("fotoslink") &""%>" target="corpo">+ fotos</a></td>

</tr>

<%objRS.MoveNext%>

<%

' Acrescenta +1 ao contador intrec=intrec+1

'Se for EOF (fim de arquivo), imprimir branco na tela

IF objRS.EOF then

response.write " "

END IF

wend

'fim do loop

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>">Anterior</a>

<% END IF

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página

IF strcomp(intpagina,objRS.PageCount) <> 0 then %>

<a href="paginacao.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<% END IF%>

<%end if%>

</td></tr>

</table>

</body>

</html>

kaplan · Agosto 10, 2006

mta calma nesta hora qual é o erro que apareçe???

paulo_roll · Agosto 10, 2006

tenho que entregar esse projeto.o erro é que a consulta funciona normalmente. é como se o código da paginação não existisse.eu coloquei para exibir 4 dados por página ,mas isso não acontece. o banco de dados exibe muito mais dados. como faço para limitar esses dados para 4 dados por página?a tela não mostra erros, somente não usa a paginação.obrigado pela atenção.

Entrar

Arquivado

o banco de dados esta consultando normalmente, mas a paginação não fun

Recommended Posts

paulo_roll 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kaplan 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

paulo_roll 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante