Replace etiquetas

[trasgukabi]

Esto he entendido yo que quieres hacer, tú diras si te ha servido

Código:

<%
function quitatags(a)
	cadena=""
	principio=0
	final=1
	for i=1 to len(a) ' recorres toda la cadena
		if mid(a,i,1)="<" then
			cadena=cadena&"<" 'esto lo he puesto porque creo que querías dejar los símbolos
			principio=1 'se ha encontrado el comienzo de una etiqueta
			final=0 'pero el final no
		end if
		if principio=1 then
			if mid(a,i,1)=">" then 
				final=1
				principio=0
			end if
		end if
		if principio=0 and final=1 then 'si no se ha encontrado ninguna etiqueta, o se ha llegado al final de una, se empiezan a añadir los caracteres
			cadena=cadena&mid(a,i,1)
		end if
	next
	quitatags=cadena 'asi dejas <>
	'quitatags=replace(cadena,"<>","")'asi los quitas
end function 
response.write quitatags("123456789<9876543210>123456789")
%>

también tiene la putada de que si sólo existe "<" pero no ">", te borrará todo lo que siga a "<". pero eso te lo dejo a tí y a la función Instr.

un saludo.