sql = "select * "
sql = sql & " From Tmu_User "
'sql = sql & " Where User_Code = '" & User_Code & "'"
sql = sql & " Where id = " & id & ""
rs.open sql,Conn,1,3
if rs.eof then
rs.addnew
rs("User_Code")=User_Code
end if
if request("mode") ="del" then
rs.delete
else
rs("User_Name")=User_Name
rs("Password")=Ept(Password)
rs("Department_code")=Department_code
rs("Position_code")=Position_code
rs("user_level")=user_level
end if
rs.update