Lista de Imóveis em colunas com paginação

bgssilva · Setembro 1, 2007

Em primeiro lugar, olá pra todos...

Estou montando um site para uma imobiliária, estou montando uma página que exibirá a foto dos imóveis e seus respectivos bairros em colunas, neste caso a variável que cuida disso é COLUNA e para definir o número de imóveis que serão exibidos na páginação é REGISTROS o trecho abaixo está completamente funcional com excessão de um pequeno detalhe, como não sei quantos imóveis a minha busca irá retornar gostaria de fixar também o número de linhas para não "bagunçar" meu layout. Estava imaginando uma tabela fixa de 5 colunas X 4 linhas e nao mais que isso... caso ultrapasse entraria em ação a paginação.

Veja o código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>:: Lista em colunas com Paginação ::</title> </head><%pagina = Request.QueryString("p")if pagina = "" thenpagina = 1end if'Seta a variavel pagina como a página em questão na paginaçãoregistros = 8'Seta o número de registros por pagina%><body><table width="500" align="center" border="1" align="center" cellpadding="0" cellspacing="4"><%Set Conexao = Server.CreateObject("ADODB.CONNECTION")Set RSImoveis = Server.CreateObject("ADODB.RECORDSET")	Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\imovel\bd\bd_imoveis.mdb;"Conexao.Openset RSImoveis.ActiveConnection = ConexaoRSImoveis.cursortype = 3RSImoveis.pagesize = registrosSQLImoveis = "SELECT  T_Imoveis.ID as IDImovel, T_Bairros.Bairro, First(T_Imoveis_Fotos.CaminhoFoto) AS PrimeiroDeCaminhoFoto FROM T_Imoveis_Fotos INNER JOIN (T_Bairros INNER JOIN T_Imoveis ON T_Bairros.ID = T_Imoveis.ID_Bairro) ON T_Imoveis_Fotos.ID_Imovel = T_Imoveis.ID GROUP BY T_Imoveis.ID, T_Bairros.Bairro, T_Imoveis.Ativo HAVING (((T_Imoveis.Ativo)=True)) ORDER BY Rnd(Int(Now()*[T_Imoveis].[ID])-Now()*[T_Imoveis].[ID]);"RSImoveis.Open SQLImoveis%><%if RSImoveis.EOF then	response.write("<font face=Arial size=2>" & server.HTMLEncode("Sua pesquisa não retornou nenhum resultado") & "</font>")else	RSImoveis.absolutepage = pagina	if RSImoveis.EOF then		response.write("<font face=Arial size=2>" & server.HTMLEncode("Sua pesquisa não retornou nenhum resultado") & "</font>")		fim = 1	end if'variaveis para lista em colunas - iniciocontador = 0inicio = 1final = 0auxEntra = 0coluna = 5'maxlinha = 4'variaveis para lsita em colunas - final	xx = 0 'paginacaoWhile NOT RSImoveis.EOF AND xx < RSImoveis.pagesize	contador = contador + 1 'lista em colunas	xx = xx + 1 'paginacao   'mais sobre a lista em colunas - inicio	IF int("0"&coluna) = int("0"&contador) THEN		inicio = 0		final = 1		contador = 0	END IF	IF (int("0"&inicio) = 1) AND (int("0"&auxEntra) = 0)  THEN		auxEntra = 1		response.write "<tr>"	END IF	if RSImoveis("PrimeiroDeCaminhoFoto") <> "" then%>		<td>			<center>			<%if RSImoveis("PrimeiroDeCaminhoFoto") <> "" then%>				<font face=verdana size=1><a href="detalhes.asp?codimovel=<%=RSImoveis("IDImovel")%>">			<img border=0 width=100 src="<%=RSImoveis("PrimeiroDeCaminhoFoto")%>"></a>				<BR><%=server.htmlencode(RSImoveis("bairro"))%>				</font>			<%else%>				<font face=verdana size=1><img border=0 width=100  src='imagens/imoveis/sem_foto.jpg'>				<BR><%=server.htmlencode(RSImoveis("bairro"))%></font>			<%end if%>			</center>		</td><%else%>	 <td>		 <center>		 <font face=verdana size=1><img border=0 width=100  src='imagens/imoveis/sem_foto.jpg'>		 <BR><%=server.htmlencode(RSImoveis("bairro"))%></font>		 </center>		</td><%end if				IF int("0"&final) = 1 THEN			response.write "</tr>"			inicio = 1			final = 0			auxEntra = 0		END IF	'mais sobre a lista em colunas - final	'response.write "Nº " & xx & " - " & server.HTMLEncode(RSImoveis("bairro")) & "<br>"	RSImoveis.MoveNext	Wendend ifif fim = "" then   anterior = pagina - 1   proxima = pagina + 1end ifConexao.CloseSet RSImoveis = Nothing%></table><center><%if anterior <> 0 then	response.write("<a href=" & request.servervariables("script_name") & "?p=" & anterior & ">" & server.HTMLEncode("Página Anterior") & "</a> - ") end ifresponse.write("<a href=" & request.servervariables("script_name") & "?p=" & proxima & ">" & server.HTMLEncode("Próxima Página") & "</a>")%></center></body></html>

Gostaria de fixar linhas e caso não haja imóveis para serem listados inserir imagens de "anuncie seu imóvel aqui".

Já fiz de tudo mas não consigo fixar as linhas da tabela.

Desde já agradeço a atenção.

[]s

bgssilva · Janeiro 2, 2008

Ainda permaneço no aguardo de uma possível dica e/ou resposta para esse tópico... tenho navegado no fórum e parece que como em qualquer local existe a famosa "panelinha" claro que no dia a dia temos que participar de uma ou outra para termos e conseguirmos o que nos interessa.... mas daí a perguntar e não obter resposta alguma enquanto outros tem 50 respostas é um tanto quanto frustrante.

bom foi só um desabafo....

Feliz ano novo pra todos!!!

[]s

jrcardozo · Janeiro 3, 2008

bom, quanto a seu desabafo, está no seu direito mas faço breves observações:

- não há "panelinha" no forum, você pode ter essa impressão pelo seguinte motivo:

normalmente os tópicos com muitas respostas são aqueles com assuntos pouco habituais no forum o qual desperta maior interesse aos demais.

para os tópicos sem solução com baixo numero de respostas pode ser pelo seguinte:

-o conteudo do tópico não deixa claro o objetivo(este em sua maioria);

-assuntos muitos rotineiros onde basta usar a busca;

-postagem de códigos gigantescos onde fica impossivel alguem parar o que está fazendo para analisar;

-ninguem sabe responder ou tem outras atividades/obrigações do dia-a-dia que dificultam a visitação no fórum para responder.

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

Quanto a sua questão, vou responder pelo que eu compreendi no que deseja.

1º - é necessário listar seus registros em colunas, para isso veja no tópico pendurado de "Dúvidas Frequestes"

2º - aplicar a paginação. Veja no laboratório de scripts alguns exemplos de paginação

DSerma · Janeiro 3, 2008

Cara.. você não quer limitar o numero de registros por página para 4 ???

Então.. no seu codigo não tem uma variavel chamada "Registros" que está a 8???

Basta mudá-la para 4... \o/

registros = 8
'Seta o número de registros por pagina

%>
<body>
<table width="500" align="center" border="1" align="center" cellpadding="0" cellspacing="4">
<%
Set Conexao = Server.CreateObject("ADODB.CONNECTION")
Set RSImoveis = Server.CreateObject("ADODB.RECORDSET")	
Conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\imovel\bd\bd_imoveis.mdb;"
Conexao.Open
set RSImoveis.ActiveConnection = Conexao
RSImoveis.cursortype = 3
RSImoveis.pagesize = registros

É essa variável que controla o numero de registros exibidos por página na paginação....

Ainda permaneço no aguardo de uma possível dica e/ou resposta para esse tópico... tenho navegado no fórum e parece que como em qualquer local existe a famosa "panelinha" claro que no dia a dia temos que participar de uma ou outra para termos e conseguirmos o que nos interessa.... mas daí a perguntar e não obter resposta alguma enquanto outros tem 50 respostas é um tanto quanto frustrante.

bom foi só um desabafo....

Feliz ano novo pra todos!!!

[]s

Sobre o seu comentário citado acima.... não acho que exista uma panela aki no fórum...

Eu particularmente tento responder a todos os tópicos que leio, e SEI QUE POSSO....

Mesmo as vezes, quando não sei muito bem do assunto, dou uma pesquisada antes de responder....

Mas lembre-se de uma coisa: ninguém é OBRIGADO a responder tópico nenhum... as pessoas respondem pq querem.. ou pq tem tempo para isso...

Claro que existem tópicos que nao dá nem vontade de responder, pq são assuntos tão banais que basta uma rápida pesquisa no Google ou aki mesmo nofórum para sanar a duvida...

Ou então akeles topicos com codigos de 9968779865465456 linhas, onde o cara fala: "por favor, avaliem meu codigo e encontrem o erro pra mim"... Ai já é sacanagem neh ??

Se existe panela aki... creio que nao.... ao meu ver.. apenas existe um grupo de profissionais que as vezes se recusa a responder devido à GRANDE "folga" de alguns usuarios que querem tudo na mao.... ou nao responde por falta de tempo mesmo....

Foi só um desabafo, em resposta ao seu... sem a intenção de brigar ou ofender ninguém...

Abraços...

Entrar

Arquivado

Lista de Imóveis em colunas com paginação

Recommended Posts

bgssilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

bgssilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

DSerma 19

Compartilhar este post

Link para o post

Compartilhar em outros sites

mostrar quanto tempo foi postado um conteudo

lendo RSS com PHP mostrando a imagem de preview

Fixar div até atingir uma certa altura

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante