<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
 All Forums
 Admin Section
 Poll Configuration
<% nDays = Request.Cookies(strCookieURL & "PollDays") if Request.form("cookie") = 1 then if strSetCookieToForum = "1" then Response.Cookies(strCookieURL & "PollDays").Path = strCookieURL end if Response.Cookies(strCookieURL & "PollDays") = Request.Form("PollDays") Response.Cookies(strCookieURL & "PollDays").expires = strForumTimeAdjust + 365 nDays = Request.Form("PollDays") end if if nDays = "" then nDays = 30 end if defDate = DateToStr(dateadd("d", -(nDays), StrToDate(strForumTimeAdjust))) If Request.Form("Save_Active") = "yes" Then strSql = "UPDATE " & strTablePrefix & "CONFIG " if trim(Request.Form("ACTIVE")) <> "" then strSql = strSql & " SET C_ACTIVEPOLL = '" & Request.Form("ACTIVE") & "'" else strSql = strSql & " SET C_ACTIVEPOLL = '" & Request.Form("ACTIVE2") & "'" end if my_Conn.Execute (strSql) Application(strCookieURL & "ConfigLoaded") = "" %>

New Active Poll Posted!

Congratulations!

Back To Admin Home

<% elseif Request.Form("Method_Type") = "Write_Configuration" then '## Forum_SQL strSql = "UPDATE " & strTablePrefix & "CONFIG " strSql = strSql & "SET C_ADMINPOLLS = " & Request.Form("strAdminPolls") & "" strSql = strSql & ", C_USERPOLLS = " & Request.Form("strUserPolls") & "" my_Conn.Execute (strSql) Application(strCookieURL & "ConfigLoaded") = "" %>

Configuration Posted!

Congratulations!

Back To Admin Home

<% else %>
Poll Configuration
Show Featured Poll:  On: "0" then Response.Write(" checked") %>> Off: >
Allow Member Polls:  On: "0" then Response.Write(" checked") %>> Off: >
Set Active Poll
" method="post" name="PollFilter"> Show Polls
<% '## Forum_SQL - Find all records with the search criteria in them strSql = "SELECT " & strTablePrefix & "FORUM.FORUM_ID, " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.CAT_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_MAIL, " & strTablePrefix & "TOPICS.T_STATUS, " & strTablePrefix & "TOPICS.T_LAST_POST, " & strTablePrefix & "TOPICS.T_REPLIES, " & strMemberTablePrefix & "MEMBERS.MEMBER_ID, " & strMemberTablePrefix & "MEMBERS.M_NAME, " strSql = strSql & strTablePrefix & "TOPICS.answer1, " & strTablePrefix & "TOPICS.count1, " & strTablePrefix & "TOPICS.answer2, " & strTablePrefix & "TOPICS.count2, " & strTablePrefix & "TOPICS.answer3, " & strTablePrefix & "TOPICS.count3, " & strTablePrefix & "TOPICS.answer4, " & strTablePrefix & "TOPICS.count4, " & strTablePrefix & "TOPICS.answer5, " & strTablePrefix & "TOPICS.count5, " & strTablePrefix & "TOPICS.answer6, " & strTablePrefix & "TOPICS.count6, " & strTablePrefix & "TOPICS.answer7, " & strTablePrefix & "TOPICS.count7, " & strTablePrefix & "TOPICS.answer8, " & strTablePrefix & "TOPICS.count8 " strSql = strSql & "FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "FORUM, " strSql = strSql & strTablePrefix & "TOPICS, " & strMemberTablePrefix & "MEMBERS AS " & strMemberTablePrefix & "MEMBERS_1 " strSql = strSql & "WHERE " & strTablePrefix & "TOPICS.T_LAST_POST_AUTHOR = " & strMemberTablePrefix & "MEMBERS_1.MEMBER_ID " strSql = strSql & "AND " & strTablePrefix & "FORUM.FORUM_ID = " & strTablePrefix & "TOPICS.FORUM_ID " strSql = strSql & "AND " & strTablePrefix & "FORUM.CAT_ID = " & strTablePrefix & "TOPICS.CAT_ID " strSql = strSql & "AND " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR " strSql = strSql & "AND " & strTablePrefix & "TOPICS.answer1 <> '' " if nDays > 0 then strSql = strSql & " AND (T_LAST_POST > '" & defDate & "')" end if strSql = strSql & " ORDER BY " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.T_LAST_POST DESC" set rs = my_Conn.Execute(strSql) Dim vAnswers(8) Dim vCount(8) Dim nCount Dim nTotal %>
<% if rs.EOF or rs.BOF then '## No new topic posts found in DB %> <% else showbut = 1 currForum = 0 fDisplayCount = 0 do until rs.EOF if ChkForumAccess(rs("FORUM_ID")) then fDisplayCount = fDisplayCount + 1 if currForum <> rs("FORUM_ID") then %> <% end if For nCount = 1 To 8 vAnswers(nCount) = rs("answer" & CStr(nCount)) vCount(nCount) = rs("count" & CStr(nCount)) Next nTotal = 0 'Go through all and get total For nCount = 1 To 8 If trim(vAnswers(nCount)) <> "" Then nTotal = nTotal + vCount(nCount) End If Next %> <% end if currForum = rs("FORUM_ID") rs.MoveNext loop end if %>
  Poll Name Posted By Total Votes Last Vote  
No Polls Found
 <% =ChkString(rs("F_SUBJECT"),"display") %>
" name="ACTIVE"<% if rs("TOPIC_ID") = strActivePoll then %> checked<% end if %>> &FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Topic_Title=<% =ChkString(left(rs("T_SUBJECT"), 50),"urlpath") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath") %>"><% =ChkString(left(rs("T_SUBJECT"), 50),"display") %>  <% =ChkString(rs("M_NAME"),"display") %> <% =rs("T_REPLIES") %> <% =ChkDate(rs("T_LAST_POST")) %> <% =ChkTime(rs("T_LAST_POST")) %> &FORUM_ID=<% =rs("FORUM_ID") %>')">Delete Poll
<% if showbut = 1 then %>
<% end if %>
<% on error resume next %> <% set rs = nothing %>
<% End If %> <% Else %> <% Response.Redirect "admin_login.asp" %> <% End IF %>