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

Reginaldo · Junho 6, 2008

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

jrcardozo · Junho 6, 2008

não te resolve rs.recorCount???

Reginaldo · Junho 7, 2008

Cardozo se observar o codigo verá q ja estou usando isto p/ ver a quantia de resgistros encontrados..

Ted k' · Junho 8, 2008

você colocou numero de registro por linha são 4, tente colocar por exemplo 10 só de teste para ver!

Reginaldo · Junho 8, 2008

rapaz tava esperando você rrsrsrsr... coloquei 10 e ai sim veio todos os regidtros certinho... o problema ficou sendo que dessa forma ele não cria uma nova linha a cada 4 lado a lado...

Ted k' · Junho 8, 2008

Lógica:

vocês tem 7 registros para colocar em pares de 4...

sobra um (1), dei uma concertada no seu contador, e veja ai se serve:

CODE

<!-- #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">

<!--

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 width=100 border=0 align="center" cellspacing="20">

<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

 q=q+1

 %>

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

<% If q=4 Then %>

</tr>

<tr>

<%

q=0

End If
 
tedkdados.Movenext

Loop
 
Anterior = PaginaAtual - 1

If Anterior <= 0 Then

Anterior = 1

End if
 
Proximo = PaginaAtual + 1

If Proximo > tedkdados.PageCount Then

Proximo = tedkdados.PageCount

End if

%>

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

Reginaldo · Junho 8, 2008

rapaz q parte você modificou ? rsrs num to axando... colei seu codigo aki no dw mas ficou tudo sem diagramação... você pode me mandar o arquivo asp zipado por email ?

reginaldosantoro@gmail.com

obrigado :D

Ted k' · Junho 8, 2008

estranho coloquei no DW aqui e ficou numa boa, está ok o código, olha ele ai novamente:

CODE

<!-- #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">

<!--

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 width=100 border=0 align="center" cellspacing="20">

<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

 q=q+1

 %>

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

<% If q=4 Then %>

</tr>

<%

q=0

End If
 
tedkdados.Movenext

Loop
 
Anterior = PaginaAtual - 1

If Anterior <= 0 Then

Anterior = 1

End if
 
Proximo = PaginaAtual + 1

If Proximo > tedkdados.PageCount Then

Proximo = tedkdados.PageCount

End if

%>

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

Reginaldo · Junho 10, 2008

ahhh agora sim.... mas sinceramente não sei oq estava errado... rs

pra mim a logica continuou a mesma.. o importante é que você me ajudou e deu certo.. http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

obrigado

Arquivado

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

Recommended Posts

Reginaldo 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

Reginaldo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Reginaldo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Reginaldo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Reginaldo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante