ASP removes the HTML style function. The first 100 words on the website homepage are used to remove the style.

ASP removes the HTML style function. The first 100 words on the website homepage are used to remove the style.

<% Function removehtml (strhtml) dim objregexp, match, matches set objregexp = new Regexp objregexp. ignorecase = true objregexp. global = true' get closed <> objregexp. pattern = "<. +?> "'Match strhtml = Replace (strhtml," & nbsp; "," ") set matches = objregexp. execute (strhtml) 'traverses the matching set and replaces the matching item for each match in matches strhtml = Replace (strhtml, match. value, "") Next removehtml = strhtml set objregexp = nothing end Function

%>