Owen, te paso el código de la página "prueba.asp" ya modificado (te marco en negritas los agregados y las modificaciones):
Código:
<%Language=VBScript%>
<%
Response.AddHeader "Pragma", "no-cache"
Response.Expires = 0
%>
<%
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/modulos.mdb") & "; Password=bonilla "
SQL="SELECT * FROM " & _
"produccion where id=1"
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
' Meto todos los valores en un array para detectar posteriormente el valor máximo:
Dim arrValores(5)
arrValores(0) = rs("ProM2Lun")
arrValores(1) = rs("ProM2Mar")
arrValores(2) = rs("ProM2Mie")
arrValores(3) = rs("ProM2Jue")
arrValores(4) = rs("ProM2Vie")
arrValores(5) = rs("ProM2Sab")
' Acá detecto el valor máximo:
For Idaz = 0 To Ubound(arrValores)
If arrValores(Idaz) > valorMax Then valorMax = arrValores(Idaz)
Next
' Acá pongo proporcionalmente los valores devueltos al alto máximo definido anteriormente:
AltoBarraLun = Int((arrValores(0)/valorMax)* AltoMAX_Graf)
AltoBarraMar = Int((arrValores(1)/valorMax)* AltoMAX_Graf)
AltoBarraMie = Int((arrValores(2)/valorMax)* AltoMAX_Graf)
AltoBarraJue = Int((arrValores(3)/valorMax)* AltoMAX_Graf)
AltoBarraVie = Int((arrValores(4)/valorMax)* AltoMAX_Graf)
AltoBarraSab = Int((arrValores(5)/valorMax)* AltoMAX_Graf)
%>
<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">
<img src="Barras/azul.gif" width="25" height="<% = AltoBarraLun %>" border="0"><%=rs("ProM2Lun")%></font></td>
<td width="15%" height="222" valign="bottom">
<font size="1" color="#D22B00" face="Arial">
<img src="Barras/gris.gif" width="25" height="<% = AltoBarraMar %>" border="0"><%=rs("ProM2Mar")%></font></td>
<td width="16%" height="222" valign="bottom">
<font size="1" color="#D22B00" face="Arial">
<img src="Barras/guinda.gif" width="25" height="<% = AltoBarraMie %>" border="0"><%=rs("ProM2Mie")%></font></td>
<td width="14%" height="222" valign="bottom">
<font size="1" color="#D22B00" face="Arial">
<img src="Barras/naranja.gif" width="25" height="<% = AltoBarraJue %>" border="0"><%=rs("ProM2Jue")%></font></td>
<td width="16%" height="222" valign="bottom">
<font size="1" color="#D22B00" face="Arial">
<img src="Barras/rojo.gif" width="25" height="<% = AltoBarraVie %>" border="0"><%=rs("ProM2Vie")%></font></td>
<td width="14%" height="222" valign="bottom">
<font size="1" color="#D22B00" face="Arial">
<img src="Barras/verde.gif" width="25" height="<% = AltoBarraSab %>" border="0"><%=rs("ProM2Sab")%></font></td>
</tr>
<tr>
<td width="100%"> </td>
</tr>
</table>
</center>
</div>
</body>
</html>
Para cambiar el tamaño del gráfico, modificás el valor de la variable AltoMAX_Graf
Saludos