Create function RemoveHTML (@intro varchar(200))
RETURNS varchar(200)
AS
BEGIN
declare @leftbracket char(1)
declare @rightbracket char(1)
declare @resultstring varchar(200)
declare @remainingString varchar(200)
declare @openbracketposition tinyint
declare @closebracketposition tinyint
set @leftbracket = '<'
set @rightbracket = '>'
set @resultstring = ''
set @remainingString = @intro
while len(@remainingString) > 0
begin
set @openbracketposition = charindex(@leftbracket, @remainingString)
if @openbracketposition > 0
begin
set @resultstring = @resultstring + left(@remainingString, @openbracketposition - 1)
set @remainingString = substring(@remainingString, @openbracketposition, 200)
set @closebracketposition = charindex(@rightbracket, @remainingString)
if @closebracketposition > 0
set @remainingString = substring(@remainingString, @closebracketposition + 1, 00)
else
set @remainingString = ''
end
else
begin
set @resultstring = @resultstring + @remainingString
set @remainingString = ''
end
end
RETURN @resultstring
END