ASPimage resizer/ødelægger billeder!

Hej

Jeg har et script som resizer billeder der bliver uploaded med ASPimage til et bestemt biblotekt - hvilket også virker helt godt!

Problemet er dog at når jeg uploader igen, gør den alle de nuværende billeder i bibloteket enten ulæselige (de kan slet ikke vises mere).

Koden er forneden, det første billede man uploader virker perfekt den laver et billde på 250px i width og et thumbnail på 30px..  men ved anden upload går det galt! ???

Det burde være en simpel fejl - håber i kan finde dem!

-----------------------------------------------------

'--- start --
ImageDir = "../../billeder/referencer/"
ImageIn=server.mappath(ImageDir) &"\"
ImageOut=server.mappath(ImageDir&"thum") &"\"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
For Each Image In objFiles
    img = Image.Name
    Set Image = Server.CreateObject("AspImage.Image")
    Image.AutoSize = false

    Image.LoadImage(ImageIn& img )
    X = Image.MaxX
    Y = Image.MaxY

    If X > 30 Then
        ResizedX = 30
        ResizedY = (ResizedX * Y/X)
    End if

    Image.Resize ResizedX, ResizedY

    Image.ImageFormat = 1
    Image.JPEGQuality = 100

    Image.FileName = (ImageOut & img )
    Image.SaveImage

  ' ********* resize original billed start

    Image.LoadImage(ImageIn& img )
    X = Image.MaxX
    Y = Image.MaxY

    If X > 250 Then
        ResizedX = 250
        ResizedY = (ResizedX * Y/X)
    End if

    Image.Resize ResizedX, ResizedY

    Image.ImageFormat = 1
    Image.JPEGQuality = 100

    Image.FileName = (ImageIn & img )
    Image.SaveImage

  ' ********* resize original billed slut

    Set Image = nothing

Next
Set objFS = Nothing
'--- slut ---
%>