Nu har jag då fått detta bild visnings scriptet till att funka..
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("\\turbo9\arkiv\Rep-Ombygningsordre igangværende i værksted\" & RS("billeder") & "")
set Files = Folder.Files
For each Item In Files
Response.Write "<img src="""&folder&"\"&Item.Name&""" width=""100"" hspace=""5"" border=""2"">"
Next
%>
Självklart, operatorn "=" är skiftkänslig, detta borde fungera:
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder("\\turbo9\arkiv\Rep-Ombygningsordre igangværende i værksted\" & RS("billeder") & "")
set Files = Folder.Files
For each Item In Files
if [b]lcase( right( Item.Name, 3 ) )[/b] = "jpg" then
Response.Write "<img src="""&folder&"\"&Item.Name&""" width=""100"" hspace=""5"" border=""2"">"
end if
Next
%>