Retirar TAG HTML

[mebkocznski 0]

Pessoal,Eu já tinha visto esta função aqui, mas, não estou encontrando.Preciso retirar todas as TAG'S HTML de um código, para transforma-la em um texto simples....

[hinom 5]

<%Function LimpaHTML(matriz)Do While True  ini    = InStr(1,matriz,"<")  If ini  = 0 Then Exit Do  fim    = InStr(ini,matriz,">")  parcial = Mid(matriz,ini,fim-ini+1)  matriz  = Replace(matriz,parcial,"")LoopLimpaHTML  = matrizEnd Functiontexto = "<b>teste</b><br>onon no n"%><%=LimpaHTML(texto)%>

[mebkocznski 0]

<%Function LimpaHTML(matriz)Do While True   ini     = InStr(1,matriz,"<")   If ini  = 0 Then Exit Do   fim     = InStr(ini,matriz,">")   parcial = Mid(matriz,ini,fim-ini+1)   matriz  = Replace(matriz,parcial,"")LoopLimpaHTML  = matrizEnd Functiontexto = "<b>teste</b><br>onon no n"%><%=LimpaHTML(texto)%>

É isso mesmo....Value !!!!

[hinom 5]

server.HTMLEncode(texto) apenas converte as tags, por exmplo

 

<b> ficaria <b>