Hola
Por darte otra alternativa. Yo prefiero usar expresiones regulares
Código asp:
Ver original<%
Function LimpiarTags(cadena)
Dim objRegExp
cadena = lcase(cadena)
cadena = Replace(cadena,"'", """")
cadena = Replace(cadena,"", "")
cadena = Trim(cadena & "")
If Len(cadena) > 0 Then
Set objRegExp= New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<[^>]+>" 'todos los tags HTML
'objRegExp.Pattern = "<img[^<>]+>" 'imagenes
strlimpio = objRegExp.Replace(cadena, " ")
Set objRegExp = Nothing
End If
LimpiarTags = strlimpio
End Function
Dim cadalimpiar
cadalimpiar = "<table border='1'><tr><td>hola</td></tr></table><div>adios</div><img src='javier.gif' />"
%>
<%=LimpiarTags(cadalimpiar)%>
Suerte