<% 'Удалите HTML -теги PublicFunctionReplaceHtml (Textstr) Dimstr, re Str = Textstr Setre = newRegexp re.ignorecase = true re.global = true re.pattern = "<(. [^>]*)>" Str = re.replace (str, "") Setre = ничего Replyhtml = str Конечная функция %>
