Remover caracteres "tags" na tela

[webfuture 0]

Galera tenho um sistema de notícias em um site onde o administrador cadastra noticias pelo FCKEDITOR, tudo funciona perfeito, porém se realizado uma busca no banco de dados e for listar os titulos e partes das noticias, ele pega tags que o editor acrescenta a noticia e distorce o layout de resultados, entre as tags que vi são elas:

 

<p align="justify"><font face="Arial">

</font></p>

<strong>

</strong>

<p><font face="Arial">

<font face="Arial">

<p><br />

<br />

</a>

</p>

 

Onde escrevo o Response.Write descricao, tentei fazer um replace como segue abaixo:

 

function remove_quotes(texto)texto = replace(texto,"<p align=""justify""><font face=""Arial"">","")texto = replace(texto,"</font></p>","")texto = replace(texto,"<strong>","")texto = replace(texto,"</strong>","")texto = replace(texto,"<p><font face=""Arial"">","")texto = replace(texto,"<font face=""Arial"">","")texto = replace(texto,"<p><br />","")texto = replace(texto,"<br />","")texto = replace(texto,"</a>","")texto = replace(texto,"</p>","")remove_quotes = textoend function

Mas não resolveu, alguém sabe como posso retirar estas tags na hora de listar os resultados na tela para nao distorcer o layout ?

 

Se alguém puder ajudar,

 

WEbFuture

[Felipe Fonseca 0]

Tente primeiro ... tirar as aspas ...Replace(texto, ""","")depois ... texto = replace(texto,"<p align=justify><font face=Arial>","")tente assim ...

[webfuture 0]

Olá FelipeFonseca, tentei fazer isto mas o erro apresentado foi:Constante de seqüência não finalizadaincludes/funcoes/remove_quotes.asp, line 58, column 29texto = replace(texto,""","")----------------------------^WebFuture

[webfuture 0]

Tentei com texto = replace(texto,chr(34),"")Mas também não rolou, continua trazendo as tags do FCKEDITOR.WEbFutureEncontrei o que sobrou do replace e adicionei, funcionou perfeito, valeu pela dica,WebFuture

[arr 0]

Function LimpaHTML(matriz)Do While Trueini = InStr(1,matriz,"<")If ini = 0 Then Exit Dofim = InStr(ini,matriz,">")parcial = Mid(matriz,ini,fim-ini+1)matriz = Replace(matriz,parcial,"")LoopLimpaHTML = matrizEnd Function