The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
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):
Around line # 415 add (between the if and the response.write):
Please let me know if anyone has any questions or finds any bugs in this little reminder mod.
Thanks<
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):
Code:
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 ifAround line # 415 add (between the if and the response.write):
Code:
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<
Postet den
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.<
Thanks!
BTW ; I've changed your post, so that the code doesn't stretch the topic to the side.<
Postet den
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<
Postet den
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.<
Postet den
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
<
Pat
<
Postet den
OOOPS
Found it line 467 after "if mLev = 4......."
Pat
<
Found it line 467 after "if mLev = 4......."
Pat
<