Create function SS_StripHTML(@html varchar(max)) returns varchar(max)

as

Begin

declare @p int

declare @nonspace bit

declare @istag bit

declare @chr varchar(1)

declare @result varchar(max)

set @p=1

set @istag=0

set @result=''

set @nonspace=0

set @html=replace(@html,char(13)+char(10),'')

set @html=replace(@html,'<br>','{&&BR&&}')

while @p<len(@html)

begin

  set @chr=substring(@html,@p,1)

  if @chr='<' set @istag=1

  if @chr='>'

  begin

    set @istag=0

    set @nonspace=0

  end

  else

  begin

  if ascii(@chr)>32 set @nonspace=1

  if @istag=0 and @nonspace=1 set @result=@result+@chr

  end

  set @p=@p+1

end

set @result=replace(@result,'&nbs'+'p;',' ');

set @result=replace(@result,'&am'+'p;','&');

set @result=replace(@result,'&l'+'t;','<');

set @result=replace(@result,'&g'+'t;','>');

set @result=replace(@result,'&quo'+'t;','"');

set @result=replace(@result,'{&&BR&&}',char(13)+char(10));

return @result

end