The privatisation mechanism

Here's the VBScript code responsible for privatisation. I guess even someone who doesn't know Visual Basic should be able to understand it...

================================
Function Privatise(Birth, Death)

	Privatise = True

	If IsDate(Death) Then
		If (DateDiff("M", Death, now()) > intDeathThreshold*12) Then
			Privatise = False
		ElseIf IsDate(Birth) Then
			If (datediff("M", Birth, now()) > intBirthThreshold*12) Then
				Privatise = False
			End If
		End If
	ElseIf IsDate(Birth) Then
		If (datediff("M", Birth, now()) > intBirthThreshold*12) Then
			Privatise = False
		End If
	Else
		Privatise = False
	End If

	' Here's some code that turns Privatise off if the correct password was entered

End Function ' Privatise
================================

The current values of intBirthThreshold and intDeathThreshold are shown on the Info page, which is probably the page you just came from :-)