<% '################################################################################# '## 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 SearchMember = trim(chkString(Request.Form("SearchMember"),"SQLString")) SearchType = cLng(Request.Form("SearchType")) select case SearchType case 1 : strSql3 = " WHERE M_NAME LIKE '%" & SearchMember & "%'" case 2 : strSql3 = " WHERE M_EMAIL LIKE '%" & SearchMember & "%'" case 3 : strSql3 = " WHERE M_IP LIKE '%" & SearchMember & "%' OR M_LAST_IP LIKE '%" & SearchMember & "%'" case else : strSql3 = " WHERE M_NAME LIKE '%" & SearchMember & "%'" end select if Request.QueryString("mode") = "DoIt" then Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " All Forums
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " Admin Section
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Member Search Results

" & vbNewLine if SearchMember <> "" then '## Forum_SQL - Get all members strSql = "SELECT MEMBER_ID, M_STATUS, M_NAME, M_LEVEL, M_EMAIL, M_TITLE, M_POSTS, M_LASTPOSTDATE, M_LASTHEREDATE, M_DATE, M_IP, M_LAST_IP " strSql2 = " FROM " & strMemberTablePrefix & "MEMBERS " strSql4 = " ORDER BY M_LEVEL DESC, M_NAME ASC" set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText if rs.EOF then iMemberCount = "" else arrMemberData = rs.GetRows(adGetRowsRest) iMemberCount = UBound(arrMemberData,2) end if rs.Close set rs = nothing Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & 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 mMEMBER_ID = 0 mM_STATUS = 1 mM_NAME = 2 mM_LEVEL = 3 mM_EMAIL = 4 mM_TITLE = 5 mM_POSTS = 6 mM_LASTPOSTDATE = 7 mM_LASTHEREDATE = 8 mM_DATE = 9 mM_IP = 10 mM_LAST_IP = 11 intI = 0 for iMember = 0 to iMemberCount 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_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) Members_MemberIP = arrMemberData(mM_IP, iMember) Members_MemberLastIP = arrMemberData(mM_LAST_IP, iMember) if intI = 1 then CColor = strAltForumCellColor else CColor = strForumCellColor end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine Response.Write " " & vbNewLine if IsNull(Members_MemberLastHereDate) or Trim(Members_MemberLastPostDate) = "" then Response.Write " " & vbNewLine else Response.Write " " & vbNewLine end if Response.Write " " & vbNewLine Response.Write " " & vbNewLine Response.Write " " & vbNewLine intI = intI + 1 if intI = 2 then intI = 0 next end if Response.Write "

UserName	Title	E-Mail Address	IP Address	Last IP Address	Member Since	Last Post	Last Visit
No Members Found
" & profileLink(ChkString(Members_MemberName,"display"),Members_MemberID) & "	" & ChkString(getMember_Level(Members_MemberTitle, Members_MemberLevel, Members_MemberPosts),"display") & "	" & ChkString(Members_MemberEmail,"display") & "	" & ChkString(Members_MemberIP,"display") & "	" & ChkString(Members_MemberLastIP,"display") & "	" & ChkDate(Members_MemberDate,"",false) & "	-	" & ChkDate(Members_MemberLastPostDate," ",true) & "	" & ChkDate(Members_MemberLastHereDate," ",true) & "	" & 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 & _ "
" & vbNewLine else Response.Write "

You must enter something to search for

" & vbNewLine & _ "

Back To Search Page

" & vbNewLine & _ " " & vbNewLine end if else Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine Response.Write "

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

Member Search
" & _ "

" & vbNewLine & _ "

" & vbNewLine end if WriteFooter Response.End function chkHiLite(actualValue, thisValue) if isNumeric(actualValue) then actualValue = cLng(actualValue) if actualValue = thisValue then chkHiLite = strSearchHiLiteColor else chkHiLite = CColor end if end function %>