Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Admin Reminder - User awaiting email validation

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
PPSSWeb Posted - 05 April 2007 : 16:18:02
Admin Reminder - User awaiting email validation

This is a small mod to remind the forum admin that there are registered, approved users who have yet to validate their email address and complete their registration. It adds a link next to admin options in the header with a count or users whose registrations have been approved but the user has not validated their email address. I like to keep my pending members table clean, so I find this useful as I have a number of users who register and then forget the validation part of the process for a while if I don’t remind them. Obviously, this goes hand in hand with the email registration reminder mod. All changes are made in inc_header.asp.

Around line # 219 add (between the end if and the rs.close):

	strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS_PENDING WHERE M_STATUS = " & 0 & " AND M_APPROVE = " & 1
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.open strSql, my_Conn
	if not rs.EOF then
		vUser_Count = cLng(rs("U_COUNT"))
	else
		vUser_Count = 0
	end if


Around line # 415 add (between the if and the response.write):
		if mLev = 4 and (strEmailVal = "1" and strRestrictReg = "1" and strEmail = "1" and vUser_Count > 0) then Response.Write(" | <a href=""admin_accounts_pending.asp""" & dWStatus("(" & vUser_Count & ") Member(s) awaiting email validation") & " tabindex=""-1"">(" & vUser_Count & ") Member(s) awaiting email validation</a>")


Please let me know if anyone has any questions or finds any bugs in this little reminder mod.

Thanks<
5   L A T E S T    R E P L I E S    (Newest First)
psmith32 Posted - 24 September 2007 : 20:21:03
OOOPS
Found it line 467 after "if mLev = 4......."

Pat
<
psmith32 Posted - 24 September 2007 : 20:13:36
Tried and tried but will not work..
there are a lot of if...response.write statments at line 415.
Can you give more of the if statment code so we know wereto incert?

Pat
<
PPSSWeb Posted - 06 April 2007 : 08:47:32
quote:
Originally posted by MarcelG

BTW ; I've changed your post, so that the code doesn't stretch the topic to the side.



Thanks, I will have to remember that tag. It is not in the forum code help to the left.

quote:
Originally posted by HuwR

if as admin you just go to admin_home then it does already tell you that there are still members pending, the current code in inc_header only infoms you when there are users requiring authentication



Exactly! I get a lot of people who start the registration and not finish, so this lets me know without entering the admin options how many there are. Then I can follow the link and send out reminder emails to those that I feel need them.<
HuwR Posted - 06 April 2007 : 04:51:54
if as admin you just go to admin_home then it does already tell you that there are still members pending, the current code in inc_header only infoms you when there are users requiring authentication<
MarcelG Posted - 06 April 2007 : 04:01:52
Nice simple mod. I thought this was already there, but it seems not. Thanks!
BTW ; I've changed your post, so that the code doesn't stretch the topic to the side.<

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.04 seconds. Powered By: Snitz Forums 2000 Version 3.4.07