Erro De Paginação E Código Muito Grande

Dezembro 26, 2005

Olá Pessoal, por favor veja se alguém pode me ajudar nesse código, pois alem de gigantesco ele não funciona a paginação, e gostaria que aparecesse os números de paginas assim como aki no forum ou no google ex.: Página 1 de 10 - Anterior 1 2 3 4 Proximo.

Ah! desculpe pelos apostrofos de comentários e em outros lugares, + é que tentei de tudo que foi jeito, e nada...então deixei, para q vocês vissem o que pode ter de errado!!!!

Bem como vocês podem ver não manjo muito de ASP, + preciso fazer!!!!

Quanto a pesquisa esta funcionando mas, do lado direito da tabela preciso que apareçam as fotos(5) de preferencia quando você clicar em uma , esta aparece maior numa céclula Central e as 5 enfileiradas em baixo,deu pra entender????

Obs.O código das fotos nem comecei a fazer ainda..se puderem me esclarecer como fazer, agradeço.

Ai esta o código da pagina pesquisa.asp:

<style type="text/css">

</style>
<%
DIM localizacao1
DIM localizacaoatual
DIM imoveis
localizacaoatual=(Request.QueryString("localizacao1"))
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Inetpub/wwwroot/EMI_N/dados/emi_web.mdb"
conexao.open
Set rsimoveis=Server.CreateObject("ADODB.RecordSet")
rsimoveis.PageSize = 2
rsimoveis.open "select * from imoveis where localizacao1='" & localizacaoatual & "' ",conexao,3,3
%>
<table border="0" width="637" id="table1" style="border-collapse: collapse" height="175">
<tr>
<td width="211"><a href="pesquisa.asp?localizacao1=aruja5">Arujá 5</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=arujacountryclub">Arujá Country Club</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=arujahills">Arujá Hills I e II</a></td>
</tr>
<tr>
<td width="211"><a href="pesquisa.asp?localizacao1=aruja3">Arujá III</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=arujazinho1">Arujazinho I II III</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=arujazinho5">Arujazinho IV</a></td>
</tr>
<tr>
<td width="211"><a href="pesquisa.asp?localizacao1=colinasverdesaruja">Colinas Verdes Arujá</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=arua">Aruã</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=aruaecopark">Aruã Eco Park</a></td>
</tr>
<tr>
<td width="211"><a href="pesquisa.asp?localizacao1=arualagos">Aruã Lagos</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=ibirapitanga">Ibirapitanga</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=montereyville">Monterey Ville</a></td>
</tr>
<tr>
<td width="211"><a href="pesquisa.asp?localizacao1=bairros">Bairros</a></td>
<td width="212"><a href="pesquisa.asp?localizacao1=litoral">Litoral</a></td>
<td width="212"></td>
</tr>
</table>
<hr noshade color="#000099" size="4">
<table border="0" width="100%" id="table2">
<tr>
<td><%
IF rsimoveis.EOF then
Response.Write " "
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"))> rsimoveis.PageCount then
intpagina=rsimoveis.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
'END IF
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao rsimoveis que página ele esta
rsimoveis.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 < rsimoveis.PageSize and not rsimoveis.EOF

do while not rsimoveis.eof
response.write "Ref. do Imóvel: " & rsimoveis.fields("refimovel") & " "
response.write "Valor: " & rsimoveis.fields("valor") & " "
response.write "Área do Terreno: " & rsimoveis.fields("areaterreno") & " m² "
response.write "Área Construida: " & rsimoveis.fields("areaconstruida") & " m² "
response.write "Nº de Dormitorios: " & rsimoveis.fields("dormitorios") & " "
response.write "Suíte Master: " & rsimoveis.fields("suitemaster") & " "
response.write "Nº de Suítes: " & rsimoveis.fields("suites") & " "
response.write "Armários Embutidos: " & rsimoveis.fields("armariosembutidos") & " "
response.write "Sala de Visitas: " & rsimoveis.fields("saladevisita") & " "
response.write "Sala de Ginástica: " & rsimoveis.fields("saladeginastica") & " "
response.write "Sala de Jantar: " & rsimoveis.fields("saladejantar") & " "
response.write "Escritório: " & rsimoveis.fields("escritorio") & " "
response.write "Lareira: " & rsimoveis.fields("lareira") & " "
response.write "Home Theater: " & rsimoveis.fields("hometheater") & " "
response.write "Cozinha: " & rsimoveis.fields("cozinha") & " "
response.write "Banheiros: " & rsimoveis.fields("banheiros") & " "
response.write "Varanda: " & rsimoveis.fields("varanda") & " "
response.write "Lavabo: " & rsimoveis.fields("lavabo") & " "
response.write "Piscina: " & rsimoveis.fields("piscina") & " "
response.write "Churrasqueira: " & rsimoveis.fields("churrasqueira") & " "
response.write "Forno para Pizza: " & rsimoveis.fields("fornopizza") & " "
response.write "Sauna: " & rsimoveis.fields("sauna") & " "
response.write "Lavanderia: " & rsimoveis.fields("lavanderia") & " "
response.write "dependência de Empregado: " & rsimoveis.fields("depempregado") & " "
response.write "Garagem para: " & rsimoveis.fields("garagem") & " carros"
%>
</td>
<td></td>
</tr>
</table>
<hr noshade color="#000099" size="4">
<%rsimoveis.movenext
'loop
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF rsimoveis.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="pesquisa.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,rsimoveis.PageCount) <> 0 then
%>
<a href="pesquisa.asp?pagina=<%=intpagina + 1%>">Próxima</a>
<%
END IF
'END IF
loop
wend
END IF
rsimoveis.close
Conexao.Close
Set Conexao = Nothing
%>

Meu e-mail e MSN é klebeer_@hotmail.com

Meu ICQ é 138445720

Obrigado pela atenção.

Editado Dezembro 26, 2005 por cyberalexxx

Marcos-rj · Janeiro 9, 2006

O que acontece na paginação? dá algum erro?

Entrar

Erro De Paginação E Código Muito Grande

Pergunta

Guest Klebeer

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Marcos-rj

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades