<%
on error resume next
%>
<!--#include virtual="/incs/config.asp" -->
<!--#include virtual="/incs/md5.asp" -->
<%
chk_newpwr 4,0,0
   substrContent = "entryclass:sys2_mng"&Vend
   substrContent =substrContent& "entrytype:usr_add"&Vend
   substrContent =substrContent& "entryuser:"&entryuser&Vend
   substrContent =substrContent& "entrypass:"&entrypass&Vend
   substrContent =substrContent& "agentname:"&agentname&Vend
   substrContent =substrContent &"agentpass:"&agentpass&VEnd
   substrContent = substrContent & "u_nme:" & trim(SafeRequestform("u_nme")) & Vend
   substrContent = substrContent & "u_pss:" & trim(SafeRequestform("u_pss")) & Vend
   substrContent = substrContent & "u_ctt_cn:" & trim(SafeRequestform("u_ctt_cn")) & Vend
   substrContent = substrContent & "u_copnme_cn:" & trim(SafeRequestform("u_copnme_cn")) & Vend
   substrContent = substrContent & "u_adr_cn:" & trim(SafeRequestform("u_adr_cn")) & Vend
   substrContent = substrContent & "u_prv_cn:" & trim(SafeRequestform("u_prv_cn")) & Vend
   substrContent = substrContent & "u_cde:" & trim(SafeRequestform("u_cde")) & Vend
   substrContent = substrContent & "u_tel:" & trim(SafeRequestform("u_tel")) & Vend
   substrContent = substrContent & "u_fax:" & trim(SafeRequestform("u_fax")) & Vend
   substrContent = substrContent & "u_eml:" & trim(SafeRequestform("u_eml")) & Vend
   substrContent = substrContent & "iforder:" & trim(SafeRequestform("iforder")) & Vend
   substrContent = substrContent & "g_prd:" & trim(SafeRequestform("g_prd")) & Vend
   substrContent = substrContent & "g_pnme:" & trim(SafeRequestform("g_pnme")) & Vend
   substrContent = substrContent & "oldunme:" & trim(SafeRequestform("oldunme")) & Vend
   substrContent = substrContent & "ifall:" & trim(SafeRequestform("ifall")) & Vend
   substrContent = substrContent & "." & Vend
   turnurl="/master/memmng/mem_dtl.asp?unme="&SafeRequest("u_nme")
'''''''''''''''''''''''''''''''

   doresult = hzsocket(substrContent)
   left5=left(doresult,5)
   If left5= "10000" Then
      call okpage( turnurl)
   Else
      call errorpage(-2,doresult)
   end if
%>