Viewing source for recipe2207vb.aspx

<%@ Page Language="vb" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Drawing2D" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<script language="vb" runat="server">
Private Sub Page_Load(sender As Object, e As System.EventArgs)
   Dim outputBitmap As New Bitmap(400, 400)
   Dim drawGraphics As Graphics = Graphics.FromImage(outputBitmap)
   
   Dim image As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath("recipe2207.gif"))
   Dim textureBrush As New TextureBrush(image)
   drawGraphics.FillRectangle(textureBrush, 0, 0, 400, 400)
   
   Response.ContentType = "image/jpeg"
   outputBitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
   image.Dispose()
   drawGraphics.Dispose()
   outputBitmap.Dispose()
End Sub 'Page_Load
</script>