Caracteres especiais em XML + ASP

Grandes amigos, quem nunca teve um problema com XML e não sabia o que podia ser, pois bem, o XML tem alguns caracteres que são proprietários como &, ", ', <, > e vírgula.

Sendo assim, fiz essa função que deve ser usada na hora em que se esta escrevendo o XML, pois ela troca automaticamente os caracteres especiais por seus equivalente evitando erros no código.

function trocaEspecial(strCampo)
 strCampo = replace(strCampo,Chr(38),"&amp;")
 strCampo = replace(strCampo,Chr(39),"&apos;")
 strCampo = replace(strCampo,Chr(62),"&gt;")
 strCampo = replace(strCampo,Chr(60),"&lt;")
 strCampo = replace(strCampo,chr(34),"&quot;")
 trocaEspecial = strCampo
end function

Esta matéria foi postada originalmente no ASP4Developers por Allan Torres (site), que na época era "Analista de sistemas, trabalho com ASP, Oracle, PHP, C, Ferramentas Case e estudo Eng. Elétrica. Sempre as ordens! ]:)". Hoje, vai saber...