-Te conectas a tu base
***despues llamas al recordset
<%
strsql ="SELECT valor_a_graficar FROM tu_tabla "
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSQL, oConn,3,1
%>
***lo muestras
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr><td>
<%
Dim ancho
ancho = Rs("tu_valor")
Response.Write ("<img src=azul.gif width=" & ancho & " height=20>")
%>
</td></tr>
<tr><td>
<%
ancho = Rs("otro_valor")
Response.Write ("<img src=rojo.gif width=" & ancho & " height=20>")
%>
</td></tr>
<tr><td>
<%
ancho = Rs("otro")
Response.Write ("<img src=verde.gif width=" & ancho & " height=20>")
%> </td></tr>
</table>
***cierras
<%
RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>