Replace etiquetas

[kalandas]

Hola a todos que tal, ya hice con el programa que me envio trasgukabi, que me quitase las etiquetas del codigo fuente, el problema que tenia era con las etiquetas <script> y <style> pues tampoco queria coger los estilos ni las funciones javascript, lo hice pero no se porque algunas etiquetas <script> me las coge y otras no, y querria eliminar todas el programita es el siguiente a ver si alguien puede ayudarme ciao muchas gracias.

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)="<" or mid(a,i,6)="<style" or mid(a,i,7)="<script" then
			if mid(a,i,6)="<style" then
				i=i+6
				while mid(a,i,8)<>"</style>"
					i=i+1
				wend
			else
				if mid(a,i,7)="<script" then
					i=i+7
					while (mid(a,i,9)<>"</SCRIPT>" and mid(a,i,9)<>"</script>")
						i=i+1
					wend
					i=i+9
				end if
			end if 
			cadena=cadena&"<" 
			principio=1 'se ha encontrado el comienzo de una etiqueta
			final=0 'pero el final no
		end if
		if principio=1 then
			cont=0
			if mid(a,i,8)="</style>" or mid(a,i,8)="</script" then
				i=i+8
				cont=1
			else
				if mid(a,i,1)=">" then
					final=1
					principio=0
				end if
			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
			if cont=1 then
			 	cadena=cadena&">"
			else
				cadena=cadena&mid(a,i,1)
			end if
		end if
	next
	quitatags=cadena 'asi dejas <>
	quitatags=replace(cadena,"<>","")'asi los quitas
end function