Questo script può tornare utile in molti casi di stoccaggio delle informazioni provenienti da una pagina web in un database.
Lo script rimuove tutti i tag html lasciando il solo testo puro.
<%
Function RemoveHtmlTag(txt)
Set objRE = createObject("VBScript.RegExp")
objRE.Pattern = "\<[^\>]*\>"
objRE.Global = true
objRE.IgnoreCase = true
RemoveHtmlTag = objRE.Replace(txt,"")
End Function
%>
<%
strText = "Questo contiene <A HREF="">Tag</A> <B>HTML</B> " &_
"e contenuto Testuale"
Response.Write(RemoveHtmlTag(strText))
%> 
