pilgrim

	Function StripTags(str_Chaine)
		Dim str_Temp, b_Trouve
		Dim regEx
		
		Set regEx = New RegExp
		regEx.Pattern = "<[^>]*>"
		regEx.IgnoreCase = True
		
		b_Trouve = regEx.Test(str_Chaine)
		if ( b_Trouve ) then
			str_Temp = regEx.Replace(str_Chaine, " ")
			StripTags = StripTags(str_Temp)
		else
			StripTags = str_Chaine
		end if
	End Function