fckeditor 2x redimensionar imagem no upload

boas, para redimensionar as imagens acedam a "fckeditor\editor\filemanager\connectors\asp\commands.asp", e acrescentem o seguinte código, estou a usar o Persits.Jpeg,

oUploader.SaveAs "NewFile", sFilePath ' código do fckeditor, acrescentam o que vem a seguir

if lcase(sExtension) = "jpg" or lcase(sExtension) = "jpeg" or lcase(sExtension) = "gif" or lcase(sExtension) = "png" or lcase(sExtension) = "bmp" then
'redimensiona as imagens
Dim ojpeg, maximalargura, maximaaltura, largurafinal, alturafinal
Set oJpeg = Server.CreateObject("Persits.Jpeg")
oJpeg.Open sFilePath
maximalargura = 545
maximaaltura = 410
If maximalargura > oJpeg.OriginalWidth and maximaaltura > oJpeg.OriginalHeight then

Else
maximaaltura = ((maximalarguramaximaaltura)/(maximalarguraoJpeg.OriginalHeight))
maximalargura = ((maximalarguramaximaaltura)/(maximaalturaoJpeg.OriginalWidth))
If maximaaltura < maximalargura then
largurafinal = oJpeg.OriginalWidth*maximaaltura
alturafinal = oJpeg.OriginalHeight*maximaaltura
Else
largurafinal = oJpeg.OriginalWidth*maximalargura
alturafinal = oJpeg.OriginalHeight*maximalargura
End If
oJpeg.Width = largurafinal
oJpeg.Height = alturafinal
End If
oJpeg.Quality = 100
oJpeg.Save sFilePath
set oJpeg = nothing
end if