Use asp to filter html elements

Use asp to filter html elements:

'Filter html

'Function name: GlHtml

'Use: filter html elements

'Parameter: str ---- to filter characters

'Return value: No html characters

'*************************************** ***********

Public Function GlHtml (ByVal str)

If IsNull (str) Or Trim (str) = "" Then

GlHtml = ""

Exit Function

End If

Dim re

Set re = New RegExp

Re. IgnoreCase = True

Re. Global = True

Re. Pattern = "(\ <. [^ \ <] * \> )"

Str = re. Replace (str ,"")

Re. Pattern = "(\ <\/[^ \ <] * \> )"

Str = re. Replace (str ,"")

Set re = Nothing

Str = Replace (str ,"'","")

Str = Replace (str, Chr (34 ),"")

GlHtml = str

End Function