Ver Mensaje Individual
  #1 (permalink)  
Antiguo 09/06/2008, 15:51
Avatar de omegafunky
omegafunky
 
Fecha de Ingreso: diciembre-2003
Ubicación: Tabasco, Mexico
Mensajes: 3.534
Antigüedad: 21 años, 4 meses
Puntos: 33
Exclamación Problema con ASP, XML y FusionCharts Free

hola amigos ando queriendo crear un XML para jalarlo desde un SWL del FusionCharts y que me pinte la grafuca pero solo me dice que no encuentra los datos, el codigo es el sig:
Código PHP:
<!--#include virtual="/it/Lib/INC/LibreriasIT.asp" -->
<html>
<
head>
   <
script language="JavaScript" src="../charts/FusionCharts.js"></script>
</head> 
<body bgcolor="#ffffff">
   <div id="chartdiv" align="center">The chart will appear within this DIV. This text will be replaced by the chart.</div>
   <script type="text/javascript">
      var myChart = new FusionCharts("../charts/FCF_MSColumn2D.swf", "myChartId", "600", "500");
      myChart.setDataXML("<graph xaxisname='Continent' yaxisname='Export' hovercapbg='DEDEBE' hovercapborder='889E6D' rotateNames='0' yAxisMaxValue='100' numdivlines='9' divLineColor='CCCCCC' divLineAlpha='80' decimalPrecision='0' showAlternateHGridColor='1' AlternateHGridAlpha='30' AlternateHGridColor='CCCCCC' caption='Global Export' subcaption='In Millions Tonnes per annum pr Hectare'><%
Set conn = CreaConexion()
 SQL = "SELECT id_cat_espec, nombre FROM cat_especialidades WHERE id_sesion = 0 ORDER BY nombre"
 Set rs = ObtenSetDatos(SQL, conn, false)
 
 SQL_fortalezas_espe = "SELECT * FROM levan_req_espec WHERE id_sesion = 342"
 Set rs_fortalezas = ObtenSetDatos(SQL_fortalezas_espe, conn, false)
 nivel = 1
 
    ' <!-------------------------------------------CATEGORIAS------------------>
     if nivel = 1 then
     i = 1
     While Not rs.EOF
     if i = 1 then response.Write("<categories font='Arial' fontSize='11' fontColor='000000'>") end if
     response.Write("<category name='"&rs("nombre")&"' />")
     if i = 13 then response.Write("</categories>") end if  
    
     i = i + 1
     rs.MoveNext
     Wend
     Set rs = LiberaSetDatos(rs)
     nivel = nivel + 1
     end if
    ' <!-------------------------------------------FIN CATEGORIAS------------------>
    
      ' <!-------------------------------------------BASICO------------------>
       if nivel = 2 then
       i = 1
       SQL = "SELECT id_cat_espec, nombre FROM cat_especialidades WHERE id_sesion = 0 ORDER BY nombre"
       Set rs = ObtenSetDatos(SQL, conn, false)
       While Not rs.EOF
       SQL_tiene_basico = "SELECT COUNT(id_personal) AS tiene FROM per_nivel_esp WHERE  id_especialidad = "&rs("id_cat_espec")&" AND id_sesion = 342 AND id_grado = 1"
       set rs_tiene_basico = ObtenSetDatos(SQL_tiene_basico, conn, false)
      
       if i = 1 then response.Write("<dataset seriesname='Basico' color='FDC12E'>") end if
       response.Write("<category name='"&rs_tiene_Basico("tiene")&"' />")
       if i = 13 then response.Write("</dataset>") end if  
      
       i = i + 1
       rs.MoveNext
       Wend
       Set rs = LiberaSetDatos(rs)
       nivel = nivel + 1
       end if
      ' <!-------------------------------------------FIN BASICO------------------>
      ' <!-------------------------------------------INTERMEDIO------------------>
       if nivel = 3 then
       i = 1
       SQL = "SELECT id_cat_espec, nombre FROM cat_especialidades WHERE id_sesion = 0 ORDER BY nombre"
       Set rs = ObtenSetDatos(SQL, conn, false)
       While Not rs.EOF
       SQL_tiene_Intermedio = "SELECT COUNT(id_personal) AS tiene FROM per_nivel_esp WHERE  id_especialidad = "&rs("id_cat_espec")&" AND id_sesion = 342 AND id_grado = 2"
       set rs_tiene_Intermedio = ObtenSetDatos(SQL_tiene_Intermedio, conn, false)
      
       if i = 1 then response.Write("<dataset seriesname='Intermedio' color='56B9F9'>") end if
       response.Write("<category name='"&rs_tiene_Intermedio("tiene")&"' />")
       if i = 13 then response.Write("</dataset>") end if  
      
       i = i + 1
       rs.MoveNext
       Wend
       Set rs = LiberaSetDatos(rs)
       nivel = nivel + 1
       end if
      ' <!-------------------------------------------FIN INTERMEDIO------------------>
      
      ' <!-------------------------------------------AVANZADO------------------>
       if nivel = 4 then
       i = 1
       SQL = "SELECT id_cat_espec, nombre FROM cat_especialidades WHERE id_sesion = 0 ORDER BY nombre"
       Set rs = ObtenSetDatos(SQL, conn, false)
       While Not rs.EOF
       SQL_tiene_Avanzado = "SELECT COUNT(id_personal) AS tiene FROM per_nivel_esp WHERE  id_especialidad = "&rs("id_cat_espec")&" AND id_sesion = 342 AND id_grado = 3"
       set rs_tiene_Avanzado = ObtenSetDatos(SQL_tiene_Avanzado, conn, false)
      
       if i = 1 then response.Write("<dataset seriesname='Avanzado' color='C9198D'>") end if
       response.Write("<category name='"&rs_tiene_Avanzado("tiene")&"' />")
       if i = 13 then response.Write("</dataset>") end if  
       if i = 13 then response.Write("</graph>") end if  
      
       i = i + 1
       rs.MoveNext
       Wend
       Set rs = LiberaSetDatos(rs)
       nivel = nivel + 1
       end if
      ' <!-------------------------------------------FIN AVANZADO------------------>
 
%>");
      myChart.render("chartdiv");
   </script>
</body>
</html> 

lo que me genera es esto:
Código PHP:
<html>
<
head>
   <
script language="JavaScript" src="../charts/FusionCharts.js"></script>
</head> 
<body bgcolor="#ffffff">
   <div id="chartdiv" align="center">The chart will appear within this DIV. This text will be replaced by the chart.</div>
   <script type="text/javascript">
      var myChart = new FusionCharts("../charts/FCF_MSColumn2D.swf", "myChartId", "600", "500");
      myChart.setDataXML("<graph xaxisname='Continent' yaxisname='Export' hovercapbg='DEDEBE' hovercapborder='889E6D' rotateNames='0' yAxisMaxValue='100' numdivlines='9' divLineColor='CCCCCC' divLineAlpha='80' decimalPrecision='0' showAlternateHGridColor='1' AlternateHGridAlpha='30' AlternateHGridColor='CCCCCC' caption='Global Export' subcaption='In Millions Tonnes per annum pr Hectare'><categories font='Arial' fontSize='11' fontColor='000000'><category name='Adquisición sísmica' /><category name='Bioestratigrafía' /><category name='Estratigrafía – sedimentología' /><category name='Evaluación de proyectos' /><category name='Geología del subsuelo' /><category name='Geología estructural' /><category name='Geoquímica' /><category name='Ingeniería de perforación' /><category name='Ingeniería de yacimientos' /><category name='Interpretación sísmica' /><category name='Métodos potenciales' /><category name='Petrofísica' /><category name='Procesamiento sísmico' /></categories><dataset seriesname='Basico' color='FDC12E'><category name='1' /><category name='1' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /></dataset><dataset seriesname='Intermedio' color='56B9F9'><category name='1' /><category name='1' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /></dataset><dataset seriesname='Avanzado' color='C9198D'><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /><category name='0' /></dataset></graph>");
      myChart.render("chartdiv");
   </script>
</body>
</html> 
__________________
Canon 7D | Canon 5D Mark II | 35mm 1.4L | 135mm 2L | Pocket Wizard Plus III