Imports System.Drawing
Imports System.Drawing.Imaging

Private Const max_img_Small =  100  'макс. размер в пикселах по X и Y'

Private Sub SaveImage(ByRef curID)
	Dim Img As HttpPostedFile = Page.Request.Files( "img" )

	Dim Path As String = Page.Server.MapPath( "\" ) &  "pic\" 
	'вычисляем новый размер'
	Dim i As System.Drawing.Image
	i = New Bitmap(Img.InputStream)
	Dim X As Integer = i.Width
	Dim Y As Integer = i.Height
	Dim max As Integer
	Dim dScale As Single
	'make con'
	max = Math.Max(X, Y)
	If max > max_img_Small Then
		dScale = max_img_Small / max
		X = X * dScale
		Y = Y * dScale
	End If

	Dim b As New System.Drawing.Bitmap(X, Y, PixelFormat.Format24bppRgb)
	Dim g As Graphics = Graphics.FromImage(b)

	g.DrawImage(i, New Rectangle( 0 ,  0 , X, Y), New Rectangle( 0 ,  0 , i.Width, i.Height), GraphicsUnit.Pixel)

	b.Save(Path & curID &  ".jpg" , Imaging.ImageFormat.Jpeg)

End Sub