help me
hi i use asp code to display the graph.the problem is i only want to display the latest 10 world week in the Category (X) axis.
plz help me it is urgent
[156 byte] By [
vinosha] at [2007-11-19 19:52:15]

# 2 Re: help me
<HTML>
<HEAD>
<TITLE>Volume for ATM</TITLE>
</HEAD>
<center><font face="Haettenschweiler" size="5"><i>ACD Calls For Shift B</i></font></center>
<object id=ChartSpace1 classid=CLSID:0002E55D-0000-0000-C000-000000000046 style="width:100%;height:350"></object>
<object id=ADOConnection1 classid=CLSID:00000514-0000-0010-8000-00AA006D2EA4></object>
<BODY>
<script language=vbs>
Sub Window_OnLoad()
Dim rs, categories,categories1,categories2,values,values1,values2, c, rs1,rs2
Dim oChart
Dim oSeries1, oSeries2, oSeries3
dim oConst
categories = ""
values = ""
ADOConnection1.Open "Provider=sqloledb;Data Source=PGSMCFILE004;User Id=data;Password= data;Initial Catalog=CMS"
Set rs = ADOConnection1.Execute("SELECT datetime1, ACD_Calls FROM cms WHERE Split_Skill='Total' And shift='shift B' GROUP By datetime1,ACD_Calls ORDER BY datetime1 ASC")
Set rs1 = ADOConnection1.Execute("SELECT datetime1, ACD_Calls FROM cms WHERE Split_Skill='FactoryEnglish' And shift='shift B' GROUP By datetime1,ACD_Calls ORDER BY datetime1 ASC")
Set rs2 = ADOConnection1.Execute("SELECT datetime1, ACD_Calls FROM cms WHERE Split_Skill='FactoryMandarin' And shift='shift B' GROUP By datetime1,ACD_Calls ORDER BY datetime1 ASC")
rs.MoveFirst
Do While Not rs.EOF
categories = categories & rs.Fields(0).Value & Chr(9)
values = values & rs.Fields(1).Value & Chr(9)
rs.MoveNext
Loop
rs.Close
rs1.MoveFirst
Do While Not rs1.EOF
categories1 = categories1 & rs1.Fields(0).Value & Chr(9)
values1 = values1 & rs1.Fields(1).Value & Chr(9)
rs1.MoveNext
Loop
rs1.Close
rs2.MoveFirst
Do While Not rs2.EOF
categories2 = categories2 & rs2.Fields(0).Value & Chr(9)
values2 = values2 & rs2.Fields(1).Value & Chr(9)
rs2.MoveNext
Loop
rs2.Close
ADOConnection1.Close
' Remove the leftover tab character at the end of the strings.
categories = Left(categories, Len(categories) - 1)
values = Left(values, Len(values) - 1)
Set oConst = ChartSpace1.Constants
'Create a new chart in the ChartSpace
Set oChart = ChartSpace1.Charts.Add
'Add a series of type first line
Set oSeries1 = oChart.SeriesCollection.Add
With oSeries1
.Caption = "total"
.SetData oConst.chDimCategories, oConst.chDataLiteral, categories
.SetData oConst.chDimValues, oConst.chDataLiteral, values
.Type = oConst.chChartTypeLine
End With
'Add a second series of type Line
Set oSeries2 = oChart.SeriesCollection.Add
With oSeries2
.Caption = "english"
.SetData oConst.chDimCategories, oConst.chDataLiteral, categories1
.SetData oConst.chDimValues, oConst.chDataLiteral, values1
.Type = oConst.chChartTypeLine
End With
'Add a third series of type Line
Set oSeries3 = oChart.SeriesCollection.Add
With oSeries3
.Caption = "mandarin"
.SetData oConst.chDimCategories, oConst.chDataLiteral, categories2
.SetData oConst.chDimValues, oConst.chDataLiteral, values2
.Type = oConst.chChartTypeLine
End With
'Display the legend
oChart.HasLegend = True
oChart.Legend.Position = oConst.chLegendPositionBottom
End Sub
</script>
</BODY>
</HTML>
hi this is the asp code for the graft.i able to display the graft with this code.the problem is my database has 53 ww data so far.the data will be update daily.so i only want the Category (X) axis has the latest ww.so it must only display the latest 10ww.\
hw to do this.plz help me