Quiero usar una gráfica pero me sale un error... Con FusionChartsFree
este es el error q me sale :
Wrong number of arguments or invalid property assignment: 'renderChartHTML'
este el codigo:
<html>
<head>
<style type="text/css">
h1.pagetitle {
margin:0 0 0.4em 0;
padding:0 0 2px 0;
border-bottom:solid 7px rgb(225,225,225);
font-family: Arial,sans-serif;
color:rgb(100,100,100);
font-weight:bold;
font-size:20px;
}
h1.block {
clear:both;
margin:1.0em 0 0em 0;
padding:2px 0 2px 2px;
background:rgb(190,190,190);
font-family:"trebuchet ms",arial,sans-serif;
color:rgb(255,255,255);
font-weight:bold; font-size:18px;
}
</style>
<script language="Javascript" src="FusionCharts/FusionCharts.js"></script>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<!-- #INCLUDE FILE="FusionCharts/FusionCharts.asp" -->
<body><div style='float:Left;'>
<img src="TIEMPO ESTANDARIZADO\Employee_Images/15.jpg" width="150" height="200"/><h3>NORMANDO MENDOZA</h3>
</div>
<div style='float:center;'>
<%
Dim oConn, rs, SQL,db,rs1,oConn1
db="TIEMPO ESTANDARIZADO/Tiempo Estandarizado.mdb"
'======== Rackeo Componentes======
Dim strXML
strXML = ""
strXML = "<chart yAxisName='Contenedores' caption='Actividad' " & _
"useRoundEdges='1' labelDisplay='Rotate' slantLabels='1' showExportDataMenuItem='1' " & _
"canvasBgAlpha='30' canvasBorderColor='333333' " & _
"canvasBorderThickness='0' divLineColor='333333' >"
Dim count1, count2,count3,count4
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(db)
SQL="SELECT COUNT(Actividad) FROM QMASTERTE WHERE (Fecha=Date() AND Hora > #6:0:0# AND Hora < #15:20:0# ) AND ID_Actividad=42 AND ID_MP=3 AND ID_Empleado=15 ;"
rs.Open SQL, oConn, 1, 2
%><table border="1"><tr><th> Componentes Dado de Alta</th><th>Tiempo(s)</th></tr><%
Do While Not rs.EOF
strXML = strXML & "<set name='Componentes Dado de Alta' value='" & rs(0) & "' />"
Count1=rs(0)*48
%><tr><TD><%Response.Write(rs(0))%></TD><TD><%Response.Write(Count1)%></TD></tr>
<%
rs.MoveNext
Loop
rs.close
oConn.Close
'========Bajar Sobrefujo de Componente ======
set rs1 = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(db)
SQL="SELECT COUNT(Actividad) FROM QMASTERTE WHERE (Fecha=Date() AND Hora > #6:0:0# AND Hora < #15:20:0# ) AND ID_Actividad=45 AND ID_MP=3 AND ID_Empleado=15 ;"
rs1.Open SQL, oConn, 1, 2
%><tr><th>Bajar Sobrefujo de Componente</th></th><th>Tiempo(s)</th></tr><%
Do While Not rs1.EOF
Count2=rs1(0)*30
%><tr><TD><%Response.Write(rs1(0))%></TD><TD><%Response.Write(Count2)%></TD></tr>
<%
sstrXML = strXML & "<set name='Bajar Sobrefujo de Componente' value='" & rs1(0) & "' />"
rs1.MoveNext
Loop
rs1.close
oConn.Close
'======== Rackeo Terminales======
set rs2 = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(db)
SQL="SELECT COUNT(Actividad) FROM QMASTERTE WHERE (Fecha=Date() AND Hora > #6:0:0# AND Hora < #15:20:0# ) AND ID_Actividad=42 AND ID_MP=6 AND ID_Empleado=15 ;"
rs2.Open SQL, oConn, 1, 2
%><tr><th>Terminales Dado de Alta</th></th><th>Tiempo(s)</th></tr><%
Do While Not rs2.EOF
Count3=rs2(0)*18
%><tr><TD><%Response.Write(rs2(0))%></TD><TD><%Response.Write(Count3)%></TD></tr>
<%
sstrXML = strXML & "<set name='Terminales Dado de Alta' value='" & rs2(0) & "' />"
rs2.MoveNext
Loop
rs2.close
oConn.Close
'========Bajar Sobrefujo de terminales======
set rs3 = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(db)
SQL="SELECT COUNT(Actividad) FROM QMASTERTE WHERE (Fecha=Date() AND Hora > #6:0:0# AND Hora < #15:20:0# ) AND ID_Actividad=45 AND ID_MP=6 AND ID_Empleado=15 ;"
rs3.Open SQL, oConn, 1, 2
%><tr><th>Bajar Sobreflujo Terminales</th><th>Tiempo(s)</th></tr><%
Do While Not rs3.EOF
Count4=rs3(0)*20
%><tr><TD><%Response.Write(rs3(0))%></TD><TD><%Response.Write(Count4)%></TD></tr>
</table><%
strXML = strXML & "<set name='Bajar Sobreflujo Terminales' value='" & rs3(0) & "' />"
rs3.MoveNext
Loop
rs3.close
oConn.Close
Set rs3 = nothing
strXML = strXML & "</chart>"
Call renderChartHTML("FusionCharts/FCF_Column3D.swf", "", strXML, "Actividad", 800, 400, false, True)
%></div>
</body>
</html>
estoy usando el FusionChartsFree ya segui las instruciones de su pagina pero eso error no se quita q hago ayuda por favor
