<%
       nc = Session("client_id")
       kl = Session("user_pass")
       P1 = Request("UsrName")
       P2 = request("TELIN")
       P3 = request("TELOUT")
       P4 = request("TELE")
       P5 = Request("EDRESS")
       P6 = request("QQ")
       P7 = Request("NewPw")
       P8 = request("SureNewPw")

   set ModResult=server.createobject("weboa.Employee")
   response.write ModResult.PerResult(nc,kl,P1,P2,P3,P4,P5,P6,P7,P8)
   set ModResult=nothing
%>