Scaling images to fit dynamically resized cells in VB.NET or Javascript

Hi. I am working on a site where I have 2 images spanning the width of the content area of my site.

I have just converted my site from 800px wide fixed width site, to a dynamic width site (ie: fits the user's preferred width).

When I scaled the site larger, the tiny thumbnails in some cases are huge and therefore of horrible quality. So I want to take the full images (2), and rescale them to fit the new cell widths. Each of my images cell width are width="50%".

So this is what I need (in VB.NET or Javascript)

1. Code to get an image to manipulate from my drive
      - can I use Dim Img as System.Drawing.Image = System.Drawing.Image.FromFIle(Filename) ?

2. Code to determine the width of the cell in question, in pixels

3. Code to resize an image - I have some code posted below which I already use on upload, not sure if it is relevant here.


Thanks ! Peter

Here's how I grab my images from my drive today:
 
        MyImagePath = "~/Userdata/L-" & Session("Leaguenum") & "/Albums/A"
        ' Do the images
        cmd.CommandText = "select convert(varchar,albumnum) + '/' + picturefilename + '-t' + picturetype from pictures where picturenum > " & MyRowCount1 & " order by picturenum asc"
        Image2.ImageUrl = MyImagePath & Trim(cmd.ExecuteScalar())
        cmd.CommandText = "select convert(varchar,albumnum) + '/' + picturefilename + '-t' + picturetype from pictures where picturenum > " & MyRowCount2 & " order by picturenum asc"
        Image3.ImageUrl = MyImagePath & Trim(cmd.ExecuteScalar())
 
Here is some code I already have for rescaling images:
 
                ' work out the width/height for the thumbnail. Preserve aspect ratio and honour max width/height
                ' Note: if the original is smaller than the thumbnail size it will be scaled up
                If (originalimg.Width / Lx) > (originalimg.Width / Ly) Then
                    L2 = originalimg.Width
                    newWidth = Lx
                    newHeight = originalimg.Height * (Lx / L2)
                    If newHeight > Ly Then
                        newWidth = newWidth * (Ly / newHeight)
                        newHeight = Ly
                    End If
                Else
                    L2 = originalimg.Height
                    newHeight = Ly
                    newWidth = originalimg.Width * (Ly / L2)
                    If newWidth > Lx Then
                        newHeight = newHeight * (Lx / newWidth)
                        newWidth = Lx
                    End If
                End If

Select allOpen in new window