[Resolvido] Sub Rotina para ocultar imagem caso esteja vazia

[Digon 0]

Olá

 

No Catalogo Virtual de um cliente, precisei adicionar mais 3 campos para incluir fotos (antes apenas tinha 1) totalizando 4.

Mas alguns produtos têm apenas uma foto e embaixo dela fica a imagem de que não contem foto [x].

 

Gostaria de saber se existe uma forma de ocultar esse [x] com alguma Sub rotina.

 

 

http://www.mkt.locaweb.com.br/maquinas/fotos/detalhes.asp?n=564

Aqui está a visualização do problema.

[Ted k' 126]

quando resgatar faça isso aqui:

 

<% if (rs("foto_01") <> "") then %>
<img src="<%=rs("foto_01")%>" border="0" />
<% end if %>

[Mário Monteiro 179]

basta um if com fso para ver se a imagem existe

 

se não existir não cria a celula

 

se vem do db faça como o ted mostrou

[xanburzum 169]

como foi citado, faz um If e você pode colocar uma imagem padaro, ou seja, quando nao tiver a imagem foi exibe uma imagem padaro sua, tipo "sem imagem", "sem visualização", etc...

[Digon 0]

A forma que o Ted K passou não deu certo(agredeço pela ajuda)

tentei da seguinte forma

 

<%
	ComandoSQL = "SELECT ID_Produto FROM Produtos Where ID_Produto = " & Request.QueryString("id")&""
	Set Produtos = Conexao.Execute(ComandoSQL)
	Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath( "imagens/" &Produtos("id_produto") & ".jpg")) Then
	%>
<tr>
  <td colspan="2" bgcolor="#f0f0f0"><p><img src="resize.asp?path=<%=Server.MapPath("Imagens")%>\<%=Produtos("id_produto")%>.jpg&width=520" border=0></p>
   </td>
  </tr>
 <%
End If
Set objFS = Nothing

'Exibe Foto2

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath( "imagens/" &"o02_"&Produtos("id_produto") & ".jpg")) Then
%> 
		<tr>
  		<td colspan="2" bgcolor="#f0f0f0"><p>
<img src="resize.asp?path=<%=Server.MapPath("Imagens")%>\<%="o02_"&Produtos("id_produto")%>.jpg&width=520" border=0></p>
    	</td>
  		</tr>

<%
				End If
				Set objFS = Nothing

'Exibe Foto3

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath( "imagens/" &"o03_"&Produtos("id_produto") & ".jpg")) Then
%>  
		<tr>
  		<td colspan="2" bgcolor="#f0f0f0"><p>
		<img src="resize.asp?path=<%=Server.MapPath("Imagens")%>\<%="o03_"&Produtos("id_produto")%>.jpg&width=520" border=0></p>
    	</td>
  		</tr>
  
<%
				End If
				Set objFS = Nothing

'Exibe Foto4

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath( "imagens/" &"o04_"&Produtos("id_produto") & ".jpg")) Then
%>    
 
		<tr>
  		<td colspan="2" bgcolor="#f0f0f0"><p>
		<img src="resize.asp?path=<%=Server.MapPath("Imagens")%>\<%="o04_"&Produtos("id_produto")%>.jpg&width=520" border=0></p>
    	</td>
  		</tr>
				<%
				End If
				Set objFS = Nothing
				Set Produtos = Nothing
				Set ComandoSQL = Nothing
				
				%>

e ainda não está certo vou verificar algo que fiz de errado e fazer mais alguns testes aqui .

[xanburzum 169]

dá uma verificada, pois é um simples IF resolve isso, e faça como te falei exiba uma imagem padaro para as imagens k naun existem...

[Mário Monteiro 179]

onde voce verifica a imagem se existe ou não ? é pelo valor do db mesmo?

[Digon 0]

Eu Conseguiiiiiiiii

Da seguinte forma;

<% Request.ServerVariables("URL") %>

<%
	Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath( "imagens/" &rs("id_produto") & ".jpg")) Then
	%>
<tr>
  <td colspan="2" bgcolor="#f0f0f0"><p><img src="resize.asp?path=<%=Server.MapPath("Imagens")%>\<%=rs("id_produto")%>.jpg&width=520" border=0></p>
   </td>
  </tr>
 <%
End If
Set objFS = Nothing

'Exibe Foto2

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath( "imagens/" &"o02_"&rs("id_produto") & ".jpg")) Then
%> 
		<tr>
  		<td colspan="2" bgcolor="#f0f0f0"><p>
<img src="resize.asp?path=<%=Server.MapPath("Imagens")%>\<%="o02_"&rs("id_produto")%>.jpg&width=520" border=0></p>
    	</td>
  		</tr>

<%
				End If
				Set objFS = Nothing

'Exibe Foto3

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath( "imagens/" &"o03_"&rs("id_produto") & ".jpg")) Then
%>  
		<tr>
  		<td colspan="2" bgcolor="#f0f0f0"><p>
		<img src="resize.asp?path=<%=Server.MapPath("Imagens")%>\<%="o03_"&rs("id_produto")%>.jpg&width=520" border=0></p>
    	</td>
  		</tr>
  
<%
				End If
				Set objFS = Nothing

'Exibe Foto4

Set objFS = Server.CreateObject("Scripting.FileSystemObject")
If objFS.FileExists( Server.MapPath( "imagens/" &"o04_"&rs("id_produto") & ".jpg")) Then
%>    
 
		<tr>
  		<td colspan="2" bgcolor="#f0f0f0"><p>
		<img src="resize.asp?path=<%=Server.MapPath("Imagens")%>\<%="o04_"&rs("id_produto")%>.jpg&width=520" border=0></p>
    	</td>
  		</tr>
				<%
				End If
				Set objFS = Nothing
				Set ComandoSQL = Nothing
				%>

Acrescentei

<% Request.ServerVariables("URL") %>

e funcionou

[xanburzum 169]

parabens...

sempre existem varias maneiras de conseguir o mesmoresultado

se tiver duvidas estamos ae...