create function strip_tags( @s varchar(4000) )
returns varchar(4000) as
begin
declare @pos1 smallint, @pos2 smallint
set @pos2 = 1
while @pos2 > 0
begin
set @pos1 = charindex('<', @s, @pos2)
set @pos2 = charindex('>', @s, @pos1+1)
if @pos1 = 0 or @pos2 = 0 break
set @s = left(@s, @pos1-1) + right(@s, len(@s)-@pos2)
set @pos2 = @pos2-2
end
return @s
end