Using tohtml to translate &amp

[flowersoft at compuserve.com]

The code I posted before needed some changes.  It should work now.

	  If:
	Then: fd=""{yourxmldata
LOOP1   If: fd co "&"
	Then: ca=instr(fd,"&");
fd=mid(fd,"1",ca-"1")<"&"<mid(fd,(ca+"5"),"999"); goto LOOP1
LOOP2   If: fd co "&apos;"
	Then: ca=instr(fd,"&apos;");
fd=mid(fd,"1",ca-"1"){"'"{mid(fd,(ca+"6"),"999"); goto LOOP2
LOOP3   If: fd co "&quot;"
	Then: ca=instr(fd,"&quot;");
fd=mid(fd,"1",ca-"1")&"\""&mid(fd,(ca+"6"),"999"); goto LOOP3