Function ClearTag(str)
Dim regEx
Set regEx=new RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern ="<.+?>"
strHtml=regEx.Replace(str, "")
ClearTag=str
End Function
Function ClearTag(str)
Dim regEx
Set regEx=new RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern ="<.+?>"
strHtml=regEx.Replace(str, "")
ClearTag=str
End Function
Response.write(ClearTag("<tiydd>q<bdy>y</dfdfdfdfff>p"))