<%
'Supprimer les balises HTML
PublicFonctionReplaceHTML (TextStr)
Dimstr, re
Str = textstr
SetRe = newRegexp
re.ignorecase = true
re.global = true
re.Pattern = "<(. [^>] *)>"
Str = re.replace (str, "")
Setdre = rien
Remplacehtml = str
Finition de fin
%>