Simpelt galleri

Ja det kan man her i en meget  simpel udgave:


<%
Set FSO = CreateObject("Scripting.FileSystemObject")
'Agiv stien hvor billeder er i denne linie i dette eks i er billederne
'en i folder der hedder "billeder" og den folder ligger i root
stiFraRoot = "/billeder/" 'Skal slutte på / da stiFraRoot også bruges til at vise billedet
Set Folder = FSO.GetFolder (Server.Mappath(stiFraRoot))

'Henter ID fra strengen
id = Request.Querystring("id")

Set FolderFiles = Folder.Files
       
'Looper igennem filerne i foldern
For Each Fil In FolderFiles
  'Hvis filnanvet indeholder id vis det som billede
  If inStr(1,Fil,id,1) Then
      Response.Write "<img src=""" & stiFraRoot & Fil.Name & """><br>"
  End If
Next
%>

tester lige lidt. Skal køre med et kald fra Crystal Reports.

det virker. Beklager det sene svar