Do not show Image if image is not availabole

bassguy · Aug 20, 2001

Hi, I asked last week but I do not think I asked correctly. I am going to try again. I am trying to show an image in an area but I do not know if the image actually exists. I want to do an if FileExists then show file. I have seen the code on Msdn and either am using bad code or I do not understand it. So, How do I query an Image directory to see if a specific file exists?

any help would be appreciated.

thanks

bassguy

vasah20 · Aug 20, 2001

you're right - you should use file exists.

here's a snippet of what i did at work adapt as you see fit:

if you have any questions, post back:

Code:

'Function showImg(imagefile, sku)
Function showImg(sku)
 dim sNum, imgStr, imgStr2, imageFile2
 'if imageFile is null or imageFile = &quot;&quot; or imageFile = 0 or imageFile = &quot;null&quot; then
	sNum = left(sku,1)
	imgStr  = Server.MapPath(&quot;images\&quot; &sNum& &quot;\&quot; &sku& &quot;.gif&quot;)
	imageFile = sku & &quot;.gif&quot;
	imgStr2 = Server.MapPath(&quot;images\&quot; &sNum& &quot;\&quot; &sku& &quot;.jpg&quot;)
	imageFile2 = sku & &quot;.jpg&quot;
' else 
	'sNum = left(imagefile,1)
	'imgStr = Server.MapPath(&quot;images\&quot; &sNum& &quot;\&quot; &imagefile)
	'imgStr2 = imgStr
	'imageFile2 = imageFile
'end if
 
 'check for image existance
 dim fsoObj
 set fsoObj = server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
 if fsoObj.FileExists(imgStr) then
	set fsoObj = nothing
	showImg = &quot;<img src=&quot;&quot;images\&quot; &sNum& &quot;\&quot; &imageFile & &quot;&quot;&quot; border=&quot;&quot;0&quot;&quot;>&quot;
 elseif fsoObj.FileExists(imgStr2) then
	set fsoObj = nothing
	showImg = &quot;<img src=&quot;&quot;images\&quot; &sNum& &quot;\&quot; &imageFile2 & &quot;&quot;&quot; border=&quot;&quot;0&quot;&quot;>&quot;
 else
	set fsoObj = nothing
	showImg = &quot;<img src=&quot;&quot;images\client_request\img_na.gif&quot;&quot; border=&quot;&quot;0&quot;&quot; alt=&quot;&quot;Sorry, image not available&quot;&quot;>&quot;
 end if
end Function

you might be wondering why i set fsoObj = nothing three times... this was because i wasn't sure whether or not the deallocation of fsoObj would occur after the end if. the showImg = ... implied that it would jump out of the function, and the fsoObj would not get explicitly set to nothing.

hth
leo

gsc1ugs · Aug 20, 2001

There u go

<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set FSO = Server.CreateObject("Scripting.FileSystemObject&quot

GetImage = filePath
set myFile = FSO.GetFile(GetImage)
%>
<html>
<head>
<title>GetImage IfExists</title>
</head>
<body>
<%
response.write "<img src="""&myfile&""">"
Response.Write "<b>" &myfile& "</b>"
%>
</body>
</html>

<%
function filePath
filepath = request.servervariables("PATH_TRANSLATED&quot

blnFound = True
icount = 1 'start at the beguining of the string

While blnfound = True
'find a \ in the file path
if InStr(icount,filepath,"\&quot

>= 1 Then
'set the counter to look for another "\" after the one it has just found
icount = instr(icount,filepath,"\&quot

+ 1
else
' no more "\"
blnfound = False
End If
wend

'start at the begining and grab everything up to the last "\"
filename = Mid(filepath,1,icount - 1) & "jacob.jpg"
filePath = filename
end function
%>
gsc1ugs
"Cant see wood for tree's...!"

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Do not show Image if image is not availabole

bassguy

Programmer

vasah20

Programmer

gsc1ugs

Programmer

Similar threads

Part and Inventory Search

Sponsor