Ladda upp & förminska

Hej. Jag använder följande kod för att ladda upp bilder.

Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
Set File = Upload.Files("FILE1")
Filename = picName() & ".jpg"
File.SaveAs Server.MapPath("pictures") & "\" & Filename

Men om jag nu skulle vilja förminska bilderna så de max har 800 pixlar i bredd eller 600 pixlar i höjd, hur gör jag då. Vill alltså förminska innan de läggs upp på servern. Kvalité kan sättas till medel också.

Använder denna kod för thumnails, tror det är aspJpeg...

If Jpeg.OriginalWidth > 120 And (Jpeg.OriginalWidth * 0.75) > Jpeg.OriginalHeight Then
	Jpeg.Width = 120
	Jpeg.Height = Jpeg.OriginalHeight / Jpeg.OriginalWidth * 120
ElseIf Jpeg.OriginalHeight > 90 Then
	Jpeg.Width = Jpeg.OriginalWidth / Jpeg.OriginalHeight * 90
	Jpeg.Height = 90
End if

Extremt tacksam för svar!