<%
function tohtml(from)
	s=from
    s = Replace(s,"&","&amp;")
    s = Replace(s,"<","&lt;")
    s = Replace(s,">","&gt;")
    s = Replace(s,"\t","    ")
    s = Replace(s,"\r\n","\n")
    s = Replace(s,"\n","<br>")
    s = Replace(s,"  "," &nbsp;")
    s = Replace(s,"'","&#39;")
    s = Replace(s,"\\","&#92;")
	s=replace(s," ","&nbsp;")
    s=replace(s,chr(13)&chr(10),"<Br>")
	tohtml=s
end function
'
function htmlto(from)
	ss=from
    ss=Replace(ss,"<br>",chr(10))
    ss=Replace(ss,"<Br>",chr(10))
	ss=replace(ss,"&nbsp;"," ")
	htmlto=ss
end function
%>