<%
Response.ContentType = "image/JPEG"
Dim Chart
cNone = 0
cBar = 1
cRectGradient = 6
Set Chart = Server.CreateObject ("ASPChart.Chart")
Chart.AddSeries (cBar)
Chart.AddValue 200, "Regular", vbBlue
Chart.AddValue 233, "Enhanced ", vbRed
Chart.AddValue 260, "Free", vbGreen
Chart.BarStyle = cRectGradient
Chart.ChartTitleAdd ("Simple
Bar Chart")
Chart.ChartTitleFont.Size = 20
Chart.ChartTitleFont.Name = "Times New Roman"
Chart.ChartTitleFont.Italic = true
Chart.ChartTitleFont.Bold = true
Chart.BevelOuter = cNone
Chart.GradientVisible = true
Chart.GradientStartColor = vbWhite
Chart.GradientEndColor = vbYellow
Chart.Height = 300
Chart.Width = 500
Response.BinaryWrite Chart.Image
rem Response.Write "<p>Expires:
" & Chart.Expires
rem Response.Write "<br>Version: " &
Chart.Version
rem Response.Write "<br>Registered To: "
& Chart.RegisteredTo
Set Chart = nothing
%>
|