Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Members Pending Link
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 01 September 2008 :  14:07:32  Show Profile
Within my inc_header.asp, when those registering members are awaiting approval from the administrator a link is visible in the header.
The code I have for this:
if (strEmailVal = "1" and strRestrictReg = "1" and strEmail = "1" and User_Count > 0) then
Response.Write "<a href=""admin_accounts_pending.asp""" & dWStatus("Members awaiting approval") & " tabindex=""-1""><acronym title=""Members awaitng approval"">Members Awaiting Approval"
if User_Count > 0 then Response.Write " (<font color=""" & strActiveLinkColor & """>" & User_Count & "</font>)" & getCurrentIcon(strIconPMalert,"Members Awaiting Approval","hspace=""2""")
Response.Write "</acronym></a>" & vbNewline & _
"|" & vbNewline
end if


Once a member is then approved by the admin, the 'Members Awaiting Approval" link disappears but within admin_accounts_pending.asp we will still have a listing of the members that are waiting to authenticate with the link sent to them by email.

Using the code below, I am trying to get an additional link visible when approved members are awaiting to authenticate, with associated count, and I can not get the correct requirements of the if:(in red)

'###account await auth
if (iMemberCount >0) then
Response.Write "<a href=""admin_accounts_pending.asp""" & dWStatus("Members awaiting Authentication") & " tabindex=""-1""><acronym title=""Members Awaiting Authentiction"">Members Awaiting Authentication"
if User_Count > 0 then Response.Write " (<font color=""" & strActiveLinkColor & """>" & User_Count & "</font>)" & getCurrentIcon(strIconPMalert,"Members Awaiting Authentication","hspace=""2""")
Response.Write "</acronym></a>" & vbNewline & _
"|" & vbNewline
end if


Any help would be appreciated, or would it earsier to keep the top link code visible until all pending approved and authenticated members = 0
<

HuwR
Forum Admin

United Kingdom
20600 Posts

Posted - 01 September 2008 :  14:37:26  Show Profile  Visit HuwR's Homepage
Why bother?

there isn't that much point in monitoring those waiting to authenticate, we just delete any that are older than 3-4 days the next time we have a pending member<
Go to Top of Page

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 01 September 2008 :  15:21:04  Show Profile
Huwr,
I did think that initially, but with two trains of thought, my forum is not so busy as this one, and because we no not have a moderator or admin 'on station', so to speak, invariably when approval is done, the awaiting member may not authenticate for a few days.. Invariably we catch the initial approval and the authentication is carried out within a short period.

However, occasionally we have 'approved' and some members forget to check their email, hence the members awaiting authentication arises. I think you probably may not be convinced, and yes if their desire was urgent to register and post, then they would check email. Another thought if we see that members are reluctant to authenticate after a few days, then we can delete straight away. However, for the slower ones this could be a useful tool to keep track.

Since the initial post above, I have been trying many variables and managed to get a working example:

inc_header.asp find the User_Count routine (around lines 220) and add this below (changes from User_Count approval in red)

if mLev = 4 and strEmailVal = "1" and strRestrictReg = "1" and strEmail = "1" then
'## Forum_SQL - Get membercount from DB
strSql = "SELECT COUNT(MEMBER_ID) AS U_COUNT FROM " & strMemberTablePrefix & "MEMBERS_PENDING WHERE M_APPROVE = " & 1
set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSql, my_Conn
if not rs.EOF then
User_Count2 = cLng(rs("U_COUNT"))
else
User_Count2 = 0
end if
rs.close
set rs = nothing
end if
'###


then add the following where you want the link to appear:

	'###account await auth		
if (User_Count2 > 0) then
Response.Write "<a href=""admin_accounts_pending.asp""" & dWStatus("Awaiting Authentication") & " tabindex=""-1""><acronym title=""Awaiting Authentiction"">Awaiting Authentication"
Response.Write " (<font color=""" & strActiveLinkColor & """>" & User_Count2 & "</font>)" & getCurrentIcon(strIconPMalert,"Awaiting Authentication","hspace=""2""")
Response.Write "</acronym></a>" & vbNewline & _
"|" & vbNewline
end if


I hope this may be of some use to some snitz forum users..
<
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.35 seconds. Powered By: Snitz Forums 2000 Version 3.4.07