yo deseo sacar unas estadisticas de controles que se le hacen a unos pacientes y pues deseo que salga un eje X y uno Y, en el eje x pues que salgan los nombres de los controles por decir presion alta, presion baja y en el eje y valores numericos que corresponden a cada control, por decir el control prersion alta es 150 entonces en el eje y va a ir como una especie de una escala y la barrita de presion alta va a llegar hasta 150 asi sucesivamente con los demas valores, tengo el sgte codigo, pero las barras me salen desordenadas y no me sale el eje x ni el y, como hago para arreglar esto, por fa ayudenme estoy vuelto nada y necesito realizar esto lo mas rapido posible, les agradeceria inmensamente.
<%Language=VBScript%>
<%
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
Dim oConn,SQL,rs
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_prenatal where codigo='0100' group by nom_control,valor order by nom_control desc"
set rs=oConn.Execute(SQL)
%>
<%
' Acá definís el alto máximo, en pixeles, que va a tener el gráfico:
AltoMAX_Graf = 200 'en px
' Acá pongo proporcionalmente los valores devueltos al alto máximo definido anteriormente:
AltoBarraLun = rs("valor")
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
</head>
<body>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="50%" id="AutoNumber1" height="350">
<tr>
<td width="7%" height="222" valign="bottom"> </td>
<td width="16%" height="222" valign="bottom">
<font size="1" color="#D22B00" face="Arial">
<%
While (not rs.Eof)
AltoBarraLun = rs("valor")
%> <img src="azul.gif" width="25" height="<% = AltoBarraLun %>" border="0"></font></td><%=rs("valor")%><%=rs("nom_control")%>
</tr>
</table>
<%
rs.MoveNext
Wend
rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
%>
</center>
</div>
</body>
</html>