Rezsize virker ikke!

Jeg har hentet dette script og det funker ok, dog ikke resize, det er ikke lykkedes mig at finde noget information på experten eller net  hvordan nedenstående evt. skal udfyldes hvis f.eks max bredden skal være 300px. Kan nogen give et tip?
function resize(sti,navn,nyX)
Set objImg = Server.CreateObject("AspImage.Image")
objImg.PadSize = 200
'objImg.LoadImage Server.MapPath(sti & navn)
objImg.LoadImage Server.MapPath(upload & navn)
objImg.GetImageFileSize Server.MapPath(upload & navn), X, Y

ResizedX = nyX
objImg.MaxX = X
objImg.MaxY = Y

if X > ResizedX then
ResizedY = (ResizedX / objImg.MaxX) * objImg.MaxY
objImg.ResizeR ResizedX, ResizedY
objImg.FileName = (Server.MapPath(upload & navn))
objImg.SaveImage
end if

Set objImg = Nothing
end function
mvh. S