finde nyeste billedfil (jpg) i mappe

jeg har fundet dette script
<%
function GetExt(FileName)
Dim p
  GetExt = ""
  p = inStr(FileName, ".")
  if (p > 0) then GetExt = LCase(Right(FileName, len(FileName) - p))
end function

function GetLastFile(folderspec)
  Dim fs, f, f1, fc, s, e
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFolder(folderspec)
  Set fc = f.Files
  lastd = 0
  GetLastFile = "Ingen filer"
  For Each f1 in fc
    if f1.DateLastModified > lastd then
      e = GetExt(f1.name)
      if e = "gif" or e = "jpg" then
        GetLastFile = f1.name
      end if
    end if
  Next
End function

f = GetLastFile(Server.MapPath("scene"))
Response.Write("<br><br>" & f)
%>

men kan ikke få det til at virke???