Publicado em 6 de jun.

[Resolvido] 7 registros encontrados..... correto!

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

<%
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">

<!-- body { scrollbar-face-color: #271B67; scrollbar-shadow-color: white; scrollbar-highlight-color: #271B67; scrollbar-3dlight-color: white; scrollbar-darkshadow-color: #271B67; scrollbar-track-color: #271B67; scrollbar-arrow-color: white;} a:link {

	color: #FFFFFF;
	font-weight: bold;
}

a:visited {

	color: #FFFFFF;
	font-weight: bold;
}
.style2 {
	color: #FFFFFF;
	font-size: 13px;
}

.style4 {font-family: Arial, Helvetica, sans-serif} .style6 {font-family: Arial, Helvetica, sans-serif; font-size: 13px; color: #333333; }

.style8 {
	font-family: Arial, Helvetica, sans-serif;
	font-size: 13px;
	color: #000000;
}
.style9 {
	color: #FFFFFF;
	font-size: 14px;
}

.style10 {font-size: 12px} .style11 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #333333; } -->

</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>

<% Dim contador contador = 1 maxcol = 4 '<------------------ numero de registros por linha

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 LOOP

'rs_departamentos.movenext 'loop '------------------- TedkDados.MoveNext : Wend Anterior = PaginaAtual - 1 Proximo = PaginaAtual + 1

If 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á!!!

Discussão (8)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...