Replace XML Special Characters in asp

Replace XML Special Characters in asp

==========================================================================

’ 226 128 153 
– 226 128 147 
“ 226 128 156 
†226 128 
… 226 128 166 

==========================================================================

DATA = Replace(DATA, Chr(226) & Chr(128) & Chr(153) , "'")
DATA = Replace(DATA, Chr(226) & Chr(128) & Chr(147) , "-")
DATA = Replace(DATA, Chr(226) & Chr(128) & Chr(166), "...")
DATA = Replace(DATA, Chr(226) & Chr(128) & Chr(156) , "''")
DATA = Replace(DATA, Chr(226) & Chr(128) , "''")
DATA = Replace(replace(DATA,"&lt;","<"),"&gt;",">")

==========================================================================