---
title: "Om bild inte finns"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/162227-om-bild-inte-finns"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bjarne A"
published: "2007-07-05T18:52:01.000Z"
updated: "2007-07-05T20:52:11.000Z"
replies: 2
views: 386
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/162227-om-bild-inte-finns"
---

# Om bild inte finns

## #1 — Bjarne A, 2007-07-05T18:52Z

Hej!

Jag har försökt att skriva om denna kod då jag vill att det skall visas en "standadbild" om bildmappen är tom 

om den är tom...
response.write "\<img src='bilder/bild.jpg'\>"
Jag har provat med olika IF-satser men det blir bara knas  x( 

```
<%

Dim fssist, fsist, f1sist, ssist, sfsist, mappsist
mappsist = "filer/"& sidnamn & "/"
folderspec = (server.mappath(mappsist))
Set fssist = CreateObject("Scripting.FileSystemObject")
Set fsist = fssist.GetFolder(folderspec)
Set sfsist = fsist.SubFolders
For Each f1sist In sfsist
ssist = ssist & f1sist.name
ssist = ssist & vbCrLf
Next
set fsosist=server.createObject("Scripting.FileSystemObject")
set folder=fsosist.getFolder(server.mappath(mappsist))
for each f1sist in folder.files
response.write "<img src=" & mappsist & f1sist.name & ">" & "<br>"
next

%>
```

Permalänk: https://www.webforum.nu/p/162227

## #2 — yohpops, 2007-07-05T20:27Z

```
dim v_cnt_file
v_cnt_file=0
for each f1sist in folder.files
	v_cnt_file=v_cnt_file+1
	response.write "<img src=" & mappsist & f1sist.name & ">" & "<br>"
next
if v_cnt_file=0 then
	response.write "<img src='bilder/bild.jpg'>"
end if
```

Eller så kan du lägga till onerror="this.src='bilder/bild.jpg'" på bilderna.

Permalänk: https://www.webforum.nu/p/2001395

## #3 — Bjarne A, 2007-07-05T20:52Z

Tack för hjälpen  :)

Permalänk: https://www.webforum.nu/p/2001399

---

Tråden på webben: https://www.webforum.nu/amne/asp/162227-om-bild-inte-finns