Hola
Tengo las aplicaciones de fusionchars y trato de generar una grafica desde una base de datos Acces, y me manda una error en la linea donde esta el codigo siguiente
Call renderChart("../FusionCharts/Column3D.swf", strDataURL, "", "FactorySum", 650, 450),
e checado todas las funciones que se manda llamar y estan correctas, nose que pueda ser. Si jalo los datos de uun xml si grafica pero de la base de datos en access no.
De antemano gracias por su ayuda. les mando mi codigo
default.asp
Código HTML:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Graficas</TITLE>
<SCRIPT LANGUAGE="Javascript" SRC="../FusionCharts/FusionCharts.js"></SCRIPT>
</HEAD>
<!-- #INCLUDE FILE="../Includes/FusionCharts.asp" -->
<BODY>
<%
Dim strDataURL
strDataURL = "Columna3D.asp"
Call renderChart("../FusionCharts/Column3D.swf", strDataURL, "", "FactorySum", 650, 450)
%>
</BODY>
</HTML>
Columna3D.asp
Código HTML:
<%@ Language=VBScript %>
<!-- #INCLUDE FILE="../Includes/DBConn.asp" -->
<%
Dim oRs, oRs2, strQuery
Dim strXML
Set oRs = Server.CreateObject("ADODB.Recordset")
strXML = "<graph caption='Factory Output report' subCaption='By Quantity' decimalPrecision='0' showNames='1' numberSuffix=' Units' pieSliceDepth='30' formatNumberScale='0'>"
strQuery = "select * from Factory_Master"
Set oRs = oConn.Execute(strQuery)
While Not oRs.Eof
Set oRs2 = Server.CreateObject("ADODB.Recordset")
strQuery = "select sum(Quantity) as TotOutput from Factory_Output where FactoryId=" & ors("FactoryId")
Set oRs2 = oConn.Execute(strQuery)
strXML = strXML & "<set name='" & ors("FactoryName") & "' value='" & ors2("TotOutput") & "' />"
Set oRs2 = Nothing
oRs.MoveNext
Wend
strXML = strXML & "</graph>"
Set oRs = nothing
Response.ContentType = "text/xml"
Response.Write(strXML)
%> DBConn.asp
<%
Dim oConn
if not isObject(oConn) then
Dim strConnQuery
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Mode = 3
strConnQuery = "DBQ=" & server.mappath("FactoryDB.mdb")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " & strConnQuery)
end if
%>