Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Hellxande

While não mostra resultados menores que 3

Recommended Posts

Prezado amigos, novamente venho pedir socorro.

Tenho uma pagina que apresenta uma Foto Grande do Produto e em baixo um Carousel JQuery onde apresenta a Miniatura da Foto de todos os Produtos do Grupo.

Tudo estava bem até que percebi o Problema. Qdo tenho um Grupo de Produtos onde existe somente 1 ou 2 Produtos cadastrados a apresentação da Miniatura não ocorre, e para piorar não dá nem erro, simplesmente o quadro aparece vazio.

 

Segue abaixo trechos do Código

 

' Select que recebe e identifica qual é o Grupo selecionado
TabProdutoGrupo = Server.CreateObject("adodb.recordset")
sql = "select * from ProdutoGrupo where ProdutoGrupoID = "&Request.QueryString("ID")&""
set TabProdutoGrupo = Conexao.execute(sql)

' Variável que recebe o Código do Grupo 
CodigoProdutoGrupo = CStr(TabProdutoGrupo("ProdutoGrupoID"))

' Select que carrega os Produtos ligados ao Grupo selecionado ondenando pelo campo ProdutoID Ascendente
TabProduto = Server.CreateObject("adodb.recordset")
sql = "select * from Produto where ProdutoGrupoID = "&CodigoProdutoGrupo&" order By ProdutoID ASC"
set TabProduto = Conexao.execute(sql)

 

<!-- Início da Div de apresentação das miniaturas -->
<div id="carosel" style="border:solid">
<div class="carosel">
<ul>
<%
IF Not TabProduto.EOF Then

Count = 0
Do While Not TabProduto.EOF
CodigoProduto = CStr(TabProduto("ProdutoID"))
Foto = TabProduto("ProdutoFoto")
FotoPq = TabProduto("ProdutoFotoPequena")
ProdutoNome = TabProduto("ProdutoNome")

Response.Write("<li><img src='ProdutoGrupo/Produtos/"&FotoPq&"' width='147' height='81' border='0' /></li>")

TabProduto.MoveNext
count=count+1
loop

Else
Response.Write("Nao achou nada")
End IF
%>
</ul>
</div>
</div>
<!-- Fim da Div de apresentação das miniaturas -->

 

Desde já agraceço qualquer sugestão.

 

Atenciosamente

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse

CodigoProdutoGrupo = CStr(TabProdutoGrupo("ProdutoGrupoID"))

 

ta sendo convertido para string.

 

Tenta converter para Inteiro.

CodigoProdutoGrupo = CInt(TabProdutoGrupo("ProdutoGrupoID"))

 

Qlqr coisa avisa.

 

Prezado amigos, novamente venho pedir socorro.

Tenho uma pagina que apresenta uma Foto Grande do Produto e em baixo um Carousel JQuery onde apresenta a Miniatura da Foto de todos os Produtos do Grupo.

Tudo estava bem até que percebi o Problema. Qdo tenho um Grupo de Produtos onde existe somente 1 ou 2 Produtos cadastrados a apresentação da Miniatura não ocorre, e para piorar não dá nem erro, simplesmente o quadro aparece vazio.

 

Segue abaixo trechos do Código

 

' Select que recebe e identifica qual é o Grupo selecionado
TabProdutoGrupo = Server.CreateObject("adodb.recordset")
sql = "select * from ProdutoGrupo where ProdutoGrupoID = "&Request.QueryString("ID")&""
set TabProdutoGrupo = Conexao.execute(sql)

' Variável que recebe o Código do Grupo 
CodigoProdutoGrupo = CStr(TabProdutoGrupo("ProdutoGrupoID"))

' Select que carrega os Produtos ligados ao Grupo selecionado ondenando pelo campo ProdutoID Ascendente
TabProduto = Server.CreateObject("adodb.recordset")
sql = "select * from Produto where ProdutoGrupoID = "&CodigoProdutoGrupo&" order By ProdutoID ASC"
set TabProduto = Conexao.execute(sql)

 

<!-- Início da Div de apresentação das miniaturas -->
<div id="carosel" style="border:solid">
<div class="carosel">
<ul>
<%
IF Not TabProduto.EOF Then

Count = 0
Do While Not TabProduto.EOF
CodigoProduto = CStr(TabProduto("ProdutoID"))
Foto = TabProduto("ProdutoFoto")
FotoPq = TabProduto("ProdutoFotoPequena")
ProdutoNome = TabProduto("ProdutoNome")

Response.Write("<li><img src='ProdutoGrupo/Produtos/"&FotoPq&"' width='147' height='81' border='0' /></li>")

TabProduto.MoveNext
count=count+1
loop

Else
Response.Write("Nao achou nada")
End IF
%>
</ul>
</div>
</div>
<!-- Fim da Div de apresentação das miniaturas -->

 

Desde já agraceço qualquer sugestão.

 

Atenciosamente

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse

CodigoProdutoGrupo = CStr(TabProdutoGrupo("ProdutoGrupoID"))

 

ta sendo convertido para string.

 

Tenta converter para Inteiro.

CodigoProdutoGrupo = CInt(TabProdutoGrupo("ProdutoGrupoID"))

 

Qlqr coisa avisa.

 

Obrigado pela sugestão, porém infelizmente não deu certo.

mesmo pq o problema não é na identificação do Grupo, mas sim na apresentação dos Produtos lugados ao Grupo qdo neste só tem 1 ou 2 produtos, qdo tem 3 p/ mais funciona perfeitamente.

 

Dá a sensação que o While se perder qdo tem somente 1 ou 2 Produtos, e não sabe a hora de parar e apresentar os resultados.

Compartilhar este post


Link para o post
Compartilhar em outros sites

qual o numero de erro gerado ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

qual o numero de erro gerado ?

 

Obrigado pelo contato.

Infelizmente não da nenhum erro.

Veja as Imagens abaixo:

 

- Apresentação de um Grupo com 3 Produtos.

01.png

 

- Apresentação de um Grupo com 1 Produto.

02.png

Compartilhar este post


Link para o post
Compartilhar em outros sites

não apareceu as imagens ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

no jquery faça

 

 



$(function(){
$(".carosel ul li").size();
});




só para ver quantas li ele está lendo


se estiver a usar algum plugin verifique se não tem uma propriedade com o mínimo de itens


Compartilhar este post


Link para o post
Compartilhar em outros sites

olha este exemplo, muito bom e fácil de implementar

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.