//	Find and replace a string in another string, with optional case-sensitivity.
function ReplaceAll( inText, inFindStr, inReplStr, inCaseSensitive ) {
   //	inText is the text in which to do the search;
   //	inFindStr is the string to find;
   //	inReplStr is the string to substitute into inText in place of inFindStr; and
   //	inCaseSensitive is a boolean value (defaults to false).
   
   var searchFrom = 0;
   var offset = 0;
   var outText = "";
   var searchText = "";
   if ( inCaseSensitive == null ) {
      inCaseSensitive = false;
   }
   if ( inCaseSensitive ) {
      searchText = inText.toLowerCase();
      inFindStr = inFindStr.toLowerCase();
   } else {
      searchText = inText;
   }
   offset = searchText.indexOf( inFindStr, searchFrom );
   while ( offset != -1 ) {
      outText += inText.substring( searchFrom, offset );
      outText += inReplStr;
      searchFrom = offset + inFindStr.length;
      offset = searchText.indexOf( inFindStr, searchFrom );
   }
   outText += inText.substring( searchFrom, inText.length );
   
   return ( outText );
};


function htmlentities( inText ) { 
	outText = inText;
	outText = ReplaceAll( outText, '\\', '\\\\' );
	outText = encodeURI(outText);
	outText = ReplaceAll( outText, "&", "~amp~~" ); 
	outText = ReplaceAll( outText, "<", "~lt~~" ); 
	outText = ReplaceAll( outText, ">", "~gt~~" ); 
	outText = ReplaceAll( outText, '"', '~quot~~' ); 
	outText = ReplaceAll( outText, '?', '~quest~~' );
	outText = ReplaceAll( outText, 'é', '~eacute~~' );
	outText = ReplaceAll( outText, 'ó', '~oacute~~' );
	outText = ReplaceAll( outText, '=', '~equal~~' );
	outText = ReplaceAll( outText, '%', '~percent~~' );
	outText = ReplaceAll( outText, '#', '~hash~~' );
	outText = ReplaceAll( outText, ';', '~~' );
	outText = ReplaceAll( outText, '´', "'" );
	return ( outText );
}