如何应用CDbl()函数实现年度新闻人物评选

<!-- #include file="Conn/conn.asp" -->
<% sql="select sum(Numbers) as sum from tb_Vote"
rs.open sql,conn
If not rs.eof then
sum=rs("sum")
end If
set rs=nothing
conn.close
set conn=nothing
%>
<table height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="50">支持率：</td>
<% i=round(100*cdbl(rs("Numbers"))/cdbl(sum),2)%>
<td width="252" valign=middle><img src=http://www.shancun.net/skin/default/image/nopic.gif width="<%=i%>%" height="15" alt="">&nbsp;</td>
<td width="48" valign=middle>&nbsp;<%=i%>%</td>
<td width="67"><div align="center"><%=rs("Numbers")%>票</div></td>
</tr>
</table>