The charts work fine individaully so I'm fairly confident it's how I'm calling out the second chart.

The code is as follows:

<%
 
  
 
 Dim oRs, oRs2, strQuery
 Dim strXML
 
 
 Set oRs = Server.CreateObject("ADODB.Recordset")

 
 
 
 strXML = "<chart caption='Telephone Service Factor In Percentage' pieSliceDepth='30' showBorder='1' formatNumberScale='0'>"
 

 strQuery = "select * from Queue_Master_TSF"
 Set oRs = oConn.Execute(strQuery)
 
 While Not oRs.Eof
  
  Set oRs2 = Server.CreateObject("ADODB.Recordset")
  strQuery = "select sum(Quantity) as TotOutput from Queue_Output_TSF where GraphlabelID=" & ors("GraphlabelID")
  Set oRs2 = oConn.Execute(strQuery)    
   
  strXML = strXML & "<set label='" & ors("QueueName") & "' value='" & ors2("TotOutput") & "' />"
  
  Set oRs2 = Nothing
  oRs.MoveNext
 Wend
 
 strXML = strXML & "</chart>"
 Set oRs = nothing
 

 Call renderChart("../../FusionCharts/column3D.swf", "", strXML, "FactorySum", 850, 170, false, false)
 
  strQuery = "select * from Queue_Master_ABDN"
 Set oRs = oConn.Execute(strQuery)
 
 While Not oRs.Eof
  
  Set oRs2 = Server.CreateObject("ADODB.Recordset")
  strQuery = "select sum(Quantity) as TotOutput from Queue_Output_ABDN where GraphlabelID=" & ors("GraphlabelID")
  Set oRs2 = oConn.Execute(strQuery)    
   
  strXML = strXML & "<set label='" & ors("QueueName") & "' value='" & ors2("TotOutput") & "' />"
  
  Set oRs2 = Nothing
  oRs.MoveNext
 Wend
 
 strXML = strXML & "</chart>"
 Set oRs = nothing
 
 Call renderChart("../../FusionCharts/column3D.swf", "", strXML, "FactorySum1", 850, 170, false, false)
 
 
 
%>