Fotoalbum!

Den helt simple udgave:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Ret så det passer med din folder
strFolder = "C:\InetPub\wwwroot\images"
Set objFolder = objFSO.GetFolder(strFolder)

For Each File in objFolder.Files
  if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"gif,jpg,jpeg,bmp") > 1 then
    Response.Write "<img src=""" & File.Name & """>" & "<br>"
  end if
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>

Så kan man eller bygge til med paging og andre ting:
Et eks er her:  http://www.eksperten.dk/spm/279772

Du kan også prøve at søge på eksperten efter foto album:
http://www.eksperten.dk/kat/3?searchtype=txt&words=foto+album&method=and&sort=score&catid=3