<%@ Language=VBScript %> <% 'In this page, we just relay the XML Content to FusionCharts 'We ask the server not to cache the page Response.Expires = 0 'We tell the server that we are going to send XML Content Response.ContentType = "text/xml" 'Set up an array of colors for each series Colors = Array("33FF66", "FF6600", "3399FF", "009966", "CC3399", "FFCC33", "6699CC", "CC3366", "993366", "0033FF", "0099ff", "FFCC00", "FF0000", "9900FF", "993333", "66FFCC", "CC99FF", "CCCC00", "33CCCC", "336699", "CC6666", "663399", "00CC33", "999999", "FF33FF", "FF9966", "9966FF") 'Get the report year 'strRepYr = session("RepYr") 'strPermitNumber = session("permitNumber") 'We now request the data 'We now query the Database Set conn2 = Server.CreateObject("ADODB.connection") conn2.Open "DSN=MRCDC" vsql="select * from qry_Count_byLocation" 'response.write vsql Set oRs=conn2.execute(vsql) 'We finally have the queried recordset in oRs 'So now we build the XML Content 'Calculate how many vertical lines 'numDivs = numVDivs() 'Create the subCaption mySubCaption = "Document Counts by Location" Dim strXML strXML = "" myInt = 0 while NOT oRs.eof myColor = colors(myInt + 1) strXML = strXML & "" myInt = myInt + 1 oRs.MoveNext Wend strXML = strXML & "" Set Conn2 = nothing Set oRs = nothing 'We finally relay the XML Content Response.Write(strXML) %>