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

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Age Restriction Mod Idea
 New Topic  Reply to Topic
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 06 May 2008 :  01:45:34  Show Profile  Reply with Quote
I would like a mod that allows different portions of the board to be automatically blocked from under-aged visitors/members. For example, one of the boards I visit occasionally has an adult humor section - and the mods have to review users by birthdate & manually modify the access lists to let people in after they become of age.

That is a bit more effort than I want to put into it. If we could use a check DOB string and if that particular section of the board had an age restriction in effect, the young'ns would be disallowed.<

Andy Humm
Average Member

United Kingdom
908 Posts

Posted - 15 May 2008 :  14:12:22  Show Profile  Reply with Quote
It should be possible, but some of our delightful 'yoofs' or 'minors', can easily submit a DOB that allows access permissions.<
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 15 May 2008 :  15:04:45  Show Profile  Visit MaD2ko0l's Homepage  Reply with Quote
yes but, what if that forum was hidden from younger people they wouldnt know its there unless they initinally on registration supplied an adult age<

© 1999-2010 MaD2ko0l
Go to Top of Page

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 15 May 2008 :  15:24:49  Show Profile  Reply with Quote
Of course, but then we (as system operators) are covered, we've at least complied with the intent of the law.

I have an idea on how to write this, I'll start on it as soon as I finish the other two which I've promised.<
Go to Top of Page

phy1729
Average Member

USA
589 Posts

Posted - 15 May 2008 :  17:46:14  Show Profile  Reply with Quote
Do you want the age limit to be in conjunction with another forum type or a separate forum type all together?<
Go to Top of Page

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 16 May 2008 :  01:01:03  Show Profile  Reply with Quote
I want the age restriction to work throughout the forums, & either a toggle or a checkbox for the admins to control it within each forum or in a list like the forum order control page.<
Go to Top of Page

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 16 May 2008 :  01:13:33  Show Profile  Reply with Quote
I thought of using the User Groups mod (but not really necessary), adding a global variable value, and then having it check along with the Moderator check.

Alternatively, could use User Groups & determine which forum categories should be off-limits, add them to a single group, & have the new user registration automatically place minors into a group that doesn't have access.<

Edited by - Carefree on 16 May 2008 05:13:23
Go to Top of Page

phy1729
Average Member

USA
589 Posts

Posted - 16 May 2008 :  07:04:14  Show Profile  Reply with Quote
I would add another DB column to TOPICS that holds the minimum age perhaps called T_Min_Age. Did you have another way to approach this that you would prefer?<
Go to Top of Page

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 16 May 2008 :  09:38:12  Show Profile  Reply with Quote
Let's not go all the way to topic level, age-restricting by forum is sufficient. I'd rather avoid the unnecessary labor of having to set age limits on each/every post. There's already a minimum age for registration, but it leaves a gap for the teen-aged minors (which I'd rather not fill by a visit to the Feds explaining why some sick pervert was using my board to reach teeny-boppers).<
Go to Top of Page

MaD2ko0l
Senior Member

United Kingdom
1053 Posts

Posted - 16 May 2008 :  13:33:01  Show Profile  Visit MaD2ko0l's Homepage  Reply with Quote
could you not add another moderation level for age?

maybe modify the forum posting restriction mod? (http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=6220) (download of the file can be located a few posts down from http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66878&SearchTerms=mad2kool)


or maybe you coudl modify the User level moderation mod (found here http://forum.snitz.com/forum/topic.asp?ARCHIVE=true&TOPIC_ID=39014)

1 of these mods must be able to do what you need with a little bit of tweaking<

© 1999-2010 MaD2ko0l
Go to Top of Page

phy1729
Average Member

USA
589 Posts

Posted - 16 May 2008 :  18:00:04  Show Profile  Reply with Quote
quote:
Originally posted by Carefree

Let's not go all the way to topic level, age-restricting by forum is sufficient. I'd rather avoid the unnecessary labor of having to set age limits on each/every post. There's already a minimum age for registration, but it leaves a gap for the teen-aged minors (which I'd rather not fill by a visit to the Feds explaining why some sick pervert was using my board to reach teeny-boppers).


I meant FORUM oops. I'll have time next Thursday to work on it if you don't get there first.<
Go to Top of Page

GarethMoore1979
Junior Member

United Kingdom
220 Posts

Posted - 16 May 2008 :  18:10:53  Show Profile  Reply with Quote
haha.... your 72 years old- "your too old, get out!!!!" love it!<
Go to Top of Page

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 18 May 2008 :  20:11:40  Show Profile  Reply with Quote
In the bottom of inc_func_member.asp, there are routines which calculate a member's age from DOB. They're tiny, so I'll include them.


Function DisplayUsersAge(fDOB)
	dtDOB = fDOB
	dtToday = FormatDateTime(strForumTimeAdjust,2)
	DisplayUsersAge = DateDiff("yyyy", dtDOB, dtToday)
	dtTmp = DateAdd("yyyy", DisplayUsersAge, dtDOB)
	if (DateDiff("d", dtToday, dtTmp) > 0) then DisplayUsersAge = DisplayUsersAge - 1
End Function


function DOBToDate(fDOB)
	'Testing for server format
	if strComp(Month("04/05/2002"),"4") = 0 then
		DOBToDate = cdate("" & Mid(fDOB, 5,2) & "/" & Mid(fDOB, 7,2) & "/" & Mid(fDOB, 1,4) & "")
	else
		DOBToDate = cdate("" & Mid(fDOB, 7,2) & "/" & Mid(fDOB, 5,2) & "/" & Mid(fDOB, 1,4) & "")
	end if
end function


I have tried calling this function in several ways to get an age for comparison, but I get a variety of "you're so dumb" messages from my debugger. Would somebody who's used to this bit lend a hand?<
Go to Top of Page

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 25 May 2008 :  08:10:16  Show Profile  Reply with Quote
Here's a routine I wrote for this purpose; it's not doing what I expect it to do, and I'll drive myself batty figuring out why.


'	############################# User Group Age Check Mod #############################
    strSQL = "SELECT M_NAME, MEMBER_ID, M_DOB FROM " & strTablePrefix & "MEMBERS " & _
             "WHERE MEMBER_ID = " & MemberID
    set rsAdult = Server.CreateObject("ADODB.Recordset")
    rsAdult.open strSql, my_Conn
    if not rsAdult.EOF then 
    	Member_DOB = rsAdult("M_DOB")
    	MMAge = DateDiff("yyyy", DOBToDate(Member_DOB), Date)
    end if
		rsAdult.close
		set rsAdult = Nothing


		strSql = "SELECT USERGROUP_ID FROM " & strTablePrefix & "USERGROUP_USERS " &_
			"WHERE MEMBER_ID = " & MemberID
		Set rsGroups = Server.CreateObject("ADODB.Recordset")
		rsGroups.open strSql, my_Conn
		rsGroups.close
		set rsGroups = Nothing

		
		if USERGROUP_ID = 8 then
			if MMAge > 20 then
				USERGROUP_ID = 7
				MEMBER_TYPE = 1
				strSql = "UPDATE " & strTablePrefix & "USERGROUP_USERS " &_
					"(USERGROUP_ID, MEMBER_ID, MEMBER_TYPE) VALUES " &_
					"WHERE MEMBER_ID = " & MemberID
				set rsClr = Server.CreateObject("ADODB.Recordset")
				rsClr.open strSql, my_Conn
				rsClr.close
				set rsClr = Nothing
			end if
		end if
'	############################# User Group Age Check Mod End #########################


Part 1 (in red) works. I've done an output to screen of MMAge and got what I needed.

Part 2 (in green) does not work. It doesn't retrieve the UserGroup_ID from the table. Thus, part 3 is never called and the process fails.<
Go to Top of Page

cripto9t
Average Member

USA
881 Posts

Posted - 25 May 2008 :  12:08:57  Show Profile  Reply with Quote
I may be off the mark, but I think you're missing something.
strSql = "SELECT USERGROUP_ID FROM " & strTablePrefix & "USERGROUP_USERS " &_
			"WHERE MEMBER_ID = " & MemberID
		Set rsGroups = Server.CreateObject("ADODB.Recordset")
		rsGroups.open strSql, my_Conn
                if rsGroups.EOF or rsGroups.BOF then
                         'some error msg
                     else
                         USERGROUP_ID = rsGroups("USERGROUP_ID")
                     end if
		rsGroups.close
		set rsGroups = Nothing
<

    _-/Cripto9t\-_
Go to Top of Page

Carefree
Advanced Member

Philippines
4212 Posts

Posted - 25 May 2008 :  17:26:11  Show Profile  Reply with Quote
That fixed part 2, thanks. I had to rewrite part 3, but it now works.
Now I have to rewrite the register.asp portion of automatically assigning people (minors) to the minor User Group and this will be done.<
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.1 seconds. Powered By: Snitz Forums 2000 Version 3.4.07