Function RemoveHTML( strText )
Dim RegEx
strText = strText.Replace("
", "|br|")
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = strText.Replace("|br|","
")
End Function
Function RemoveHTML( strText )
Dim RegEx
strText = strText.Replace("
", "|br|")
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = strText.Replace("|br|","
")
End Function