<!--#include file="adovbs.inc" -->
<%

Function ExportChartToGIF(objCSpace)
   'Get a random filename
   Dim strFileName
   Randomize 
   strFileName = Timer & Rnd & ".gif"

   'Save the image as a GIF
   objCSpace.ExportPicture server.MapPath(".") & "\" & strFileName, "gif", 600, 350

   'Return the path to the GIF image of the graph
   ExportChartToGIF =  strFileName
End Function

Sub CleanUpGIF()
   Dim objFS
   Dim objFolder
   Dim gif

   set objFS = Server.CreateObject("Scripting.FileSystemObject")
   set objFolder = objFS.GetFolder(server.MapPath("."))
   
   'Loop through each file in the GIFpath folder
   for each gif in objFolder.Files
       'Delete GIF files older than 10 minutes
       if instr(gif.Name, ".gif") > 0 and _
         DateDiff("n", gif.DateLastModified, now) > 0 then
           objFS.DeleteFile objFolder & "/" & gif.Name, True
       end if
   next
   set objFolder = nothing
   set objFS = nothing
End Sub



set objChartSpace = Server.CreateObject("OWC.Chart")
set objChart = objChartSpace.Charts.Add()
set c = objChartSpace.Constants

'chChartTypeLine
'chChartTypeColumnClustered
'chChartTypePie
'chChartTypeColumnStacked


objChart.Type = c.chChartTypeColumnStacked
objChart.HasLegend = True

'Give title to graph.
objChart.HasTitle = true
objChart.Title.Caption= "Yearly Product Sales ($)"

set objFont = objChart.Title.Font
objFont.Name = "Tahoma"
objFont.Size = 10
objFont.Bold = True


Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = "scanoptics"
objRS.Source = "select * from YearlyProductSalesCost"
objRS.CursorType = adOpenStatic
objRS.CursorLocation = adUseClient
objRS.Open()


set objChartSpace.DataSource = objRS
objChart.SetData c.chDimSeriesNames, 0, "ProductCode"
for each objSeries in objChart.SeriesCollection
   objSeries.SetData c.chDimCategories, 0, "YearPart"
   objSeries.SetData c.chDimValues, 0, "SumOfProductCost"
next


for each axis in objChart.Axes
   axis.HasTitle = True
   if axis.Type = c.chCategoryAxis then
      axis.Title.Caption = "Year"
   else
      axis.Title.Caption = "Total Sales ($)"
   end if
next

strChartFile = ExportChartToGIF(objChartSpace)
Response.Write "<IMG SRC=""" & strChartFile & """>"
CleanUpGIF
%>