packet.AppendChild(ber.NewString(ber.ClassUniversal,ber.TypePrimitive,ber.TagOctetString,c.ControlType,"Control Type ("+ControlTypeMap[c.ControlType]+")"))
packet.AppendChild(ber.NewString(ber.ClassUniversal,ber.TypePrimitive,ber.TagOctetString,ControlTypePaging,"Control Type ("+ControlTypeMap[ControlTypePaging]+")"))
p2:=ber.Encode(ber.ClassUniversal,ber.TypePrimitive,ber.TagOctetString,nil,"Control Value (Paging)")
seq:=ber.Encode(ber.ClassUniversal,ber.TypeConstructed,ber.TagSequence,nil,"Search Control Value")
packet.AppendChild(ber.NewString(ber.ClassUniversal,ber.TypePrimitive,ber.TagOctetString,ControlTypeBeheraPasswordPolicy,"Control Type ("+ControlTypeMap[ControlTypeBeheraPasswordPolicy]+")"))