<% Set rs_PergEnquete_cmd = Server.CreateObject ("ADODB.Command") rs_PergEnquete_cmd.ActiveConnection = MM_Loja_STRING rs_PergEnquete_cmd.CommandText = "Select * from pergenquete order by pergenqueteid desc limit 15" rs_PergEnquete_cmd.Prepared = true Set rs_PergEnquete = rs_PergEnquete_cmd.Execute %>

Enquetes

<% While not rs_PergEnquete.eof Set rs_RespEnquete_cmd = Server.CreateObject("ADODB.Command") rs_RespEnquete_cmd.ActiveConnection = MM_Loja_STRING rs_RespEnquete_cmd.CommandText = "SELECT * FROM respenquete WHERE pergenqueteid = " & rs_PergEnquete("pergenqueteid") & " ORDER BY RespEnqueteID DESC" rs_RespEnquete_cmd.Prepared = true Set rs_RespEnquete = rs_RespEnquete_cmd.Execute total = 0 While not rs_RespEnquete.eof total = total + rs_RespEnquete("RespEnqueteVotos") rs_RespEnquete.MoveNext() Wend rs_RespEnquete.Requery() %>

<%=rs_PergEnquete("pergEnquetePergunta")%>

    <% While not rs_RespEnquete.eof If total > 0 Then result = (rs_RespEnquete("RespEnqueteVotos") * 100) / total Else result = 0 End If %>
  • <%=rs_RespEnquete("RespEnqueteResp")%> <%=FormatNumber(result, 1)%>%
    • <% rs_RespEnquete.MoveNext() Wend %>
<% rs_PergEnquete.MoveNext() Wend %>