olhe este exemplo de enquete (mostra gráfico através de gifs) ... acho que pode ajudar ...
<
%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Conexao_bd.asp" -->
<%
on error resume next
Dim SQL, rst, Alternativa, Enquete, rst1, SQL1, TotalVotos
Alternativa = Request("Alternativa")
Enquete = request("Enquete")
vgdb.execute "Update Enquetes_alternativas Set Votos = Votos + 1 Where Enquetes_alternativas.[Codigo da alternativa] = " & Alternativa
SQL = "SELECT Enquetes.[Codigo da enquete], Enquetes.Pergunta, Enquetes_alternativas.[Codigo da alternativa], Enquetes_alternativas.Alternativa, Enquetes_alternativas.Votos FROM Enquetes INNER JOIN Enquetes_alternativas ON Enquetes.[Codigo da enquete] = Enquetes_alternativas.[Codigo da enquete] WHERE (((Enquetes.[Codigo da enquete])=" & Enquete & ")) ORDER BY Enquetes_alternativas.[Codigo da alternativa];"
Set rst = server.createobject("adodb.recordset")
rst.open SQL, vgdb, 1, 1
if rst.eof then
rst.close
set rst = nothing
Response.Write(Default.asp)
end if
'total votos
SQL1 = "SELECT Sum(Enquetes_alternativas.Votos) AS SomaDeVotos FROM Enquetes_alternativas WHERE (((Enquetes_alternativas.[Codigo da enquete])=" & Enquete & "));"
Set rst1 = server.createobject("adodb.recordset")
rst1.open SQL1, vgdb, 1, 1
if rst1.eof then
TotalVotos = 0
else
TotalVotos = rst1("SomaDeVotos")
end if
%>
<html>
<style type="text/css">
<!--
BODY {
SCROLLBAR-FACE-COLOR: #2769AB;
SCROLLBAR-HIGHLIGHT-COLOR: #0099FF;
SCROLLBAR-SHADOW-COLOR: #0099FF;
SCROLLBAR-3DLIGHT-COLOR: #0099FF;
SCROLLBAR-ARROW-COLOR: #0099FF;
SCROLLBAR-TRACK-COLOR: #ffffff;
SCROLLBAR-DARKSHADOW-COLOR: #ffffff;
}
-->
</style>
<head>
<link rel="stylesheet" href="./Estilos.css" type="text/css">
<title>Resultado da Enquete - Locadora de Filmes</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body leftmargin="2" topmargin="2" marginwidth="22">
<table width="604" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="BordaBaixa"><font class="TextoPadraoAzulEscuro"><strong>Resultado Parcial da Enquete</strong></font></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0">
<caption><font class="TextoPadraoPreto">
<% = rst("Pergunta") %></font>
</caption>
<tr>
<td><img src="Figuras/gra_base.gif" width="11" height="25"><img src="Figuras/gra_centro.gif" width="<% = rst("Votos") %>" height="25"><img src="Figuras/gra_topo.gif"><font class="TextoPadraoPreto">
<% = rst("Alternativa") %>
-
<% = (int(((rst("Votos") * 100) / TotalVotos) * 10) / 10) %>
%</font></td>
</tr>
<tr>
<%
rst.movenext
%>
<td><img src="Figuras/gra_base.gif" width="11" height="25"><img src="Figuras/gra_centro.gif" width="<% = rst("Votos") %>" height="25"><img src="Figuras/gra_topo.gif"><font class="TextoPadraoPreto">
<% = rst("Alternativa") %>
-
<% = (int(((rst("Votos") * 100) / TotalVotos) * 10) / 10) %>
%</font></td>
</tr>
<tr>
<%
rst.movenext
%>
<td><img src="Figuras/gra_base.gif" width="11" height="25"><img src="Figuras/gra_centro.gif" width="<% = rst("Votos") %>" height="25"><img src="Figuras/gra_topo.gif"><font class="TextoPadraoPreto">
<% = rst("Alternativa") %>
-
<% = (int(((rst("Votos") * 100) / TotalVotos) * 10) / 10) %>
%</font></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td align="right" class="BordaAlta"><a href="javascript:history.back()" class="LinkPadraoLista">Voltar</a></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
<%
rst.close
set rst = nothing
rst1.close
set rst1 = nothing
%>
