<% Dim pollID:pollID = request.queryString("pollID") Dim choiceID:choiceID = request.queryString("choiceID") Dim appid:appid = request.queryString("appid") Dim allforum:allforum = Application(dbName&"foruminfo") Dim pollQuestion, pollChoice,mode if len(pollID) = 0 or len(appid) = 0 then response.redirect("redirect.asp") Dim objPermission Set objPermission = new PermissionSetting With objPermission .memID = memID .appid = appid mode = .moderator() End With Set objPermission = nothing If mode or isAdmin then Dim objRS, arrVoters, iVoters set objRS = server.createobject("adodb.recordset") With objRS .open dbOwnerPrefix&"spPollVoters ("&pollID&","&choiceID&")", datastore, , , adCmdStoredProc pollQuestion = .fields(0) pollChoice = .fields(1) SET objRS = .nextrecordset if not (objRS.eof and objRS.bof) then arrVoters = objRS.getrows objRS.close End With set objRS = nothing %> <%= Application(dbName&"forumtitle") %> <%= OutputCSS() %> >
<% if isArray(arrVoters) then %> <% for iVoters = 0 to ubound(arrVoters,2) %> <% next %> <% end if %>
<%= tmVoterViewDesc %>
colspan="3"> <%= pollQuestion %>
colspan="3">      >> <%= pollChoice %>
class="subhead"> <%= arrVoters(1,iVoters) %> class="subhead"><%= arrVoters(0,iVoters) %> class="c2"><%= arrVoters(2,iVoters) %>
<%= javascriptCloseWindow %>
<% End If %>