<% 'Entfernen Sie HTML -Tags PublicFunctionReplacehtml (textstr) Dimstr, Re STR = Textstr Setre = newRegexp re.Innorecase = true re.global = true re.Pattern = "<(. [^>]*)>" STR = Re.Replace (str, "") Setre = nichts Ersetzenhtml = str Endfunktion %>