fckeditor 2x redimensionar imagem no upload

[saloeric 1]

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 = ((maximalargura*maximaaltura)/(maximalargura*oJpeg.OriginalHeight))
								maximalargura = ((maximalargura*maximaaltura)/(maximaaltura*oJpeg.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
					

[Patrique 0]

Valew pela contribuição ;)