<% 'Hapus tag HTML PublicFunctionReplaceHTML (TextStr) Dimstr, re Str = textstr Setre = newregexp re.ignorecase = true re.global = true re.pattern = "<(. [^>]*)>" Str = re.replace (str, "") Setre = tidak ada Ganti html = str Fungsi endfungsi %>
