Inga Frågor hittade... |
Inga Frågor hittade... |
<% =RSPollQ("Quest") %> ( Totalt <% =RSPollQ("CountVote") %> <% If RSPollQ("CountVote") = 1 Then %>Röst<% Else %>Röster<% End If %> ) <% strQID = RSPollQ("ID") Set RSPollA = Server.CreateObject("ADODB.Recordset") PollA = "SELECT * FROM tblPollAlt WHERE QID = " & strQID & " AND Deleted = False ORDER BY ID" RSPollA.Open PollA, Connect, adOpenStatic, adLockOptimistic x = 1 Do Until RSPollA.EOF %> <% strProcent = RSPollA("CountVote") / RSPollQ("CountVote") * 100 strProcent = Round(strProcent, 2) %> <% =x %>: <% =RSPollA("Alt") %> ( <% =RSPollA("CountVote") %> <% If RSPollA("CountVote") = 1 Then %>Röst<% Else %>Röster<% End If %> / <% =strProcent %>% ) <% RSPollA.MoveNext strProcent = 0 x = x + 1 Loop RSPollA.Close strQID = 0 %> |