Apresentar imagem não encontrada

[Alison Silva 0]

Bom dia,

Gostaria de saber se alguem pode me ajudar com o seguinte problema...

<%
		if imageURL <> "" then

%>
			<a href="prodView.asp?idproduct=<%=IDProduct%>"><img src="<%=pImagesDir & imageURL%>.jpg" alt="<%=server.HTMLEncode(description)%>" width="100" border=0></a><br>

<%		
		'if File.NoExiste (imageURL) <> "" then
		else
%>
			<b class=CPnoImgT><%=LangText("GenNoImage","")%></b><br><br>
<%
		end if
%>
	</td></tr>
	</table>
<%
end sub

Esse é o código da minha página que:

<%
		if imageURL <> "" then

%>
			<a href="prodView.asp?idproduct=<%=IDProduct%>"><img src="<%=pImagesDir & imageURL%>.jpg" alt="<%=server.HTMLEncode(description)%>" width="100" border=0></a><br>

Verifica se o caminho para a imagem existe na base de dados, e se a mesma existir apresenta.

<%		
				else
%>
			<b class=CPnoImgT><%=LangText("GenNoImage","")%></b><br><br>
<%
		end if
%>
	</td></tr>
	</table>
<%
end sub

Se não existir apresenta uma mensagem a dizer imagem indisponível.

Até aqui tudo bem.

Mas fiz uma alteração ao código que o cliente importa uma lista de excel e o caminho da imagem esta sempre preenchido, mesmo que a imagem não exista. Como o código verifica se o caminho existe e infelizmente existe sempre, então ele apresenta o quadrado com o "X"

O que preciso é que se ele não encontrar a imagem apresente uma mensagem a dizer que não existe, e não o quadradinho com o "X".

Agradeço desde já...

[Salgado 4]

Dê uma pesquisada aqui no fórum, você irá utilizar o componente FileSystemObject para isso, irá utilizar a propriedade FileExists.

[xanburzum 169]

você tb ao inves de apresentar uma mensagem, você pode ter uma imagem padrao, para imagens nao encontradas e para verificar se existe um arquivo...

 

FileExists ,retorna Verdadeiro se um determinado arquivo existe; False se não.

 

object.FileExists (filespec)

 

Argumentos

 

objeto

Necessário. Sempre o nome de um FileSystemObject.

 

filespec

Necessário. O nome do arquivo cuja existência deve ser determinada. Um caminho completo especificação (seja absoluta ou relativa), deve ser fornecido se o arquivo não é esperada a existir na pasta atual.

O seguinte exemplo ilustra a utilização do método Fileexists.

 

Function ReportFileStatus(filespec)
   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists(filespec)) Then
	  msg = filespec & " exists."
   Else
	  msg = filespec & " doesn't exist."
   End If
   ReportFileStatus = msg
End Function

outro exemplo

 

<%
u_file="../index.asp"

set fso = createobject("scripting.filesystemobject")
if fso.FileExists (server.mappath(u_file)) then 
Response.Write "Click <a href='"& u_file &"'>here</a>"
else 
Response.Write u_file
end if
%>