Fight economic fire with fire. It is unfortunate warfare, but necessary. Make it more expensive for companies to actively support GLBT zealotry than not.
How would you do that?