function DelHtml(str)
Dim tempStr
tempStr=str
If Not IsNull(tempStr) Then
tempStr=Replace(tempStr,"<","<")
tempStr=Replace(tempStr,">",">")
tempStr=Replace(tempStr,"&#","<i>&#</i>")
tempStr=Replace(tempStr,"'","'")
tempStr=Replace(tempStr,"""",""")
tempStr=Replace(tempStr,Chr(13),"")
tempStr=Replace(tempStr,Chr(10),"<br>")
tempStr=Replace(tempStr,Chr(32)," ")
tempStr=Replace(tempStr,Chr(9)," ")
DelHtml=tempStr
End If
end function