Código fuente de 'Elimina tags HTML 4.asp'

<html>

<head>
<title>Elimina tags HTML 4 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>

<body style="font-family: Arial; font-size: 9pt">

<center><b><font face="Arial" size="3">Elimina tags HTML 4</font></b></center><br><br>
Esta función permite eliminar el código HTML de un texto de entrada.<br>
<br>

<b>Ejemplo: 	</b>EliminaHTML(&lt;b&gt;gráfica6.asp&lt;/b&gt;)<br>
<b>Resultado: </b>
<%
    response.write EliminaHTML("<b>gráfica6.asp</b>") 
 %>
<%
    Function EliminaHTML(ByRef asHTML)
    	Dim loRegExp	' Regular Expression Object
    	
    	' Create built in Regular Expression object
    	Set loRegExp = New RegExp
    	' Set the pattern to look for HTML tags
    	loRegExp.Pattern = "<[^>]*>"
    	
    	' Return the original string stripped of HTML
    	EliminaHTML = loRegExp.Replace(asHTML, "")
    	
    	' Release object from memory
    	Set loRegExp = Nothing
    End Function
    

%>

</body></html>