Hent EXIF ud af billede

Jeg prøver med nedenstående kode at kunne hive EXIF infos ud af et JPEG billede, det lykkedes også fint ved første billede, men når jeg gerne vil have at den skal gennemløbe et helt bibliotek, så går det galt, den viser kun det første billdes infos igen og igen, kan du hjælpe til bedre forståelse at det- og gerne en løsning, så hører jeg gerne fra dig,

Den inkluderede fil "functions_exif.asp" kan hentes her : http://www.spaz.com/rtw/test/testExif2.asp

<!--#include file="functions_exif.asp"-->
<%
' File System Object
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
       
' "Uploaded" Folder
Dim folder
Set folder = fso.GetFolder(Server.MapPath("uploaded/"))
       
If folder.Size > 0 Then
    For Each file In folder.Files
    filnavn = file.Name
%>
<%

' -- sample usage --
dim pathinfo
pathinfo = Request.ServerVariables("PATH_INFO")
pathinfo = left(pathinfo,instrrev(pathinfo,"/"))

LoadImage Server.MapPath(pathinfo) & "\uploaded\"&file.Name

%>
Filnavn: <%= file.Name %><br>
Dato: <%= GetExifByName("Date Time") %><br>
Width: <%= GetExifByName("Exif Image Width") %><br>
Height: <%= GetExifByName("Exif Image Height") %><br>
<%
Next
End If
%>