Thanks for the help - here's the source (nothing was changed from what you posted):
<%@ Page Language="vb" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<script runat="server">
Public Sub Page_Load
Response.ContentType = "Image/Jpeg"
Dim SourceImage As New Bitmap(Server.MapPath(Request.QueryString("source")))
Dim NewWidth As Integer = SourceImage.Width
Dim NewHeight As Integer = SourceImage.Height
Do Until NewWidth < 100 And NewHeight < 100
NewWidth = NewWidth / 2
NewHeight = NewHeight / 2
Loop
Dim Thumbnail As Bitmap = SourceImage.GetThumbnailImage(NewWidth, NewHeight, Nothing, IntPtr.Zero)
Thumbnail.Save(Response.OutputStream, ImageFormat.Jpeg)
Thumbnail.Dispose()
SourceImage.Dispose()
End Sub
</script>
And I did point the source to the virtual path (similar to your example: thumbnail.aspx?source=images/test.jpg)
Edited by jchonparadise - 26 June 2006 at 9:51pm