LPARAMETERS lcString lcString=STRTRAN(lcString,"&","&") lcString=STRTRAN(lcString,"<","<") lcString=STRTRAN(lcString,">",">") lcString=STRTRAN(lcString,'"',""") lcString=STRTRAN(lcString,"'","'") LOCAL lnX FOR lnX=128 TO 255 lcString=STRTRAN(lcString,CHR(lnX),"&#"+ALLTRIM(STR(lnX))+";") ENDFOR RETURN lcString