La página tienen todo correcto el HTML y ademas el
Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Código:
Function stripTags(s) Dim re Set re = New RegExp re.Pattern = "(<[c-gC-Gj-kJ-Km-oM-Oq-tQ-Tv-zV-Z][^>]*>)" re.Global = True clearTags = re.Replace(s, "") stripTags = clearTags End Function
Código:
Function stripTags( strToStrip ) Dim objRegExp strToStrip = lcase(strToStrip) strToStrip = Replace(strToStrip,"'", """") strToStrip = Replace(strToStrip,"", "") strToStrip = Trim( strToStrip & "" ) If Len( strToStrip ) > 0 Then Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<[^>]+>" strToStrip = objRegExp.Replace(strToStrip, "") Set objRegExp = Nothing End If stripTags = strToStrip End Function
Código:
Function stripTags(HTMLstring) Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "<[^>]+>" 'use for all html tags .Pattern = "<img[^<>]+>" 'use for images .IgnoreCase = True .Global = True End With stripTags = RegularExpressionObject.Replace(HTMLstring, "") Set RegularExpressionObject = nothing End Function
Código:
Function stripTags( strToStrip ) Dim objRegExp strToStrip = Trim( strToStrip & "" ) If Len( strToStrip ) > 0 Then Set objRegExp = New RegExp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern= "<[^>]+>" strToStrip = objRegExp.Replace(strToStrip, "") Set objRegExp = Nothing End If stripTags0 = strToStrip End Function