<% '################################################################################# '## Snitz Forums 2000 v3.4.06 '################################################################################# '## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or (at your option) any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% if Session(strCookieURL & "Approval") <> "15916941253" then scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname)) end if Response.Write " " & vbNewLine mypage = trim(chkString(request("whichpage"),"SQLString")) if ((mypage = "") or (IsNumeric(mypage) = FALSE)) then mypage = 1 mypage = cLng(mypage) '## Forum_SQL - Find all records with the search criteria in them strSql = "SELECT M_NAME, M_EMAIL, M_POSTS " strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS " strSql3 = " WHERE M_STATUS = " & 1 strSql4 = " ORDER BY MEMBER_ID ASC " if strDBType = "mysql" then 'MySql specific code if mypage > 1 then OffSet = cLng((mypage - 1) * strPageSize) strSql5 = " LIMIT " & OffSet & ", " & strPageSize & " " end if '## Forum_SQL - Get the total pagecount strSql1 = "SELECT COUNT(MEMBER_ID) AS PAGECOUNT " set rsCount = my_Conn.Execute(strSql1 & strSql2 & strSql3) iPageTotal = rsCount(0).value rsCount.close set rsCount = nothing if iPageTotal > 0 then maxpages = (iPageTotal \ strPageSize ) if iPageTotal mod strPageSize <> 0 then maxpages = maxpages + 1 end if if iPageTotal < (strPageSize + 1) then intGetRows = iPageTotal elseif (mypage * strPageSize) > iPageTotal then intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal) else intGetRows = strPageSize end if else iPageTotal = 0 maxpages = 0 end if if iPageTotal > 0 then set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql & strSql2 & strSql3 & strSql4 & strSql5, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText arrMemberData = rs.GetRows(intGetRows) iMemberCount = UBound(arrMemberData, 2) rs.close set rs = nothing else iTopicCount = "" end if else 'end MySql specific code set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize = strPageSize rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenStatic If not (rs.EOF or rs.BOF) then rs.movefirst rs.pagesize = strPageSize rs.absolutepage = mypage '** maxpages = cLng(rs.pagecount) arrMemberData = rs.GetRows(strPageSize) iMemberCount = UBound(arrMemberData, 2) else iMemberCount = "" end if rs.Close set rs = nothing end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if maxpages > 1 then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine & _ "

" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Admin Section
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " User E-mail List

NOTE: The following table will show you a list of all users of this forum, and their e-mail addresses.

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Call DropDownPaging(1) Response.Write " " & vbNewLine & _ "

" & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if iMemberCount = "" then '## No Members Found in DB Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine else mM_NAME = 0 mM_EMAIL = 1 mM_POSTS = 2 rec = 1 intI = 0 for iMember = 0 to iMemberCount if (rec = strPageSize + 1) then exit for Members_MemberName = arrMemberData(mM_NAME, iMember) Members_MemberEMail = arrMemberData(mM_EMAIL, iMember) Members_MemberPosts = arrMemberData(mM_POSTS, iMember) Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine rec = rec + 1 intI = intI + 1 if intI = 2 then intI = 0 end if next end if Response.Write "

User Name	E-mail Address	Posts
No Members Found
" & Members_MemberName & "	" & Members_MemberEMail & "	" & Members_MemberPosts & "

" & vbNewLine & _ "

" & vbNewLine if maxpages > 1 then Response.Write " " & vbNewLine & _ " " & vbNewLine Call DropDownPaging(2) Response.Write " " & vbNewLine & _ "

" & vbNewLine else Response.Write "
" & vbNewLine end if WriteFooter Response.End sub DropDownPaging(fnum) if maxpages > 1 then if mypage = "" then pge = 1 else pge = mypage end if scriptname = request.servervariables("script_name") Response.write " " & vbNewLine) end if end sub %>