Porcentual

Fala galera do F.I.

Seguinte não estou conseguindo trazer o porcentual que me response como 0%!

set rresultado=conn.execute("SELECT * FROM blabla where cod_lojataxas="&trim(request("loja"))&"")

a = 0
i = 0
b = 0
While not rresultado.eof

if rresultado("altera") = "1" then
a = a + 1
end if
if rresultado("altera") = "2" then
b = b + 1
end if

i = i + 0

rresultado.MoveNext
Wend

Response.Write("O total de registros com o número 1 é de: " & a & "<br>")
per_1 = (i/100) * a
Response.Write("O PERCENTUAL de registros com o número 1 é de: " & per_1 & "%<br>")
per_0 = (i/100) * b

Response.Write("O total de registros com o número 0 é de: " & b & "<br>")
Response.Write("O PERCENTUAL de registros com o número 0 é de: " & per_0 & "%<br>")%>