<%@ Language=VBScript%> <%Response.Buffer = True%> <% 'Local Variables to be used in the page.. Dim ComID, bInit, bExecuted, fExecuted, pExecuted 'Initialize the Page for each server request adLockOptimistic = 3 InitializePage() %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function InitializePage() bInit = CBool(Request.Querystring ("init")) If Request.Form("selComm") = "0" AND Not bInit Then 'Response.Clear Response.Redirect "error.asp?mess=You must select a committe to view voting results." Response.End End If If bInit <> Cint(False) then ComId = Cint(0) else ComID = Cint(Request.Form("selComm")) End IF End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <% Set rsComm = Server.CreateObject("ADODB.Recordset") GetCommsApprove rsCOMM %> <% Title = "Approve Results" %>

<%If Not rsComm.EOF Then %> <% Else %>       <%If bInit <> False then%> - Select a Committee - <%End If%> <%While Not rsComm.EOF%> <%If Clng(rsComm.Fields("COMID").Value) = Clng(ComId) then%> "><%=Left(rsComm.Fields("COMNAME").Value, 40)%> <%Else%> "><%=Left(rsComm.Fields("COMNAME").Value, 50)%> <%End If%> <% rsComm.MoveNext Wend%>          There are now committees ready to display voting results.     Committee Name Election Type Vacancies <%=CName%> <%=kind%> <%=SetVacancies%>   Name Division Votes Percent ELECTED POSITION(S) <%=objVote.fields("F_NAME").value + " " + objVote.fields("L_NAME").value%> <%=objVote.fields("DIVISION").value%> <%=objVote.fields("VOTES").value%> <%=Cint(Percent)%> ---- NONE ----   RUNOFF POSITIONS <%=objVote.fields("F_NAME").value + " " + objVote.fields("L_NAME").value%> <%=objVote.fields("DIVISION").value%> <%=objVote.fields("VOTES").value %> <%=Cint(Percent)%>   OTHER CANDIDATES <%=objVote.fields("F_NAME").value + " " + objVote.fields("L_NAME").value%> <%=objVote.fields("DIVISION").value%> <%=objVote.fields("VOTES").value %> <%=Cint(Percent)%>