Dundas Upload module image resize?

'************************************************

'*** Begin TonyM's image resize mod - Beta Ver 0.9 ****

'************************************************

If strUploadType = "image" Then

'Dimension variables

Dim Jpeg

' Create instance of AspJpeg

Set Jpeg = Server.CreateObject("Persits.Jpeg")

'maintain aspect ratio

Jpeg.PreserveAspectRatio = True

' Open source image

Jpeg.Open .Files(1).path

'shrink if it's great than 800px wide so it fits nicely on pages

If Jpeg.OriginalWidth > 800 Then

Jpeg.Width = 800

End If

' Save resized image to disk

Jpeg.Save .Files(1).path

End If

'**********************************************

'*** End TonyM's image resize mod ****

'**********************************************