<html><head><title>Widget Sales</title></head>
<body>
<div align="center">
<h2>4th Quarter Widget Sales Results<br>by Region</h2>
<!--- Create AspImage Object --->
<cfobject type="COM"
name="Image"
class="AspImage.Image"
action="CREATE">
<cfscript>
Image.AntiAliasText = True;
vbRed="255"; vbBlue="16711680"; vbBlack="0"; vbWhite="16777215";
vbGreen="65280"; vbYellow="65535"; vbCyan="16776960"; vbMagenta="16711935";
// 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 = expandpath(".")&"\cfmgraph.jpg";
Image.SaveImage();
// rem **********************************************************************
// rem * Write the <img src> tag out for the browser to pick up
// rem **********************************************************************
WriteOutput("<img src=""cfmgraph.jpg""><br>");
// rem **********************************************************************
// rem * These properties give eval/registration information for the component
// rem **********************************************************************
// rem WriteOutput("<p>Expires: " & Image.Expires);
// rem WriteOutput("<br>Version: " & Image.Version);
// rem WriteOutput("<br>Registered To: " & Image.RegisteredTo);
</cfscript>
</div>
</body>
</html>