To ensure fog isn't used on the object, add this to the pass:
Code:
EnableFog = false;


Beyond that, the shader looks perfectly fine to me, it should render a red object.... What version/edition of A6 are you running?

I no longer post on these forums, keep in touch with me via:
Linkedin.com
My MSDN blog