Function Replacexmlchars(str)
Dim result
if (trim(str) = "") or isnull(str) then
result = str
else
result = str
result = Replace(result, "&", "&") '&
result = Replace(result, Chr(9), " ") 'TAB
result = Replace(result, Chr(32), " ") '空格
result = Replace(result, "<", "<") ' < <
result = Replace(result, ">", ">") ' >
result = Replace(result, Chr(13), " <br/> ") '回车
end if
Replacexmlchars = result
End Function