Remove HTML Tag Function

create FUNCTION udfRemoveHTMLTag
(
@vrHTMLString VARCHAR(MAX))
RETURNS VARCHAR(MAX)
AS
BEGIN
DECLARE @firstIndex INT
DECLARE @LastIndex INT
DECLARE @TotalLength INT
DECLARE @firstIndex2 INT
DECLARE @LastIndex2 INT
DECLARE @TotalLength2 INT

SET @firstIndex = CHARINDEX('<',@vrHTMLString)
SET @LastIndex = CHARINDEX('>',@vrHTMLString,CHARINDEX('<',@vrHTMLString))
SET @TotalLength = (@LastIndex - @firstIndex) + 1

WHILE @firstIndex > 0 AND @LastIndex > 0 AND @TotalLength > 0
    BEGIN
        SET @vrHTMLString = STUFF(@vrHTMLString,@firstIndex,@TotalLength,'')
        SET @firstIndex = CHARINDEX('<',@vrHTMLString)
        SET @LastIndex = CHARINDEX('>',@vrHTMLString,CHARINDEX('<',@vrHTMLString))
        SET @TotalLength = (@LastIndex - @firstIndex) + 1
    END
SET @firstIndex2 = CHARINDEX('&',@vrHTMLString)
SET @LastIndex2 = CHARINDEX(';',@vrHTMLString,CHARINDEX('&',@vrHTMLString))
SET @TotalLength2 = (@LastIndex2 - @firstIndex2) + 1

WHILE @firstIndex2 > 0 AND @LastIndex2 > 0 AND @TotalLength2 > 0
    BEGIN
        SET @vrHTMLString = STUFF(@vrHTMLString,@firstIndex2,@TotalLength2,'')
        SET @firstIndex2 = CHARINDEX('&',@vrHTMLString)
        SET @LastIndex2 = CHARINDEX(';',@vrHTMLString,CHARINDEX('&',@vrHTMLString))
        SET @TotalLength2 = (@LastIndex2 - @firstIndex2) + 1
    END
RETURN LTRIM(RTRIM(@vrHTMLString))
END