<%@ LANGUAGE="VBSCRIPT"%> <%Option Explicit%> <% Response.AddHeader "Pragma", "No-Cache" Response.Expires = 0 'Written by: Hunter Beanland (hbeanland@yahoo.com.au) 'SVGChart is an enhanced version of code originally by: Paul T. Walchli (http://home.att.net/~p.walchli/) 'See Readme.htm for more info %> SVG Charts

SVG Chart Demo
These charts require a Scalable Vector Graphics viewer to be
installed in order to see them. See Readme.htm for more info.
<% 'ChartType: Bar, Pie, Line Dim strQueryString, ChartWidth, ChartHeight '*********** Line Chart Test ChartWidth = 500 ChartHeight = 350 strQueryString = "ChartType=Line" & _ "&Width=" & ChartWidth & "&Height=" & ChartHeight & _ "&ChartName=Line Chart Test" & _ "&XName=Calls" & _ "&YName=Month" & _ "&DataElement1=Jan&DataElement2=Feb&DataElement3=Mar&DataElement4=Apr&DataElement5=May" & _ "&SeriesName1=series1&SeriesName2=series2" &_ "&SeriesData1=13,43,16,10,44" & _ "&SeriesData2=43,16,10,44,13" response.Write ("") '*********** Bar Chart Test ChartWidth = 500 ChartHeight = 350 strQueryString = "ChartType=Bar" & _ "&Width=" & ChartWidth & "&Height=" & ChartHeight & _ "&ChartName=Bar Chart Test" & _ "&XName=Calls" & _ "&YName=Month" & _ "&DataElement1=Jan&DataElement2=Feb&DataElement3=Mar&DataElement4=Apr&DataElement5=May" & _ "&SeriesName1=series1&SeriesName2=series2" &_ "&SeriesData1=13,43,16,10,44" & _ "&SeriesData2=43,16,10,44,13" response.Write ("") '*********** Pie Chart Test ChartWidth = 500 ChartHeight = 350 strQueryString = "ChartType=Pie" & _ "&Width=" & ChartWidth & "&Height=" & ChartHeight & _ "&ChartName=Pie Chart Test" & _ "&DataElement1=Jan&DataElement2=Feb&DataElement3=Mar&DataElement4=Apr&DataElement5=May" & _ "&SeriesName1=series1" &_ "&SeriesData1=0.339,43,16,10,44" response.Write ("") %>