My First Chart
Yes-20
No-60
Maybe-30
Dunno-18


The following ASP Code was used to create the chart:

<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="/webtech/code/clsBarChart.inc"-->
<HTML><BODY>
<%
Dim objChart
Set objChart = New BarChart

With objChart
   .chartBGcolor = "#FFCC00"
   .chartTitle = "My First Chart"
   .chartWidth = "160"
   .chartValueArray = array(20,60,30,18)
   .chartLabelsArray = array("Yes", "No", "Maybe", "Dunno")
   .chartColorArray = array("#FF9966" , "#009900" , "#000099")
   .chartViewDataType = "V"
   .chartBarHeight = 10
   .chartTextColor = "#990000"
END WITH

'Draw the chart!
objChart.Draw

Set objChart = Nothing
%>


  • Back to the article!
  • View the source to the BarChart Class