PureAspGraph

Choose new example  


Demonstration
2000 >
1800 >
1600 >
1400 >
1200 >
1000 >
800 >
600 >
400 >
200 >
  Data 1

  Data 2

  Data 3

  Data 4

  Data 5

  Data 6
Denmark Germany Sweden Norway France Italy Iceland Belgium Greenland

This is PureAspGraph version 0.38. Make vertical and horizontal bar charts with this ASP class. Featuring: vertical text, data from arrays, data from recordset.
You do not need to install anything on the server, since this code is pure ASP! Very easy to use and completly free. Download

Code for this example: 

<%
	Dim a, b
	Dim h, i, j, k, l
	
	a = Array("Denmark", "Germany", "Sweden", "Norway", "France", "Italy", "Iceland", "Belgium", "Greenland")
	b = Array(1490, 1007, 64, 1938, 1550, 1890, 721, 554, 450) 
	
	h = Array(1225, 1299, 687, 1571, 0, 1581, 1148, 772, 1295)
	i = Array(367, 457, 712, 1244, 1136, 877, 1778, 1571, 75)
	j = Array(339, 1486, 44, 249, 367, 694, 1043, 1875, 117)
	k = Array(1622, 647, 784, 1612, 784, 174, 1600, 1114, 396)
	l = Array(1785, 1059, 91, 305, 112, 221, 677, 836, 156)
	
	Dim objGraph
	Set objGraph = New PureAspGraph
	Call objGraph.setTitle("Demonstration")
	
	'Adds data	
	Call objGraph.setData(a, b)
	Call objGraph.addData(h)
	Call objGraph.addData(i)
	Call objGraph.addData(j)
	Call objGraph.addData(k)
	Call objGraph.addData(l)
	
	'Adds descriptions
	Call objGraph.addLabel("Data 1")
	Call objGraph.addLabel("Data 2")	
	Call objGraph.addLabel("Data 3")
	Call objGraph.addLabel("Data 4")
	Call objGraph.addLabel("Data 5")
	Call objGraph.addLabel("Data 6")
	
	
	Call objGraph.setType(1)	
	Call objGraph.setBarWidth(10)
	Call objGraph.print()
%>