XML Escape/UnEscape

'// XML Escape
function XmlEscape(strXml)
	If NOT isset(strXml) Then Exit function
	strXml = Replace(strXml, chr(34), """)
	strXml = Replace(strXml, chr(39), "'")
	strXml = Replace(strXml, chr(60), "<")
	strXml = Replace(strXml, chr(62), ">")
	strXml = Replace(strXml, "&", chr(38))
	strXml = Replace(strXml, chr(38), "&")
	XmlEscape = strXml
end function

'// XML UnEscape
function XmlUnEscape(strXml)
	If NOT isset(strXml) Then Exit function
	strXml = Replace(strXml, """, chr(34))
	strXml = Replace(strXml, "'", chr(39))
	strXml = Replace(strXml, "<", chr(60))
	strXml = Replace(strXml, ">", chr(62))
	strXml = Replace(strXml, "&", chr(38))
	XmlUnEscape = strXml
end function