image size from FSO

Hej

Jeg har brug for at omskrive nedenstående kode som bestemmer et billedes højde og bredde  uden brug af den benyttede komponent. Den kan lade sig gøre vha FSO, men jeg ved bare ikke hvordan den skal grejes. Er der nogen der hjælpe?


\'If Redirect = \"Yes\" Then
    \'    Set objImg = Server.CreateObject(\"ZmeYsoft.Util.ImageFile\")
    \'    objImg.FileName = FullFile
    \'    If objImg.Type = \"\" Then
    \'        Text = \"<br><FONT color=\"\"#cc0000\"\"><b>Error:</b></font><br><br>\"
    \'        Text = Text & \"Billedet der ønskes uploadet har ikke det korrekte farve format!<br>\"
    \'        Text = Text & \"Det skal være formateret i RGB (i.e. i .jpg eller .gif format)!<br>\"
    \'        Text = Text & \"Kontroller venligst at billedet er formateret korrekt og prøv igen.<br><br>\"
    \'        Text = Text & \"<a href=\"\"files.asp?Path=\" & ReturnPath & \"&Felt=\" & upl.form(\"felt\") & \"&Height=\" & upl.form(\"Height\") & \"&Width=\" & upl.form(\"Width\") & \"\"\">Back</a></font>\"
    \'        If (FS.FileExists(FullFile)) Then FS.DeleteFile FullFile, 1
    \'        Redirect=\"\"
    \'    Else
    \'        Dim Width, Height, fejl
    \'        fejl = 0
    \'        if not upl.Form(\"Width\")  =\"\" Then Width = int(upl.Form(\"Width\"))  else Width = \"?\"
    \'        If Not upl.Form(\"Height\") =\"\" Then Height= int(upl.Form(\"Height\")) else Height= \"?\"
           
    \'        If Not Width = \"?\" Then
    \'            If not Width = objImg.Width then fejl = 1
    \'        end if
           
    \'        If Not Height = \"?\" Then
    \'            If not Height = objImg.Height then fejl = 1
    \'        End if
           
    \'        If Fejl = 1 Then
    \'            Text = \"<br><FONT color=\"\"#cc0000\"\"><b>Error:</b></font><br><br>\"
    \'            Text = Text & \"TBilledet der ønskes uploadet har ikke de korrekte proportioner!<br>\"
    \'            Text = Text & \"Det skal være \" & Width & \"x\" & Height & \" pixels.<br>\"
    \'            Text = Text & \"(Dit billede er \" & objImg.Width & \"x\" & objImg.Height & \" pixels)<br>\"
    \'            Text = Text & \"Kontroller venligst at billedet har de korrekte proportioner og prøv igen.<br><br>\"
    \'            Text = Text & \"<a href=\"\"files.asp?Path=\" & ReturnPath & \"&Felt=\" & upl.form(\"felt\") & \"&Height=\" & upl.form(\"Height\") & \"&Width=\" & upl.form(\"Width\") & \"\"\">Back</a></font>\"
    \'            If (FS.FileExists(FullFile)) Then FS.DeleteFile FullFile, 1
    \'            Redirect=\"\"
    \'        End If
    \'    End If
    \'    Set objImg = Nothing
    \'End If