Classic ASP Strip HTML Function

stripStringHTML.asp

<%
FUNCTION stripHTML(strHTML)
  Dim objRegExp, strOutput, tempStr
  Set objRegExp = New Regexp
  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<(.|n)+?>"
  'Replace all HTML tag matches with the empty string
  strOutput = objRegExp.Replace(strHTML, "")
  'Replace all < and > with &lt; and &gt;
  strOutput = Replace(strOutput, "<", "&lt;")
  strOutput = Replace(strOutput, ">", "&gt;")
  stripHTML = strOutput    'Return the value of strOutput
  Set objRegExp = Nothing
END FUNCTION
%>

Thanks for the function it works

Sweet, I had one but this is much better. Thanks

If the string contains the string "<spec...>" it will be removed. I don't think it's a valid function.
Should we warn users not to use "<" and ">" individually?

The purpose of the function is to strip HTML markup from a defined string. It is not meant to be a parser of markup nor a markup validator, however providing a string like "This is a <strong><spec></strong> tag" would be invalid markup in any case and as such should already be correctly encoded like "This is a <strong>&lt;spec&gt;</strong> tag". EDIT: even these comments filter like this, hence my edit.