FUNCTION XmlEncode LPARAMETERS teExpression *-- Transfrom 5 Known reserved XML characters only LOCAL lcReturn lcReturn = TRAN(teExpression) IF VARTYPE(teExpression) = 'C' lcReturn = ALLTRIM(lcReturn) lcReturn = STRTRAN(lcReturn, ' & ', ' & ') && remove the spaces in all of these before using lcReturn = STRTRAN(lcReturn, ' < ', ' < ') lcReturn = STRTRAN(lcReturn, ' > ', ' > ') lcReturn = STRTRAN(lcReturn, ' " ', ' " ') lcReturn = STRTRAN(lcReturn, " ' ", ' ' ') lcReturn = STRTRAN(lcReturn, " / ", ' / ') ENDIF RETURN lcReturn *------------------------------------------------------------------------- FUNCTION XMLDeCode LPARAMETERS cTXT LOCAL i,ch FOR i=1 TO 255 ch=ALLTRIM(STR(i)) cTXT=STRTRAN(cTXT,"&#"+ch+";",CHR(i)) ENDFOR RETURN cTXT>Help.....