<html>
<head>
<title>Welcome</title>
</head>
<body bgcolor=white>
<center>
<h2>4th Quarter Widget Sales Results<br>by Region</h2>
<p><br></p><p><br></p>
<%
rem **********************************************************************
rem * Instantiate the object
rem **********************************************************************
Set Image = Server.CreateObject("AspImage.Image")
Image.AntiAliasText = True
rem **********************************************************************
rem * Set the extents of the image
rem **********************************************************************
Image.MaxX = 210
Image.MaxY = 200
rem **********************************************************************
rem * Now fill it with a gradient
rem **********************************************************************
Image.GradientTwoWay vbBlue / 2, vbWhite, 0, 1
rem **********************************************************************
rem * Create a hollow frame around the image
rem **********************************************************************
Image.BackgroundColor = vbBlue
Image.FrameRect 15, 15, Image.MaxX - 15, Image.MaxY -20
rem **********************************************************************
rem * Create some graph bars
rem **********************************************************************
Image.BackgroundColor = vbGreen
Image.Rectangle 30, 35, 60, 100
Image.BackgroundColor = vbYellow
Image.Rectangle 70, 35, 100, 130
Image.BackgroundColor = vbBlue
Image.Rectangle 110, 35, 140, 150
Image.BackgroundColor = vbRed
Image.Rectangle 150, 35, 180, 170
rem **********************************************************************
rem * Set the font properties up
rem **********************************************************************
Image.FontColor = vbBlack
Image.Italic = False
Image.Bold = True
Image.FontName = "Arial"
Image.FontSize = 8
Image.PadSize = 10
rem **********************************************************************
rem * Put some labels on the bars
rem **********************************************************************
Image.TextOut "NE", 27, 11, false
Image.TextOut "NW", 65, 11, false
Image.TextOut "SE", 107, 11, false
Image.TextOut "SW", 145, 11, false
Image.FontColor = vbBlack
Image.TextOut "100", 25, 90, false
Image.TextOut "130", 65, 120, false
Image.TextOut "150", 105, 140, false
Image.TextOut "170", 145, 160, false
rem **********************************************************************
rem * Place a label at the bottom and center it
rem **********************************************************************
Image.Italic = True
Image.FontColor = vbRed
Image.PadSize = 0
Image.FontSize = 10
Image.Bold = True
strLabel = "Widget Sales by Region"
Image.TextOut strLabel, (Image.MaxX / 2) - (Image.TextWidth(strLabel) / 2), Image.MaxY - 18, false
rem **********************************************************************
rem * Set the filename and save
rem * NOTE: You should gen the filename dynamically for multiuser usage
rem **********************************************************************
Image.FileName = server.MapPath(".")&"\aspgraph.jpg"
Image.SaveImage
Set Image = nothing
rem **********************************************************************
rem * Write the <img src> tag out for the browser to pick up
rem **********************************************************************
Response.Write "<img src=""aspgraph.jpg""><br>"
rem **********************************************************************
rem * These properties give eval/registration information for the component
rem **********************************************************************
rem Response.Write "<p>Expires: " & Image.Expires
rem Response.Write "<br>Version: " & Image.Version
rem Response.Write "<br>Registered To: " & Image.RegisteredTo
%>
</center>
</body>
</html>