"Jose M Hernandez" <Jose M
He*******@discussions.microsoft.com> wrote in
message news:C9**********************************@microsof t.com...
Does anybody know of techniques (or websites) where a graph is generated
based on data of an array?
Any advice on graphs and ASP is greatly appreciated...
yes I made a scripting component to make charts, it works on a record set
being passed to it and has some percific code to my needs in it, but you
could alter it to use a array for your own needs
here is a example
http://wanews.org/economic/unemployment.asp
copy code into notepad
save as chart.wsc
then call like this
set chart = Server.CreateObject("chart.WSC")
chart.chartLine("Australian Interest
Rates","InterestRates",300,200,rs1("minx"),rs1("ma xx"),rs2,0,7,"%","right","")
and here is the code
<?xml version="1.0"?>
<component>
<registration
description="Chart"
progid="Chart.WSC"
version="1.00"
classid="{bf770420-5a73-4e1b-b5ce-f4f8a5448ee5}"
</registration>
<public>
<method name="chartLine">
<PARAMETER name="heada"/>
<PARAMETER name="table"/>
<PARAMETER name="widthx"/>
<PARAMETER name="heightx"/>
<PARAMETER name="rangeLow"/>
<PARAMETER name="rangeHigh"/>
<PARAMETER name="recordSet"/>
<PARAMETER name="xCol"/>
<PARAMETER name="dCol"/>
<PARAMETER name="symbol"/>
<PARAMETER name="alignent"/>
</method>
</public>
<implements type="ASP" id="ASP"/>
<script language="VBScript">
<![CDATA[
function
chartLine(heada,table,widthx,heightx,rangeLow,rang eHigh,recordSet,xCol,dCol,symbol,alignent,bgColor)
Session.LCID = 3081
set bttt = server.CreateObject("MSWC.BrowserType")
dim ratio, rCount ,points ,counta ,leftx ,lefty ,spacex ,range ,line1
,line2 ,line3 ,test ,datex,color,ditString,datString
test = true
color = "Blue"
line1 = ""
line2 = ""
line3 = ""
counta = 0
leftx = 50
lefty = 50
dateWhitlam = "December 2, 1972"
dateFraser = "november 11, 1975"
dateHawk = "march 11, 1983"
dateHoward = "march 2, 1996"
rCount = recordSet.RecordCount
points = rCount / (widthx/25)
spacex = widthx / rCount
range = rangeHigh-rangeLow
ratio = heightx / range
line1 = "<TABLE style=""margin:5"" BORDER=0 CELLSPACING=0 CELLPADDING=5
align=" & alignent & " height=" & heightx + 40 & " width=" & widthx + 80 & "
bgcolor=" & bgColor & ">"
line1 = line1 & "<TR><TD><SPAN
style=""font-family:arial;font-weight:900"">" & heada & "</SPAN><DIV
STYLE=""position:relative;height:" & heightx +85 & ";margin-top:20"">"
do until recordSet.EOF
'response.write recordSet(xCol)
if DateValue( recordSet(xCol)) > DateValue(dateWhitlam) then
if DateValue( recordSet(xCol)) > DateValue(dateFraser) then
if DateValue( recordSet(xCol)) > DateValue(dateHawk) then
if DateValue( recordSet(xCol)) > DateValue(dateHoward) then
color = "Blue"
else
color = "Red"
end if
else
color = "Blue"
end if
else
color = "Red"
end if
end if
line22 = "<v:line strokecolor=""" & color & """ from=""" & leftx & "," &
heightx - ((recordSet(dCol) - rangeLow) * ratio) & """"
if bttt.browser = "IE" AND bttt.version => 6 then
line33 = "<DIV
style=""font-size:10;writing-mode:tb-rl;position:absolute;top:" & heightx +
20 & ";left:" & leftx-5 & """>" & getAUSDate(recordSet(xCol)) & "</DIV>"
else
line33 = "<DIV
style=""font-size:9;writing-mode:tb-rl;position:absolute;top:" & heightx +
20 & ";left:" & leftx-5 & """>" & Year(recordSet(xCol)) & "</DIV>"
end if
recordSet.MoveNext
if not recordSet.EOF then
line22 = line22 & " to=""" & leftx + spacex & "," & heightx -
((recordSet(dCol) - rangeLow) * ratio) & """ TITLE="""& recordSet(dCol)
&"""></v:line>"
else
line22 = ""
line3 = line3 & line33
end if
line2 = line2 & line22
leftx = leftx + spacex
if counta => pointsx and pointsx < (rCount - (points / 2)) then
pointsx = pointsx + points
if bttt.browser = "IE" AND bttt.version => 6 then
line3 = line3 & "<DIV
style=""font-size:10;writing-mode:tb-rl;position:absolute;top:" & heightx +
20 & ";left:" & leftx-5 & """>" & getAUSDate(recordSet(xCol)) & "</DIV>"
else
datString = Year( recordSet(xCol))
line3 = line3 & "<DIV
style=""font-size:9;writing-mode:tb-rl;position:absolute;top:" & heightx +
20 & ";left:" & leftx-5 & """>" & datString & "</DIV>"
datString = ""
end if
end if
counta = counta + 1
loop
line3 = line3 & "<DIV style=""font-size:12;position:relative;top:-5"">" &
FormatNumber( rangeHigh,2) & symbol & "</DIV><v:line strokecolor=""black""
from=""" & lefty+10 & "," & -15 & """ to=""" & lefty + widthx & "," & -15 &
"""></v:line>"
line3 = line3 & "<DIV style=""font-size:12;position:relative;top:" &
heightx/2-25 & """>" & FormatNumber(((rangeHigh-rangeLow)/2)+rangeLow,2) &
symbol & "</DIV><v:line strokecolor=""black"" from=""" & lefty+10 & "," &
heightx/2-32 & """ to=""" & lefty + widthx & "," & heightx/2-32 &
"""></v:line>"
line3 = line3 & "<DIV style=""font-size:12;position:relative;top:" &
heightx-50 & """>" & FormatNumber( rangeLow,2) & symbol & "</DIV><v:line
strokecolor=""black"" from=""" & lefty & "," & heightx - 45 & """ to=""" &
lefty + widthx & "," & heightx - 45 & """></v:line>"
line3 = line3 & "</DIV><A HREF=""/pub/economic/xl/data.asp?tab=" & table &
""">Chart Data</A></TD></TR></TABLE>"
line = line1 & line2 & line3
chartLine = line
end function
function getAUSDate(dDate)
dim d,m,y
d = Day(dDate)
m = Month(dDate)
y = Year(dDate)
getAUSDate = d &"/"& m &"/"& y
end function
]]>
</script>
</component>
