find % værdien ved udtræk af afstemning

Hej jeg har nogle problemer med at finde % værdien ved div. udtræk fra min Sql database.....

Håber i kan hjælpe..
---------------------------------------------------------
<%SQL05 ="Select * from hhb_poll where emne='Siden' order by id"
Set poll = objConn.Execute(SQL05)

do while poll.eof=false

Sql = "SELECT count(*) as Found from hhb_poll where stemmeid > 0"
Set stemme =  objConn.Execute(SQL)
stemmerialt = stemme("found")

Sql = "select * from hhb_poll where stemmeid='"& id &"'"
Set e2000 =  objConn.Execute(Sql)
Set antal = Server.CreateObject("ADODB.Recordset")
antal.open Sql, objConn, 3
stemme = antal.RecordCount

Procent = stemme/stemmerialt*100
%>

<%=poll("value")%> <img src="gfx/procent.gif" width="<%=Procent%>" height="10"><br>

<% poll.MoveNext
Loop %>

får ingen fejl bortset fra at <%=Procent%> bliver = 83.333

_Martin