necesito sacar unas estadisticas y reflejarlas en graficas, casi por lo general una serie de promedios, ahora bien yo los saco y los pongo en graficas utlizando un applet de java, mi problema es que me hace una grafica por cada registro de la tabla, yo quiero es que me salga una grafica y varias barras en esa grafica, tengo el sgte codigo y vean cual puede ser mi error, esto es utlizando rchart, ahora tambien si pueden ayudarme a eliminar esa parte donde dice "rchart demo",miren y por fa ayudenme, se los agradeceria muchisimo:
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1252">
<TITLE>
HTML Test Page
</TITLE>
</HEAD>
<BODY bgcolor="#00ccff">
<BR>
<%
Dim c
set oConn=Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};Server=127.0.0.1;uid=root;DataBase=datos1"
oConn.Open
SQL="SELECT valor,nom_control,avg(valor) as pollino FROM controles_hipertensos where codigo='1' group by nom_control,valor"
set rs=oConn.Execute(SQL)
While (not rs.Eof)
%>
<APPLET
CODEBASE = "."
CODE = "com.java4less.rchart.ChartApplet.class"
NAME = "TestApplet"
ARCHIVE = "rchart.jar"
WIDTH = 700
HEIGHT = 400
HSPACE = 0
VSPACE = 0
ALIGN = middle
>
<PARAM NAME = "TITLECHART" VALUE = "Estadisticas de Programa de Control Prenatal en la I.P.S Servir S.A (<%=rs("nom_control")%>)">
<PARAM NAME = "XLABEL" VALUE = "Controles">
<PARAM NAME = "YLABEL" VALUE = "Valores">
<PARAM NAME = "XAXIS_LABELS" VALUE = "<%=rs("nom_control")%>">
<PARAM NAME = "SERIE_1" VALUE = "<%=rs("nom_control")%>">
<PARAM NAME = "SERIE_TYPE_1" VALUE = "BAR">
<PARAM NAME = "SERIE_STYLE_1" VALUE = "#0033ff">
<PARAM NAME = "SERIE_FONT_1" VALUE = "Arial|PLAIN|9">
<PARAM NAME = "SERIE_DATA_1" VALUE = "<%=rs("valor")%>">
<PARAM NAME = "CHART_BORDER" VALUE = "0.1|Blue|LINE">
<PARAM NAME = "CHART_FILL" VALUE = "#00ccff">
<PARAM NAME = "BIG_TICK_INTERVALX" VALUE = "1">
<PARAM NAME = "TICK_INTERVALY" VALUE = "5">
<PARAM NAME = "YSCALE_MIN" VALUE = "0">
<PARAM NAME = "YSCALE_MAX" VALUE = "170">
<PARAM NAME = "XSCALE_MIN" VALUE = "0">
<PARAM NAME = "XSCALE_MAX" VALUE = "7">
<PARAM NAME = "SERIE_BORDER_TYPE_1" VALUE = "RAISED">
</APPLET>
<br>
<br>
<%
rs.MoveNext
Wend
rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
%>
</BODY>
</HTML>
