Sidste 5 - 6 billeder i et fotogallery

Jeg har denne kode til at vise det sidste billede fra vores fotogallery. (Koden er herfra Eksperten). Det jeg godt kunne tænke mig hjælp til er at den istedet for at vise et billede viser 5 eller 6 sidste billeder (Hvis man kan sætte en variabel op).

Da der ikke er for meget plads skal de vises som tumbnails.

Er det muligt.

Her kommer koden:

<%
Function FormatMediumDate(DateValue)
    Dim strYYYY

        strYYYY = CStr(DatePart("yyyy", DateValue)
        FormatMediumDate = strYYYY
End Function
%> 

<%
session.lcid=1030
%>


<%Set fso = CreateObject("Scripting.FileSystemObject")

fileDate = ""
fileName = ""
filePath = ""

function saveFiles (foldernavn)
  Set objFolder = fso.getFolder( foldernavn )
  Set objFiles = objFolder.Files

  for each file in objFiles
  if instr(1,"bmp,gif,jpg,png,jpeg,tif",lcase(fso.GetExtensionName(file.name)))>0 then
    if isDate(fileDate) then
      if CDate(file.DateLastModified) > CDate(fileDate) then
        fileDate = file.DateLastModified
        fileName = file.name
        filePath = file.Path
      end if
    else
      fileDate = file.DateLastModified
      fileName = file.name
      filePath = file.Path
    end if
  end if
  next
 
  For each Folder in objFolder.SubFolders
    call saveFiles (Folder.path)
  next
 
  Set objFolder = Nothing
  Set objFiles = Nothing
end function

relativSti = "/photoindex/images/" & FormatMediumDate(date())

strPhysicalPath = Server.MapPath(relativSti)
Set objFolder = fso.getFolder( strPhysicalPath )

For each Folder in objFolder.SubFolders
  call saveFiles (folder.Path)
next

sti = replace(filePath,Server.MapPath("/"),"",1,-1,1)
sti = replace(sti,"\","/")

Response.Write "<p align=""center""><b><font size=""4"" face=""Arial"">Sidste billede der er taget: " & fileDate & "<br><br>"
Response.Write "<img src=""" & sti & """  border=""3""><br><br>Filnavn: " & fileName

Set objFolder = Nothing
Set fso = Nothing
%>