function RStringXML(AString) {
	if(AString.length==0)
		return "";
	
	var str="";
	for(var iCounter=0;iCounter<AString.length;iCounter++){
		switch(AString.substr(iCounter,1)){
			case "&"  : str += "&amp;";		break;
			case "<"  : str += "&lt;";		break;
			case ">"  : str += "&gt;";		break;
			case "\'" : str += "&apos;";	break;
			case "\"" : str += "&quot;";	break;
			default   : str += AString.substr(iCounter,1);	break;
			}
		}
	return str;
}