ASP bar chart

ASP bar chart

--------------------------------------------------------------------------------

Description : This code is an example how to use a random color generator and a table to create a Bar Chart.

<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<TITLE>Document Title</TITLE>
</HEAD>
<BASEfont FACE="Arial, Helvetica, sans-serif" size=2>
<LInk REL="STYLESHEET" HREF="../../Stylesheets/MENUPAGES.css">
<BODY BACKGROUND="../../Images/Redside/Background/Back2.jpg" BGCOLOR="White">

<STYLE MEDIA="print">/* turn off navigation And ad bar */
#header, .menu, .header, #adbar, DIV#jumpbar, #navbar {display: none}
/* remove position of contents */#why {position: static; width: auto}
/* cleanup all the colors */#why H3, PRE, FONT {color: black}
/* cleanup the copyright */
DIV#why P.copyright {color: black; font: 10pt verdana}
/* display the Print header */#printMessage {display: block} </STYLE>
<%
Dim totals(30)
Dim Names(30)
StatIndex = -1
%>
<FORM ACTION="Inboundstats.asp" METHOD="POST" NAME="Inboundstats">
<%
On Error Resume Next
Randomize
'---------------------------------------
' ----------------------------------------
'
' Purpose: To generate random colors
'-------------------------
Function rndcolor()
Dim LightDarkRange
LightDarkRange = 150
forered = Int(Rnd * LightDarkRange)
foregreen = Int(Rnd * LightDarkRange)
foreblue = Int(Rnd * LightDarkRange)
color = "#" & CStr(Hex(RGB(forered, foregreen, foreblue)))
rndcolor=color
End Function
%>
<CENTER>
<TABLE border="0">
<TD align="left"><Img src="../../images/ac204.gif"></CENTER></TD>
<TD></TD>
<TD align=center></TD>
<TD align="center"><H1><FONT color=blue>Inbound Calls </FONT><H1></TD>
</TABLE>
</CENTER>
<CENTER>
<TABLE border="1">
<TR VALIGN=BOTTOM>
<%
For I = 0 To 20
vol = Int(chartinfo(I))
label = Int(chartinfo(I))

<TD align="center">
<TABLE>
<TD height="<% response.write vol %>" bgcolor="<% response.write rndcolor() %>" align="bottom">
<B><FONT color="#FFFFFF"><% Response.Write label %></B>
</FONT></TD></TABLE></TD>
Next
%>
</TR>
<TR>
<%
For i = 0 To StatIndex
%>
<%if totals(i) > 0 Then%>
<TD>
<TABLE>
<TD><FONT face="Small Fonts" size=1 color="blue"><STRONG> <%response.write names(i)%> <STRONG><FONT></TD>
</TABLE>
<%end if%>
<%next%>
</TD>
</TR>
</TABLE>
</CENTER>
</BODY>
</HTML>