<%
Dim ChartSpecs
Dim Sql1
Dim Sql2
Sql1 = "SELECT YearOrdered, SUM(Subtotal)/1000 FROM [orders report info] "
Sql1 = Sql1 & " Where Country='USA' GROUP BY YearOrdered ORder by YearORdered;"
Sql2 = "SELECT YearOrdered, SUM(Subtotal)/1000 FROM [orders report info] "
Sql2 = Sql2 & " Where Country='Austria' GROUP BY YearOrdered ORder by YearORdered;"
ChartSpecs = ""
ChartSpecs = ChartSpecs & "ChartType=0;" 'Column - Must be first
ChartSpecs = ChartSpecs & "ChartTitle=Sales By Year;"
ChartSpecs = ChartSpecs & "ChartTitleFontBold=Yes;"
ChartSpecs = ChartSpecs & "ChartLegendPosition=Top;"
ChartSpecs = ChartSpecs & "ChartIndividualColumnWidth=20;"
ChartSpecs = ChartSpecs & "ChartXAxisPadding=50;"
ChartSpecs = ChartSpecs & "ChartXAxisTitle=Year;"
ChartSpecs = ChartSpecs & "ChartXAxisFontBold=Yes;"
ChartSpecs = ChartSpecs & "ChartXAxisScalingOrientation=MaxMin;"
ChartSpecs = ChartSpecs & "ChartYAxisTitle=Sales (000's);"
ChartSpecs = ChartSpecs & "ChartYAxisFontBold=Yes;"
ChartSpecs = ChartSpecs & "ChartYAxisLength=300;"
ChartSpecs = ChartSpecs & "ChartYAxisScalingMinimum=10;"
ChartSpecs = ChartSpecs & "ChartYAxisScalingMaximum=100;"
ChartSpecs = ChartSpecs & "ChartNumberFormat=$;"          ' For all numbers
ChartSpecs = ChartSpecs & "ChartSeriesHasLabels=Yes;"     ' For all series
ChartSpecs = ChartSpecs & "ChartSeriesLabelFontBold=Yes;" ' For all series
ChartSpecs = ChartSpecs & "ChartSeriesDataAllData=" & Sql1
ChartSpecs = ChartSpecs & "ChartSeriesName=USA;"
ChartSpecs = ChartSpecs & "ChartSeriesDataAllData=" & Sql2
ChartSpecs = ChartSpecs & "ChartSeriesName=Austria;"
ChartSpecs = ChartSpecs & "ChartSeriesNewName=Canada;"
ChartSpecs = ChartSpecs & "ChartSeriesDataValues=70,80,90;"
ChartSpecs = ChartSpecs & "ChartSeriesNewName=Average;"
ChartSpecs = ChartSpecs & "ChartSeriesType=6;" ' Line
ChartSpecs = ChartSpecs & "ChartSeriesDataValues=60,70,80;"
%>
<img src="GenChart.aspx?GenChart=<%=ChartSpecs%>">