1,<table width=200 style="word-break:normal;">
<tr><td>Sets or retrieves line-breaking behavior within words, particularly where multiple ar in the object.
</td></tr></table>
1,
function encodestr(str)
dim i
str=trim(str)
str=replace(str,"<","<")
str=replace(str,">",">")
str=replace(str,"'","""")
str=replace(str,vbCrLf&vbCrlf,"</p><p>")
str=replace(str,vbCrLf,"<br>")
encodestr=replace(str," "," ")
end function%>