Automatically remove several ASP functions that contain HTML code in a character

Functional function striphtml (strhtml)
' Strips the HTML tags from strhtml
Dim objRegExp, Stroutput
Set objRegExp = New Regexp
Objregexp.ignorecase = True
Objregexp.global = True
Objregexp.pattern = "<.+?>"
' Replace all HTML tag matches with the empty string
Stroutput = Objregexp.replace (strHTML, "")
' Replace all < & > with < and >
Stroutput = Replace (Stroutput, "<", "<")
Stroutput = Replace (Stroutput, ">", ">")
striphtml = Stroutput ' Return the value of Stroutput
Set objRegExp = Nothing
End Function

Public Function replacehtml (TEXTSTR)
Dim Str,re
Str=textstr
Set re=new REGEXP
Re. IgnoreCase =true
Re. Global=true
Re. Pattern= "< (. [ ^>]*) > "
Str=re. Replace (Str, "")
Set re=nothing
Replacehtml=str
End Function

function nohtml (str)
Dim re
Set re=new REGEXP
Re. IgnoreCase =true
Re. Global=true
Re. Pattern= "(\<.[ ^\<]*\>) "
Str=re.replace (str, "")
Re. Pattern= "(\<\/[^\<]*\>)"
Str=re.replace (str, "")
Nohtml=str
Set re=nothing
End Function

Function striphtml (strhtml)
' Strips the HTML tags from strhtml
Dim objRegExp, Stroutput
Set objRegExp = New Regexp
Objregexp.ignorecase = True
Objregexp.global = True
Objregexp.pattern = "<.+?>"
' Replace all HTML tag matches with the empty string
Stroutput = Objregexp.replace (strHTML, "")
' Replace all < & > with < and >
Stroutput = Replace (Stroutput, "<", "<")
Stroutput = Replace (Stroutput, ">", ">")
striphtml = Stroutput ' Return the value of Stroutput
Set objRegExp = Nothing
End Function