<%@ LANGUAGE="VBSCRIPT" %> Document <% Dim totals(30) Dim Names(30) StatIndex = -1 %>

<% 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 %>

Inbound Calls

<% For I = 0 To 20 vol = Int(chartinfo(I)) label = Int(chartinfo(I)) Next %> <% For i = 0 To StatIndex %> <%if totals(i) > 0 Then%>

<% Response.Write label %>

<%response.write names(i)%>

<%end if%> <%next%>