procent udregning

Hvad er fejlen på denne side

http://www.akhorses.dk/Mark/stem.asp

Jeg vil give tabellens bredde udfra procenterne der er udregnet.

Koden ser sådan ud
<table border="0" width="100%" id="table1">
<%
Set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
sql1 = "SELECT SUM(antal) As SumKolonne1 FROM afstemning"
Set rs1 = Conn.Execute(sql1)
sql = "select distinct * from afstemning order by afstemid asc"
Set rs = Conn.Execute(sql)
%>
    <tr>
        <td>
        <%do while not rs.EOF%>
        <%
        Procent = (rs("antal") / rs1("SumKolonne1")) * 10
        Procent = Replace(procent, ",", ".")
        %>   
        <table border="0" width="<%=procent%>%" height="51" id="table2" height="51" bgcolor="#008000">
            <tr>
                <td align="center"><%=procent%></td>
            </tr>
        </table>
        <%
        rs.movenext
        loop
        %>
        </td>
    </tr>
</table>