2 svar · 374 visningar · startad av Bjarne A
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
%>
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.
Tack för hjälpen :)