Web Wiz Forums Modifications - member Age and pic gallery

member Age and pic gallery

Printed From: Web Wiz Forums
Category: Web Wiz Web App Support Forums
Forum Name: Web Wiz Forums Modifications
Forum Description: Mod's and Add-on's for Web Wiz Forums.
URL: https://forums.webwiz.net/forum_posts.asp?TID=22178
Printed Date: 30 March 2026 at 7:27am
Software Version: Web Wiz Forums 12.08 - https://www.webwizforums.com

Topic: member Age and pic gallery

Posted By: thepolecat
Subject: member Age and pic gallery
Date Posted: 11 December 2006 at 11:01pm

Is there or going to be a members pic gallery for 8x forums

and

Is there any mod to set age limit on members joining

Either on the registration_rules.asp page

have to enter date of birth the calc the age and refuse sign up if under the set age.

or better would be on the register.asp page so the age in the profile has to be over the admins set age limit.....

Many thanks

Also not allow members to sign up without DOB

Thanks in advance

Or some pointers on making it my self

Replies:

Posted By: thepolecat
Date Posted: 12 December 2006 at 10:33am

I have been playing with this::::::::::::::

'Check the date of birth is a date before entering it
         If Request.Form("DOBday") <> 0 AND Request.Form("DOBmonth") <> 0 AND Request.Form("DOByear") <> 0 Then
         dtmDateOfBirth = internationalDateTime(DateSerial(Request.Form("DOByear"), Request.Form("DOBmonth"), Request.Form("DOBday")))
  End If

and the form validation in the register.asp but cant find a way to

make it not submit if the age value is under say 18

Could it be some thing like:::::::::::::

'Check the date of birth is a date before entering it
Dim intAge, AstDateOfBirth
If Request.Form("DOBday") = 0 AND Request.Form("DOBmonth") = 0 AND Request.Form("DOByear") = 0 Then
' exit and give error msg
AstDateOfBirth = '' Return user to correct ? msg to say dob required

Else
if Request.Form("DOBday") > 0 AND Request.Form("DOBmonth") > 0 AND Request.Form("DOByear") > 0 Then

AstDateOfBirth = internationalDateTime(DateSerial(Request.Form("DOByear"), Request.Form("DOBmonth"), Request.Form("DOBday")))
'''' check here if the age is over 18 if not then exit and give error
intAge = Fix(DateDiff("m", AstDateOfBirth, now())/12)
If intAge < 18 then

'' Return user to correct ?

Else
dtmDateOfBirth = intAge
End if
End If
End If