----Partial code---
Blah...blah...blah...
Dim imagefile As UploadedFile = FileUpload.UploadedFiles(0)
Dim MyImage As New Bitmap(imagefile.InputStream)
'********Resize Image ********
Dim Img As Bitmap = New System.Drawing.Bitmap(imagefile.InputStream)
ResizePhotos(imagefile, Img, 628, "", "large")
'********End Resize Image **********
If Not IsNothing(FileUpload.UploadedFiles(0)) Then
If FileUpload.UploadedFiles(0).FileName.Length > 0 Then
Dim filepath As String = Path.Combine(Server.MapPath("") & "\Images", Path.GetFileName(FileUpload.UploadedFiles(0).FileName))
Dim filename = imagefile.GetNameWithoutExtension()
filename = filename & "_" & Request.QueryString("id")
filename = filename & imagefile.GetExtension()
Blah...blah...blah...
|