Fejl med ASPimage

Hej

Jeg har denne kode hvor jeg uploader og skal resize mine billeder.

Den uploader fint, men min ASPimage med resize virker ikke.
Jeg får ingen fejl, og kan heller ikke se fejlen.

Nogen som kan se hvorfor den ikke opretter de 3 billeder ?



Dim mySmartUpload
Dim file
Dim intCount
intCount=0

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files

If not file.IsMissing Then
      strbillede = date() & "_" & file.FileName
      file.SaveAs("billeder/" & strBillede )


  intCount = intCount + 1

End If
Next

Set MyImage = Server.CreateObject("AspImage.Image")

MyImage.PadSize = 0

Dim strOrigImg
strOrigImg = "" & strbillede & ""

Dim strThumbName
strThumbName = "" & strbillede & ""

Dim strMediumName
strMediumName = "" & strbillede & ""

Dim strOrigImgFullPath
strOrigImgFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "billeder\"

Dim strThumbFullPath
strThumbFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "billeder\thumb\"

Dim strMediumFullPath
strMediumFullPath = request.servervariables("APPL_PHYSICAL_PATH") & "billeder\Medium\"


Dim strOriginal, strThumb, strMedium, ResizedX,ResizedY
strOriginal = strOrigImgFullPath & strOrigImg
strThumb = strThumbFullPath & strThumbName
strMedium = strMediumFullPath & strMediumName

Set MyImageOrg = Server.CreateObject("AspImage.Image")
MyImageOrg.PadSize = 0
MyImageOrg.LoadImage strOriginal
ResizedX = 400
ResizedY = (ResizedX / MyImageOrg.MaxX) * MyImageOrg.MaxY
MyImageOrg.Resize ResizedX, ResizedY
MyImageOrg.ImageFormat = 1
MyImageOrg.FileName= strOriginal
MyImageOrg.SaveImage
set MyImageOrg = nothing


Set MyImageThumb = Server.CreateObject("AspImage.Image")
MyImageThumb.PadSize = 0
MyImageThumb.LoadImage strOriginal
ResizedX = 65
ResizedY = (ResizedX / MyImageThumb.MaxX) * MyImageThumb.MaxY
MyImageThumb.Resize ResizedX, ResizedY
MyImageThumb.ImageFormat = 1
MyImageThumb.FileName= strThumb
MyImageThumb.SaveImage
set MyImageThumb = nothing


Set MyImageMedium = Server.CreateObject("AspImage.Image")
MyImageMedium.PadSize = 0
MyImageMedium.LoadImage strOriginal
ResizedX = 100
ResizedY = (ResizedX / MyImageMedium.MaxX) * MyImageMedium.MaxY
MyImageMedium.Resize ResizedX, ResizedY
MyImageMedium.ImageFormat = 1
MyImageMedium.FileName= strMedium
MyImageMedium.SaveImage
set MyImageMedium = nothing

end if