ASP 문자열에서 HTML 제거 함수

Function RemoveHTML( strText )

dim contTmp

    set tagfree = New Regexp

    tagfree.Pattern= "<[^>]+>"

    tagfree.Global=true

    strText=tagfree.Replace(strText,"")

    RemoveHTML= strText

End Function