[Resolvido] Enquete

[pcclaro 0]

Pessoal , alguém poderia me ajudar a fazer com que o código abaixo exiba os resultados da enquete em % pq ele exibe em pontos , ex : SIM : 40 Votos, e gostaria que exibisse assim : SIM : 5 %,

 

ASP

<%

Set Textobj = Server.CreateObject("Scripting.FileSystemObject")

Set Leenq = Textobj.OpenTextFile(Server.MapPath("" & id & ".txt"),1)

linha = split(Leenq.readline , "|")

 

Leenq.close

Set Leenq = nothing

opcoes = int(ubound(linha)/2)

 

if cont = "1" then

  sel = int(request.querystring("op"))

                linha(opcoes+sel+1)=(int(linha(opcoes+sel+1)))+1

                Set Gravaenq = Textobj.CreateTextFile(Server.MapPath("" & id & ".txt"),8)

  for g = 0 to ubound(linha)

                                Gravaenq.write linha(g)

                                if g <> ubound(linha) then Gravaenq.write "|"

                next

                msg = "Muito Obrigado"

               

                Gravaenq.close

  Set Gravaenq = nothing

end if

 

%>

<font face="verdana" size="2"><b>ENQUETE</b></font><br><br>

<font face="verdana" size="1"><b><%=linha(0)%></b><br><br>

Resultados Parciais<br><br>

 

<%

for a=1 to opcoes

                %>

                <b><%=linha(a)%>: </b><%=linha(opcoes+a) %> votos<br>

                <%

next

 

 

Set Textobj = nothing

%>

<br></font>

<p align=center><font face="verdana" size="1">

<%=msg%>

 

%>

[Maux 0]

vamos ver..

tente assim:

 

ASP

<%

Set Textobj = Server.CreateObject("Scripting.FileSystemObject")

Set Leenq = Textobj.OpenTextFile(Server.MapPath("" & id & ".txt"),1)

linha = split(Leenq.readline , "|")

 

Leenq.close

Set Leenq = nothing

opcoes = int(ubound(linha)/2)

 

if cont = "1" then

  sel = int(request.querystring("op"))

                                linha(opcoes+sel+1)=(int(linha(opcoes+sel+1)))+1

                                Set Gravaenq = Textobj.CreateTextFile(Server.MapPath("" & id & ".txt"),8)

  for g = 0 to ubound(linha)

                                                                Gravaenq.write linha(g)

                                                                if g <> ubound(linha) then Gravaenq.write "|"

                                next

                                msg = "Muito Obrigado"

                               

                                Gravaenq.close

  Set Gravaenq = nothing

end if

 

%>

<font face="verdana" size="2"><b>ENQUETE</b></font><br><br>

<font face="verdana" size="1"><b><%=linha(0)%></b><br><br>

Resultados Parciais<br><br>

 

<%

for a = 1 to opcoes

opctotal = cint(linha(opcoes + a)) + opctotal

next

for a=1 to opcoes

vl = cint(linha(opcoes+a)) * 100 / opctotal

                                %>

                                <b><%=linha(a)%>: </b><%=linha(opcoes+a) %> votos - <%=vl%> %<br>

                                <%

next

 

 

Set Textobj = nothing

%>

<br></font>

<p align=center><font face="verdana" size="1">

<%=msg%>

 

%>

 

a regra de 3 é simples, pense na matematica antiga:

valorTotal - 100%

valorAtual - x%

 

multplica-se em cruz...

=D

pronto achou a porcentagem do valor atual

 

;)

[pcclaro 0]

Perfeito Maux, muito obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif