<% strSQL = "SELECT * from employees WHERE SSO="&sso set rs = objconn.Execute(strSQL) if rs.eof THEN strSQL = "SELECT * from employees WHERE SSO=1" set rs = objconn.Execute(strSQL) END IF %>

" alt="Card image cap">

<%Response.Write(rs("First_Name"))%> <%Response.Write(rs("Last_Name"))%>

<% ' 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 Expertise

"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 %>

Advanced Technical Machinist100%

Bootstrap 4 50%

AngularJS 70%

React JS 35%

<% END IF %>

Profile

<%Response.Write(rs("First_Name"))%> <%Response.Write(rs("Last_Name"))%>

ACHIEVEMENT UNLOCKED

LEGEND STATUS UNLOCKED

Profile

<%Response.Write(rs("First_Name"))%> <%Response.Write(rs("Last_Name"))%>

SSO

Shift

Role

Team

PayNo

<%Response.Write(rs("SSO"))%>

<%Response.Write(rs("shift"))%>

<%Response.Write(rs("Role"))%>

<%Response.Write(rs("Team"))%>

<%Response.Write(rs("Payno"))%>