Condição não está correta

[marcelocardoso 6]

COLEGAS!

 

Tenho este código abaixo, uma página simples que pagina dados do banco de dados:

<TBODY><TR><TD><table width="722"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">  <tr><td width="784"></td>  </tr>  <tr> <td> <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="4"><tr> <td width="25%"></td><td width="75%"></td></tr><tr> <td valign="top"></td><td valign="top"> <%'Buscaremos no banco de dados os produtos SET RS = CX.Execute("SELECT TOP 4 * FROM Produtos")%><%'Verificaremos se a imagem existe ou não									  IF RS("ImagemNormal") = "" Then	ImagemTratada = RS("ImagemNormal")	ELSE	ImagemTratada = "/imagem_semproduto.jpg" END IF%><table width="98%" border="0" align="center" cellpadding="2" cellspacing="2"><tr> <%'Faremos agora um laço apartir daqui na tabela  WHILE NOT RS.EOF %><td width="643" height="100%"><TABLE width="100%" align="center" cellPadding=2 cellSpacing=2><TBODY><TR> <TD vAlign=top><TABLE width="100%" cellPadding=0 cellSpacing=0 class=PRODBORDA><TBODY><TR> <TD width=125 align=middle valign="top"> 						<a href="detalhes.asp?codproduto=<%=RS("ID")%>" target="_parent"><img src="<%= ImagemTratada %>" alt="Detalhes do produto" width="110" height="110" border="0" align="absmiddle"></a></TD><TD vAlign=top width=380> <TABLE width="100%" cellPadding=0 cellSpacing=0><TBODY><TR> <TD width=2% bgColor=#ea8234 height=40></TD><TD class=PRODTITULO width=98%><strong><%=RSProdutos("ProdutosSigla")%></strong></TD></TR><TR> <TD class=PRODDESCRICAO colSpan=2 height=65></TD></TR><TR> <TD class=PRODALIGNTEXT colSpan=2></TD> </TR></TBODY></TABLE></TD></TR><TR> <TD><A href="produtos.asp?codproduto=<%=RS("ID")%>" target="_parent"><IMG height=28 alt="Adiciona no carrinho" src="imagem_marcador_-_adicionar.gif" width=28 border=0></A></TD><TD><A href="detalhes.asp?codproduto=<%=RS("ID")%>" target="_parent"><IMG src="imagem_marcador_-_deletar.gif" alt="Detalhes do produto" width=28 height=28 border=0></A></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></td><%	     Colunas = 2'// TOTAL DE COLUNAS A SEREM EXIBIDASIF Contador = Colunas - 1 Then %></tr><%Contador = 0ElseContador = Contador + 1End IFRS.MoveNextWendIF Contador = 2 ThenElseIF Contador = 1 Then End IF %></table></td></tr></table> </td>  </tr></table><TBODY><TR> <TD>  </BODY></HTML>

E se notarem no código acima coloquei este código aqui:

<%

'Verificaremos se a imagem existe ou não

IF RS("ImagemNormal") = "" Then

ImagemTratada = RS("ImagemNormal")

ELSE

ImagemTratada = "/imagem_semproduto.jpg"

END IF

%>

Para que busque a imagem no banco, e se caso não tiver nenhuma imagem ele me mostra a imagem default que está abaixo do ELSE, ok....

 

Até ai tudo bem, mas só que ele me coloca a imagem abaixo do ELSE em todas os registros dos produtos paginados na tela. certo.

 

Portanto acho que é porque devo ter colocado o código em em lugar errado....

Acho que é isso....

Mas eu sei que vocês são mais experientes que eu, e olhando o código já verão o problema....

 

 

Obrigado colegas!

[BrunO KIm 0]

CAra tenta fazer o seguinte, Olha como dei uma olhada em seu codigo, pelo jeito deve ta aparecendo ao contrario ne???Ta dizendo o seguinte, (me corrijam se estiver errado!).Se [Recordset] = Vazio entaoEle mostra uma imagem "Default"Se naoMostra o recordset da imagemFim do "SE"Entao O codigo pelo jeito ta ao contrario tenta o seguinte...IF RS("ImagemNormal") = "" Then ImagemTratada = "/imagem_semproduto.jpg" ELSE ImagemTratada = RS("ImagemNormal") END IFVlw?? Espero te ajudadoo!Ops, Esqueci de dizer, Coloca A condicao dentro do laço, pq se nao pode dar erro ou mostrar apenas do primeiro!...hehehehehe"To com falta de memoriaa.Preciso de Um Upgrade."

[Mário Monteiro 179]

aquele codigo tem de estar dentro do LOOP WHILE para funcionare so recortar e colar e depois testar

[marcelocardoso 6]

Olá Mario!

 

Coloquei o a inversão no código, e colei-o dentro do loop WHILE, conforme me falara veja:

<%

'Faremos agora um laço apartir daqui na tabela

WHILE NOT RS.EOF

 

IF RS("ImagemNormal") = "" Then

ImagemTratada = "/imagem_semproduto.jpg"

ELSE

ImagemTratada = RS("ImagemNormal")

END IF

%>

Agora até está me me trazendo as imagem do RS nos produtos listados do banco, mas os produtos que estão cadastrados no banco sem a imagem, ele me deixa sem a imagem ANTES DO ELSE. ok

Ele só me coloca as imagens DEPOIS do ELSE. ok

 

Oque será que pode ser..????

Será que não é por causa desta parte no código, que estraga:

<%	  Colunas = 2'// TOTAL DE COLUNAS A SEREM EXIBIDASIF Contador = Colunas - 1 Then %></tr><%Contador = 0ElseContador = Contador + 1End IFRS.MoveNextWendIF Contador = 2 ThenElseIF Contador = 1 Then End IF %>

Oque acha, pode me ajudar????

[Mário Monteiro 179]

pode ser que não estaja vazio e esteja nulo sei lá alguma coisa assimmude esta linhaIF RS("ImagemNormal") = "" ThenporIF ISEMPTY(RS("ImagemNormal")) OR ISEMPTY(RS("ImagemNormal")) Then

[marcelocardoso 6]

MÁRIO!

 

 

Continuo achando que é por causa DAQUELA parte do código no final, onde se faz a configuração das colunas para aprensentar os produtos na tela.

 

 

Veja para mim, pois você é mais experiente.

Porque acho que não é na instrução do IF, mas sim na ordem deste IF.....

Pois acho que tem que estar dentro:

<%	     Colunas = 2'// TOTAL DE COLUNAS A SEREM EXIBIDASIF Contador = Colunas - 1 Then %></tr><%Contador = 0ElseContador = Contador + 1End IFRS.MoveNextWendIF Contador = 2 ThenElseIF Contador = 1 Then End IF %>

SErá QUE não!!!!!??????

Obrigado MANO.

[Mário Monteiro 179]

voce tentou alterar a linah que te falei antes???teste ai se der erro ainda a gente ver outra possibilidade

[marcelocardoso 6]

Olá MArio!

 

Sim!

Eu troquei a linha me solicitou, por:

IF ISEMPTY(RS("ImagemNormal")) OR ISEMPTY(RS("ImagemNormal")) Then

 

Mas não me dá nenhum erro nenhum na página, simplesmente continua só me mostrando as imagens que já estão gravadas no BD de cada respectivo produto, e não a:

 

ImagemTratada = "/imagem_semproduto.jpg"

 

Que no caso, teria que trazer esta imagem acima sempre quando ele lesse no banco de dados o campo ImagemNormal, que estivesse e fosse vazio. ok

 

Mas não é oque está acontecendo.

[Mário Monteiro 179]

puts agora que vi que ta errado meu codigotrocaIF ISEMPTY(RS("ImagemNormal")) OR ISEMPTY(RS("ImagemNormal")) ThenporIF ISEMPTY(RS("ImagemNormal")) OR ISNULL(RS("ImagemNormal")) Then

[marcelocardoso 6]

beleza Mário!

 

 

Gostaria de te agradecer até aqui ter me ajudado, e por estarmos fechando este tópico com sucesso!

Um Forte Abraço!

 

 

Nos vemos por aí.

Valeu.

 

 

 

DEUS ABENÇOE.

[Mário Monteiro 179]

beleza Mário!

 

Gostaria de te agradecer até aqui ter me ajudado, e por estarmos fechando este tópico com sucesso!

Um Forte Abraço!

 

Nos vemos por aí.

Valeu.

 

DEUS ABENÇOE.

Parabens tiozinho http://forum.imasters.com.br/public/style_emoticons/default/clap.gif