|
Tyler M.
New Member
USA
82 Posts |
 Posted - 28 November 2002 : 02:45:13
|
Title: Email Search for Admin (Members.asp)
Forum Version: Snitz 3.4.03
Ease of installation: 2 - Easy
Created by: Tyler M.
Purpose: Allows administrator to find users by email address in members section.
Installation: Follow the directions in this message. (only 4 changes needed)
Download: n/a
Anacrusis posted a similar MOD this evening doing the same thing jinx!
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=38891
Oh well, I finshed my only a couple of hours ago to find his when I was ready to share.
This one modifies the Members.asp and look to see if you are logged on as a Admin, and then allows searching by email address.
I see benefits to using Anacrusis' method, I also see benefits using my method, I prefer not to log into the admin section to look for members by email. Going to the Members area is good enough for me. However both versions will work without effecting each other.
I would be interested in hearing what method you prefer, you can adopt both methods if desired. I just found Anacrusis but since I spent the time to make mine for the community I am adding it here.
Edit Members.asp
Fist Edit
---------------------
Go to Line 98:
Find This:
if Request("INITIAL") <> "" then
Place this code before it:
' --- tcm Admin Email Feature Begin v 1 --
if mLev > 3 AND Request("Email") <> "" then
if IsNumeric(Request("Email")) = True then srchEmail = cLng(Request("Email")) else srchEmail = "0"
end if
' --- tcm Admim Email Feature End --
Second Edit
----------------------
Go to line 108
Find this:
If strMode = "search" and (srchUName = "1" or srchFName = "1" or srchLName = "1" or srchInitial = "1" ) then
Replace it with this:
' --- tcm Admin Email Feature Begin v 1 --
If strMode = "search" and (srchUName = "1" or srchFName = "1" or srchLName = "1" or (Mlev > 3 and srchEmail = "1") or srchInitial = "1" ) then
' --- tcm Admim Email Feature End --
Third Edit
----------------------
Go to Line 133
Find this:
if srchInitial = "1" then
Place this code before it:
' --- tcm Admin Email Feature Begin v 1 --
if Mlev > 3 and srchEmail = "1" then
if srchFName = "1" or srchUName = "1" or srchLName = "1" then
tmpSql = tmpSql & " OR "
end if
tmpSql = tmpSql & "M_EMAIL LIKE '%" & SearchName & "%' "
end if
' --- tcm Admim Email Feature End --
Fourth Edit
----------------------------
Go to line 280
Find this:
Response.Write " <input type=""checkbox"" name=""FirstName"" value=""1""" & chkRadio(srchFName,1,true) & ">First Name" & vbNewline & _
" <input type=""checkbox"" name=""LastName"" value=""1""" & chkRadio(srchLName,1,true) & ">Last Name" & vbNewline
Replace it with:
' --- tcm Admin Email Feature Begin v 1 --
Response.Write " <input type=""checkbox"" name=""FirstName"" value=""1""" & chkRadio(srchFName,1,true) & ">First Name" & vbNewline
Response.Write " <input type=""checkbox"" name=""LastName"" value=""1""" & chkRadio(srchLName,1,true) & ">Last Name" & vbNewline
IF mLev > 3 THEN
Response.Write " <input type=""checkbox"" name=""Email"" value=""1""" & chkRadio(srchLName,1,true) & ">Email" & vbNewline
END IF
' --- tcm Admim Email Feature End --
|
Edited by - Tyler M. on 28 November 2002 03:36:44 |
|
Topic Locked
