ASPImage и аплоад графических файлов

Set mySmartUpload = Server.CreateObject('aspSmartUpload.SmartUpload')
mySmartUpload.Upload

'-----------------------------------------------------------------------	
'--- UPLOAD ----
	
	For Each file In mySmartUpload.Files
		sFile = file.FileName
		If NOT file.IsMissing Then
			If (LCase(file.FileExt) <> 'jpg' AND LCase(file.FileExt) <> 'jpe') then
				' ERROR
			Else

				tempFolder = Server.MapPath('UploadTemp') & ' '
				imageFolder = Server.MapPath('../memImages') & ' '
				fileName = 'logo' & muid & '.jpg'
				'-- upload file
				file.SaveAs (tempFolder & fileName)

				if err <> 0 then
					' ERROR
				end if				

				'-- resize it! ----------------------------------------------------------
				'------------------------------------------------------------------------
				Set Image = Server.CreateObject('AspImage.Image')
		
				Image.AutoSize = False
				Image.ImageFormat = 1
				Image.AutoClear = False
				sFileName = tempFolder & fileName
				Image.LoadImage sFileName
		
				Image.Resize IMG_WIDTH, IMG_HEIGHT
				Image.Filename = NEW_IMAGE_NAME
				Image.SaveImage
				Set Image = Nothing
				
			End If
		End If
	Next

Set mySmartUpload = Nothing