<% Dim showpollid,arrpoll, printable Dim pollEditAllowed, pollCreator, lastVoteDate, allowMultiple Dim choiceID, choice, counts, resultPage, iChoice %> <% if not messageNotAvailable and rights <> 0 and isPoll=1 then %> <% if isArray(showPoll(showpollid)) then%> <% if printable then titlefontcolor="000000" tabletitle = "ffffff" end if %>

<%= ttPollTopic %>

align="center"> <% if ubound(arrPoll,1) = 2 then 'Show Poll Voting Interface %> " method="post"> <% elseif ubound(arrPoll,1) = 4 then 'Show Poll Result%> <% for iChoice = 0 to ubound(arrPoll,2) %> <% counts = counts + arrPoll(2,iChoice) %> <% next %> <% end if %> <%= arrPoll(0,0) %> <% for iChoice = 0 to ubound(arrPoll,2) %> <% next %>   <%= HTMLEncode(""&arrPoll(2,iChoice)) %> <% if isSearchEngine>0 then %> <%= tmPollShowDesc %> <% Else %> <%= tmPollShowDesc %> <% End If %> <% if pollEditAllowed then %> [<%= tmPollEditDesc %>] <% end if %> <% if mode or isAdmin then %> [<%= tmStripPollDesc %>] <% end if %> <%= arrPoll(0,0) %> <%= HTMLEncode(""&arrPoll(1,iChoice)) %> " border="0" height="12"> <% if mode or isAdmin then %>" onclick="return powin(this.href+'?pollID=<%= showpollid %>&choiceID=<%= arrPoll(4,iChoice) %>&appid=<%= appid %>')" title="<%= tmVoterViewDesc %>"><% end if %>" border="0" width="<%= arrPoll(3,iChoice)*2 %>" height="12"><% if mode or isAdmin then %><% end if %> " border="0" height="12">   <%= arrPoll(3,iChoice) %>% (<%= arrPoll(2,iChoice) %>) <%=pgdPollTotalVotes & counts %> <% if not printable then %> <% if pollEditAllowed then %> [<%= tmPollEditDesc %>] <% end if %> <% if mode or isAdmin then %> [<%= tmStripPollDesc %>] <% end if %> <% end if %> colspan=2> (<%= tmPollLastVote &" : "& SQLDate(lastVoteDate, Application(dbName&"timeoffset"), true) %>)

<% end if %> <% End If %>