Upload og ASPImage virker kun delvist

Jeg har et problem med følgende script. Når jeg uploader et billeder, som skal erstatte et gammelt billede, der er gemt i 2 kopier - et stort og et lille - er det kun det store billede, som bliver ændret. det lille billede bliver ikke overskrevet af det nye billede - ej heller hvis jeg har slettet det på forhånd??? Nogen der har nogle forslag???

--- script start ---

<%
Dim intID, Image, intRatio, intNewY, intNewX

Response.Buffer = True
If Session("username") = "" Then
    Response.Redirect("login.asp")
End If

Function ResizeIImage(strImage, strPath, lngMaxWidth, lngMaxHeight)
    Set Image = Server.CreateObject("AspImage.Image")
    Image.LoadImage Server.MapPath("../../images/products/" & strImage)
    If Image.MaxY > lngMaxWidth/100 Then
        intRatio = lngMaxWidth / Image.MaxX
        intNewX = lngMaxWidht
        intNewY = CInt(Image.MaxY * intRatio)
        If CInt(Image.MaxY * intRatio) > lngMaxHeight Then
            intRatio = lngMaxHeight / Image.MaxY
            intNewX = CInt(Image.MaxX * intRatio)
            intNewY = lngMaxHeight
        End If
        Image.ResizeR intNewX, intNewY
        Select Case (LCase(Right(strImage, 3)) = "jpg")
            Case True
                Image.ProgressiveJPEGEncoding = True
                Image.ImageFormat = 1
            Case False
                Image.ImageFormat = 3
        End Select
        Image.FileName = strPath & "/" & strImage
        Image.SaveImage
    End If
    Set Image = nothing   
End Function

dim photoUpload, UploadProgress, File, s_idItemGroup, s_idSubGroup, s_itemNumber, s_itemName, s_colour, s_fabric, s_description, s_notes, s_adminUser
dim maxFileSize, MM_editRedirectUrl, sUrl_price, message, Recordset1

maxFileSize = 1024*1024

' Perform upload
Set photoUpload = Server.CreateObject("Persits.Upload")
photoUpload.CodePage = 1252
photoUpload.OverwriteFiles = True
photoUpload.SetMaxSize maxFileSize, True
Set UploadProgress = Server.CreateObject("Persits.Upload")
photoUpload.ProgressID = Request.QueryString("PID")

message = "Dine indtastede data er nu gemt "& Session("username") & "..."

photoUpload.Save
Set File = photoUpload.Files("filename")

intID = photoUpload.Form("id")

' Save image in 2 sizes
If Not File Is Nothing Then
    Filename = File.Filename
    If (Right(Filename, 3) = "jpg" Or Right(Filename, 3) = "JPG") then
        File.SaveAs Server.MapPath("../images/products/" & intID & ".jpg")
        If Err.Number = 8 Then
            message = "Billedet er for stort. Gør billedet mindre og prøv igen!"
        Else
            If Err <> 0 Then
                message = "Følgende fejl opstod: " & Err.Description
            End If
        End If
        ResizeIImage intID & ".jpg", Server.MapPath("../images/products"), 300, 405
        ResizeIImage intID & ".jpg", Server.MapPath("../images/products/small"), 100, 135

    Else
        message = "Forkert billedetype"
    End If
End If
%>

--- script slut ---