<% ' Easter Eggs for special SSOs Dim showEasterEgg, easterEggType showEasterEgg = False easterEggType = ""

On Error Resume Next IF IsNumeric(sso) THEN IF CLng(sso) = 570005354 THEN showEasterEgg = True easterEggType = "developer" ELSEIF CLng(sso) = 503432774 THEN showEasterEgg = True easterEggType = "documentation" END IF END IF On Error Goto 0

IF showEasterEgg AND easterEggType = "developer" THEN %>

###### ACHIEVEMENT UNLOCKED

Secret Developer Stats

Caffeine Consumption147%

Bug Fixing Speed95%

Google-Fu99%

Database Tinkering88%

Debugging100%

Production Deployment Courage73%

Legacy Code Archaeologist Documentation Writer (Rare!)
<% ELSEIF showEasterEgg AND easterEggType = "documentation" THEN %>

###### LEGEND STATUS UNLOCKED

The Foundation Builder

Documentation Mastery100%

Playbook Creation100%

Shopfloor Support100%

CNC Procedure Expertise100%

Reliability100%

Work Ethic100%

Knowledge Architect Procedure Master Shopfloor Hero

"The procedures you built will keep this place running long after you're gone."

Thank you for the heavy lifting. You built the foundation we all stand on.
<% ELSE %>