<%
     nc = Session("client_id")
     kl = Session("user_pass")
     P1 = Request("SelectWho")
     P2 = request("Manager_Usr")
 
     Session("ManagerUsr") = P1

   set ManagerResult=server.createobject("weboa.Employee")
   response.write ManagerResult.Smanager(nc,kl,P1,P2)
   set ManagerResult=nothing
%>