Jump to content


Hellxande

Member Since 23/04/2011
Offline Last Active 24/02/2012, 20:40
-----

Topics I've Started

While Não Mostra Resultados Menores Que 3

02/02/2012, 15:19

Prezados amigos.
Tenho uma página ASP 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. quando 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("não achou nada")
End IF
%>
</ul>
</div>
</div>
<!-- Fim da Div de apresentação das miniaturas -->
Desde já agradeço qualquer sugestão.

Atenciosamente

IPB Skin By Virteq