Erro ao fazer COUNT(*)

[barucco 0]

Oi pessoal. Essa enquete era em ACCESS e eu passei para MYSQL pq meu site é feito com esse banco de dados. Resolvi todos os problemas de conexão etc, mas agora não consigo fazer com que os votos apareçam no resultado da enquete.

 

Segue o codigo da pagina resultado.asp:

<%id=request.querystring("id")If isempty(id) Then	Response.Write "Enquete não encontrada!"Else	sql = "select * from enquete_perguntas where id="&id&""	set rsquery = cnn.execute (sql)	if rsquery.EOF Then	Response.Write "Enquete não encontrada!"	Else			sql2 = "select count(*) as total from enquete_votos where idpet="&id&""		set rsquery2 = cnn.execute (sql2)		Response.Write "<table border=0 align=center cellpadding=2 cellspacing=2 style=border:2px solid #fff;><tr><td bgcolor=#F5F5F5 colspan=2><B>"&rsquery("pergunta")&"</B></td><td></td><td></td></tr>"		sql3 = "select * from enquete_respostas where idpet="&id&""		set rsquery3 = cnn.execute (sql3)		While not rsquery3.EOF			Response.Write "<td height=20 bgcolor=#F5F5F5>"&rsquery3("resposta")&" </td>"						sql4 = "select count(*) as total from enquete_votos where idres="&rsquery3("id")&""			set rsquery4 = cnn.execute (sql4)

####Aki ocorre o problema####

soma=rsquery2("total")If soma=0 Thensoma=1End Ifcont=rsquery4("total")												width = (cont * 100) / soma		Response.Write "<td height=20 bgcolor=#F5F5F5> <img width="&width&" height=10 src=""barramidle.gif"">"					Response.Write " - "&formatnumber(width,1)&"%</td></tr>"rsquery3.MoveNextWendResponse.Write "</td></tr></table>"End IfEnd If%>

Os valores das variaveis "soma" e "cont" aparecem quando eu dou um Response.write, mas não consigo efetuar a operação para chegar na porcentagem dos votos.

O que pode estar acontecendo?

[Salgado 4]

Utilize a função CInt nas variáveis que recebem valores do BD. +/- assim:

oma=rsquery2("total")

If soma="" Then
soma=1
End If
Soma = CInt(Soma)

cont=rsquery4("total")
Cont = CInt(Cont)

width = (cont * 100) / soma

Response.Write "<td height=20 bgcolor=#F5F5F5> <img width="&width&" height=10 src=""barramidle.gif"">"

Response.Write " - "&formatnumber(width,1)&"%</td></tr>"
rsquery3.MoveNext
Wend
Response.Write "</td></tr></table>"
End If
End If
%>

Testa e qualquer problema poste a mensagem de erro.