Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
pessoal eu usei a paginação que o Ted' K disponibilizou pra gente no laboratorio de scripts e integrei com a listagem em colunas.. lado a lado que tb tem aki no forum...
tudo certo até ai... funcionou e ficou maravilhoso... o problema é que sempre lista 1 registro a menos que o total encontrado pelo select..
se ele encontra 7 lista apenas 6 ... ja revirei do avesso o codigo e não encontro o problema.... conto com vocês!!!!
ai vai me codigo
<!-- #include file = "conecta.asp" -->
<!-- #include file = "conecta2.asp" -->
<%
Session.LCID=1046
session("cat") = 8
session("subgrupo") = 0
TedkBanco.CursorLocation = 3
Set TedkDados = Server.CreateObject("Adodb.RecordSet")
TedkDados.Pagesize = 14
TedkDados.Open "SELECT * from imoveis_n where cod_grupo like '"&session("cat")&"' and cod_subgrupo like '"&session("subgrupo")&"'",TedkBanco
%>
<script>
function abre(id) {
posicao_x = (screen.width-780)/2;
posicao_y = (screen.height-550)/2;
window.open('visualiza.asp?id='+id+'','Visualizar','scrollbars=no,width=780,height=550,left='+posicao_x+',top='+posicao_y+'');
}
</script>
<style type="text/css"> color: #FFFFFF;
font-weight: bold;
} color: #FFFFFF;
font-weight: bold;
}
.style2 {
color: #FFFFFF;
font-size: 13px;
}.style8 {
font-family: Arial, Helvetica, sans-serif;
font-size: 13px;
color: #000000;
}
.style9 {
color: #FFFFFF;
font-size: 14px;
}</style>
<body background="fundo_pag2.jpg" bgproperties="fixed" topmargin="0" leftmargin="0" bottommargin="0" rightmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#271B67" scope="col">
<div align="center"><span class="style2"> <strong> <span class="style4">Ortec - Deste 1973 servindo você! </span></strong></span> </div></td>
</tr>
</table>
<table cellspacing="20" border=0 width=100%>
<tr>If TedkDados.Eof Then
Response.Write("")
Else
PaginaAtual = CInt(Request.Querystring("Pages"))
If PaginaAtual = 0 Then
PaginaAtual = 1
End If
TedkDados.AbsolutePage = PaginaAtual
Num = TedkDados.PageCount
response.Write(TedkDados.recordcount)
While Not TedkDados.Eof And TedkDados.AbsolutePage = PaginaAtual
'COMEÇA O LOOP DE IMÓVEIS ENCOTNRADOS
'do while not rs_departamentos.eof
'------------------------------------
if contador <= maxcol then %>
<td style="BORDER-RIGHT: #ededed 1px solid; BORDER-TOP: #ededed 1px solid; FONT-SIZE: 12px; FLOAT: left; MARGIN: 10px; BORDER-LEFT: #ededed 1px solid; BORDER-BOTTOM: #ededed 1px solid;">
<center><%
if TedkDados("des_grupo") = "Salão Comercial" then
desc = "Sal. Com."
elseif TedkDados("des_grupo") = "Oportunidades" then
desc = "Oport."
elseif TedkDados("des_grupo") <> "Oportunidades" or TedkDados("des_grupo") <> "Salão Comercial" then
desc = TedkDados("des_grupo")
End if
%>
<TABLE width=150 align=center border=0>
<TBODY>
<TR>
<TD height=110 colspan="2" align=middle vAlign=center><div align="center"><img src="imagens<%=TedkDados("imagem")%>" width="140" height="105" style="cursor:hand" onClick="java script:abre(<%=TedkDados("id")%>)" /></div></TD>
</TR>
<TR>
<th align=middle><div align="center" class="style6 style10"><%=desc%></div></th>
<th align=middle><div align="center" class="style11">cod: <%=TedkDados("codigo")%></div></th>
</TR>
<TR>
<TD align=middle><div align="center" class="style11"><%=TedkDados("des_subgrupo")%></div></TD>
<TD align=middle><div align="center" class="style11"><%=FormatCurrency(TedkDados("valor"))%></div></TD>
</TR>
</TBODY>
</TABLE>
</center> </td>
<%
contador = contador + 1
else %>
</tr>
<tr>
<%
contador = 1
end if
'DOU A VOLTA NO LOOPIf Anterior <= 0 Then
Anterior = 1
End If
If Proximo > TedkDados.PageCount Then
Proximo = TedkDados.PageCount
End If
'completa as colunas
do while contador <= maxcol %>
<td> </td>
<% contador = contador + 1
loop %>
</tr>
</table>
<div align="right"><span class="style8"><br>
</span>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<th bgcolor="#271B67" scope="col"><div align="right" class="style9">
<div align="center"><span class="style4">Resultados:
<%
Jo = 1
While Jo <= TedkDados.PageCount
If PaginaAtual = Jo Then
Response.Write("["&Jo&"] ")
Else
Response.Write("<a href=""lista.asp?Pages="&Jo&"&cat="&session("cat")&"&subgrupo="&session("subgrupo")&""" title=""Página "&Jo&""">"&Jo&"</a> ")
End If
Jo = Jo + 1
Wend
End If </span></div>
</div></th>
</tr>
</table>
<span class="style8"><br>
</span></div>
</body>agradeço desde já!!!
Carregando comentários...