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

<html>

<head>
<title>Elimina Tags Html 2 - 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 2</font></b></center><br><br>

<%
Function TagEater(strPage)
    Do
        pos = 1
        StartTag = InStr(pos,strPage,"<")
        If StartTag > 0 Then
            pos = StartTag
            If UCase(mid(strPage,StartTag,7)) = "<SCRIPT" Then
                ScriptEnd = Instr(StartTag,UCase(strPage),"</SCRIPT>")
                strPage = Left(strPage,StartTag-1) & Right(strPage,Len(strPage)-ScriptEnd-8)
            Else
                EndTag = InStr(pos,strPage,">")
                If EndTag > 0 Then
                    strPage = Left(strPage,StartTag-1) & Right(strPage,Len(strPage)-EndTag)
                Else
                    strPage = Left(strPage,StartTag-1)
                    Exit Do
                End If
            End If
        Else
            Exit Do
        End If
    Loop
    TagEater = strPage
End Function

If Request.Form.Count > 0 Then
    thePage = Request.Form("thePage")
    '*** replace line feeds with <br>'s so it displays in browser correctly
    Response.Write Replace(TagEater(thePage),CHR(13),"<br>")
    Response.End
End If
%>

<HTML>
<BODY>

<form action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method=post>
Esta función permite eliminar el código HTML de un texto de entrada. Introduce 
el código HTML y pulsa &quot;Enviar consulta&quot;.<p>
<textarea name=thePage cols=50 rows=20></textarea>
<br><input type=submit>
</p>
</form>

<p><font face="Arial" size="1">Fuente: <a href="http://www.actionjackson.com/">
http://www.actionjackson.com/</a> </font></p>

</BODY>
</HTML>