<% '################################################################################# '## Snitz Forums 2000 v3.4.05 '################################################################################# '## Copyright (C) 2000-05 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 strDBNTUserName = "" then Err_Msg = "
  • You must be logged in to view the Members List
  • " Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
    " & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Information
    " & vbNewLine & _ "

    There Was A Problem!

    " & vbNewLine & _ "

    You must be logged in to view this page

    " & vbNewLine & _ "

    Back to Forum

    " & vbNewLine & _ "
    " & vbNewLine WriteFooter Response.End end if Response.Write " " & vbNewLine if trim(chkString(Request("method"),"SQLString")) <> "" then SortMethod = trim(chkString(Request("method"),"SQLString")) strSortMethod = "&method=" & SortMethod strSortMethod2 = "?method=" & SortMethod end if if trim(chkString(Request("mode"),"SQLString")) <> "" then strMode = trim(chkString(Request("mode"),"SQLString")) if strMode <> "search" then strMode = "" end if SearchName = trim(chkString(Request("M_NAME"),"SQLString")) if SearchName = "" then SearchName = trim(chkString(Request.Form("M_NAME"),"SQLString")) end if if Request("UserName") <> "" then if IsNumeric(Request("UserName")) = True then srchUName = cLng(Request("UserName")) else srchUName = "1" end if if Request("FirstName") <> "" then if IsNumeric(Request("FirstName")) = True then srchFName = cLng(Request("FirstName")) else srchFName = "0" end if if Request("LastName") <> "" then if IsNumeric(Request("LastName")) = True then srchLName = cLng(Request("LastName")) else srchLName = "0" end if if Request("INITIAL") <> "" then if IsNumeric(Request("INITIAL")) = True then srchInitial = cLng(Request("INITIAL")) else srchInitial = "0" end if mypage = trim(chkString(request("whichpage"),"SQLString")) if ((mypage = "") or (IsNumeric(mypage) = FALSE)) then mypage = 1 mypage = cLng(mypage) 'New Search Code If strMode = "search" and (srchUName = "1" or srchFName = "1" or srchLName = "1" or srchInitial = "1" ) then strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, " strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE " strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS " ' if Request.querystring("link") <> "sort" then whereSql = " WHERE (" tmpSql = "" if srchUName = "1" then tmpSql = tmpSql & "M_NAME LIKE '%" & SearchName & "%' OR " tmpSql = tmpSql & "M_USERNAME LIKE '%" & SearchName & "%'" end if if srchFName = "1" then if srchUName = "1" then tmpSql = tmpSql & " OR " end if tmpSql = tmpSql & "M_FIRSTNAME LIKE '%" & SearchName & "%'" end if if srchLName = "1" then if srchFName = "1" or srchUName = "1" then tmpSql = tmpSql & " OR " end if tmpSql = tmpSql & "M_LASTNAME LIKE '%" & SearchName & "%' " end if if srchInitial = "1" then tmpSQL = "M_NAME LIKE '" & SearchName & "%'" end if whereSql = whereSql & tmpSql &")" Session(strCookieURL & "where_Sql") = whereSql ' end if if Session(strCookieURL & "where_Sql") <> "" then whereSql = Session(strCookieURL & "where_Sql") else whereSql = "" end if strSQL3 = whereSql else '## Forum_SQL - Get all members strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_COUNTRY, M_HOMEPAGE, " strSql = strSql & "M_AIM, M_ICQ, M_MSN, M_YAHOO, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE " strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS " if mlev = 4 then strSql3 = " WHERE M_NAME <> 'n/a' " else strSql3 = " WHERE M_STATUS = " & 1 end if end if select case SortMethod case "nameasc" strSql4 = " ORDER BY M_NAME ASC" case "namedesc" strSql4 = " ORDER BY M_NAME DESC" case "levelasc" strSql4 = " ORDER BY M_TITLE ASC, M_NAME ASC" case "leveldesc" strSql4 = " ORDER BY M_TITLE DESC, M_NAME ASC" case "lastpostdateasc" strSql4 = " ORDER BY M_LASTPOSTDATE ASC, M_NAME ASC" case "lastpostdatedesc" strSql4 = " ORDER BY M_LASTPOSTDATE DESC, M_NAME ASC" case "lastheredateasc" strSql4 = " ORDER BY M_LASTHEREDATE ASC, M_NAME ASC" case "lastheredatedesc" strSql4 = " ORDER BY M_LASTHEREDATE DESC, M_NAME ASC" case "dateasc" strSql4 = " ORDER BY M_DATE ASC, M_NAME ASC" case "datedesc" strSql4 = " ORDER BY M_DATE DESC, M_NAME ASC" case "countryasc" strSql4 = " ORDER BY M_COUNTRY ASC, M_NAME ASC" case "countrydesc" strSql4 = " ORDER BY M_COUNTRY DESC, M_NAME ASC" case "postsasc" strSql4 = " ORDER BY M_POSTS ASC, M_NAME ASC" case else strSql4 = " ORDER BY M_POSTS DESC, M_NAME ASC" end select 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 iMemberCount = "" 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 & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
    " & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Information
    " & vbNewLine if maxpages > 1 then Response.Write " " & vbNewLine & _ " " & vbNewLine Call Paging2(1) Response.Write " " & vbNewLine & _ "
    " & vbNewLine else Response.Write "  " & vbNewLine end if Response.Write "
    " & vbNewLine Response.Write " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ " " & vbNewLine end if next Response.Write " " & vbNewLine & _ "
    Search: " & vbNewline & _ " "") or (srchUName = "" and srchFName = "" and srchLName = "") ) then Response.Write(" checked") Response.Write ">User Names" & vbNewline if strFullName = "1" then Response.Write "   First Name" & vbNewline & _ "   Last Name" & vbNewline end if Response.Write " For: " & vbNewline & _ " " & vbNewline if strGfxButtons = "1" then 'Response.Write " " & vbNewline Response.Write " " & vbNewline else Response.Write " " & vbNewline end if Response.Write "
    " & vbNewLine & _ " All " & vbNewLine for intChar = 65 to 90 if intChar <> 90 then Response.Write " " & chr(intChar) & " " & vbNewLine else Response.Write " " & chr(intChar) & "
    " & vbNewLine & _ "
    " & vbNewLine & _ "
    " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "
    " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine strNames = "UserName=" & srchUName &_ "&FirstName=" & srchFName &_ "&LastName=" & srchLName &_ "&INITIAL=" &srchInitial & "&" Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if strCountry = "1" then Response.Write " " & vbNewLine end if if mlev = 4 or mlev = 3 then Response.Write " " & vbNewLine end if if mlev = 4 or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine if iMemberCount = "" then '## No Members Found in DB Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine else mMEMBER_ID = 0 mM_STATUS = 1 mM_NAME = 2 mM_LEVEL = 3 mM_EMAIL = 4 mM_COUNTRY = 5 mM_HOMEPAGE = 6 mM_AIM = 7 mM_ICQ = 8 mM_MSN = 9 mM_YAHOO = 10 mM_TITLE = 11 mM_POSTS = 12 mM_LASTPOSTDATE = 13 mM_LASTHEREDATE = 14 mM_DATE = 15 rec = 1 intI = 0 for iMember = 0 to iMemberCount if (rec = strPageSize + 1) then exit for Members_MemberID = arrMemberData(mMEMBER_ID, iMember) Members_MemberStatus = arrMemberData(mM_STATUS, iMember) Members_MemberName = arrMemberData(mM_NAME, iMember) Members_MemberLevel = arrMemberData(mM_LEVEL, iMember) Members_MemberEMail = arrMemberData(mM_EMAIL, iMember) Members_MemberCountry = arrMemberData(mM_COUNTRY, iMember) Members_MemberHomepage = arrMemberData(mM_HOMEPAGE, iMember) Members_MemberAIM = arrMemberData(mM_AIM, iMember) Members_MemberICQ = arrMemberData(mM_ICQ, iMember) Members_MemberMSN = arrMemberData(mM_MSN, iMember) Members_MemberYAHOO = arrMemberData(mM_YAHOO, iMember) Members_MemberTitle = arrMemberData(mM_TITLE, iMember) Members_MemberPosts = arrMemberData(mM_POSTS, iMember) Members_MemberLastPostDate = arrMemberData(mM_LASTPOSTDATE, iMember) Members_MemberLastHereDate = arrMemberData(mM_LASTHEREDATE, iMember) Members_MemberDate = arrMemberData(mM_DATE, iMember) if intI = 1 then CColor = strAltForumCellColor else CColor = strForumCellColor end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine if IsNull(Members_MemberLastPostDate) or Trim(Members_MemberLastPostDate) = "" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine if strCountry = "1" then Response.Write " " & vbNewLine end if if mlev = 4 or mlev = 3 then Response.Write " " & vbNewLine end if if mlev = 4 or (lcase(strNoCookies) = "1") then Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine rec = rec + 1 intI = intI + 1 if intI = 2 then intI = 0 next end if Response.Write "
      Member NameTitlePostsLast PostMember SinceCountryLast Visit 
    No Members Found
    " & vbNewLine if strUseExtendedProfile then Response.Write " " else Response.Write " " end if if Members_MemberStatus = 0 then Response.Write getCurrentIcon(strIconProfileLocked,"View " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""") else Response.Write getCurrentIcon(strIconProfile,"View " & ChkString(Members_MemberName,"display") & "'s Profile","align=""absmiddle"" hspace=""0""") end if Response.Write "" & vbNewLine if strAIM = "1" and Trim(Members_MemberAIM) <> "" then Response.Write " " & getCurrentIcon(strIconAIM,"Send " & ChkString(Members_MemberName,"display") & " an AOL message","align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if if strICQ = "1" and Trim(Members_MemberICQ) <> "" then Response.Write " " & getCurrentIcon(strIconICQ,"Send " & ChkString(Members_MemberName,"display") & " an ICQ Message","align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if if strMSN = "1" and Trim(Members_MemberMSN) <> "" then Response.Write " " & getCurrentIcon(strIconMSNM,"Click to see " & ChkString(Members_MemberName,"display") & "'s MSN Messenger address","align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if if strYAHOO = "1" and Trim(Members_MemberYAHOO) <> "" then Response.Write " " & getCurrentIcon(strIconYahoo,"Send " & ChkString(Members_MemberName,"display") & " a Yahoo! Message","align=""absmiddle"" hspace=""0""") & "" & vbNewLine end if Response.Write " " & vbNewLine if strUseExtendedProfile then Response.Write " " else Response.Write " " end if Response.Write ChkString(Members_MemberName,"display") & "" & ChkString(getMember_Level(Members_MemberTitle, Members_MemberLevel, Members_MemberPosts),"display") & "" if IsNull(Members_MemberPosts) then Response.Write("-") else Response.Write(Members_MemberPosts) if strShowRank = 2 or strShowRank = 3 then Response.Write("
    " & getStar_Level(Members_MemberLevel, Members_MemberPosts) & "") end if end if Response.Write "
    -" & ChkDate(Members_MemberLastPostDate,"",false) & "" & ChkDate(Members_MemberDate,"",false) & "" if trim(Members_MemberCountry) <> "" then Response.Write(Members_MemberCountry & " ") else Response.Write("-") Response.Write "" & ChkDate(Members_MemberLastHereDate,"",false) & "" & vbNewLine if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then '## Do Nothing else if Members_MemberStatus <> 0 then Response.Write " " & getCurrentIcon(strIconLock,"Lock Member","hspace=""0""") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconUnlock,"Un-Lock Member","hspace=""0""") & "" & vbNewLine end if end if if (Members_MemberID = intAdminMemberID and MemberID <> intAdminMemberID) OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID AND MemberID <> Members_MemberID) then Response.Write " -" & vbNewLine else if strUseExtendedProfile then Response.Write " " & getCurrentIcon(strIconPencil,"Edit Member","hspace=""0""") & "" & vbNewLine else Response.Write " " & getCurrentIcon(strIconPencil,"Edit Member","hspace=""0""") & "" & vbNewLine end if end if if Members_MemberID = intAdminMemberID OR (Members_MemberLevel = 3 AND MemberID <> intAdminMemberID) then '## Do Nothing else Response.Write " " & getCurrentIcon(strIconTrashcan,"Delete Member","hspace=""0""") & "" & vbNewLine end if Response.Write "
    " & vbNewLine & _ "
    " & vbNewLine if maxpages > 1 then Response.Write " " & vbNewLine & _ " " & vbNewLine Call Paging2(2) Response.Write " " & vbNewLine & _ "
    " & vbNewLine end if Response.Write "
    " & vbNewLine & _ "
    " & vbNewLine WriteFooter Response.End sub Paging2(fnum) if maxpages > 1 then if mypage = "" then sPageNumber = 1 else sPageNumber = mypage end if if SortMethod = "" then sMethod = "postsdesc" else sMethod = SortMethod end if Response.Write("
    " & vbNewLine) if fnum = 1 then Response.Write(" " & vbNewLine) else Response.Write(" " & vbNewLine) end if if srchInitial <> "" then Response.Write(" " & vbNewLine) if sMethod <> "" then Response.Write(" " & vbNewLine) if strMode <> "" then Response.Write(" " & vbNewLine) if searchName <> "" then Response.Write(" " & vbNewLine) if srchUName <> "" then Response.write(" " & vbNewLine) if srchFName <> "" then Response.write(" " & vbNewLine) if srchLName <> "" then Response.write(" " & vbNewLine) if fnum = 1 then Response.Write(" Page: " & vbNewLine) end if for counter = 1 to maxpages if counter <> cLng(sPageNumber) then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if next if fnum = 1 then Response.Write(" of " & maxPages & "" & vbNewLine) else Response.Write(" " & vbNewLine) end if Response.Write(" " & vbNewLine) Response.Write(" " & vbNewLine) end if end sub Function sGetColspan(lIN, lOUT) if (mlev = "4" or mlev = "3") then lOut = lOut + 2 If lOut > lIn then sGetColspan = lIN Else sGetColspan = lOUT End If end Function %>