porblemas con stripTags

[Ascariz]

Estoy probando unas funciones para quitar el Codigo HTML y no va ninguna de las que ponga aki, por que puede ser ?

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