Remove Html_ regular Expressions from content

<%
Option Explicit

Function striphtml (strtext)
Dim arysplit,i,j, Stroutput
Arysplit=split (strtext, "<")

If Len (arysplit (0)) >0 then j=1 else j=0

For I=j to UBound (arysplit)
If InStr (Arysplit (i), ">") Then
Arysplit (i) =mid (Arysplit (i), InStr (Arysplit (i), ">") +1)
Else
Arysplit (i) = "<" & Arysplit (i)
End If
Next

Stroutput = Join (Arysplit, "")
Stroutput = Mid (Stroutput, 2-j)
Stroutput = replace (Stroutput, ">", ">")
Stroutput = replace (Stroutput, "<", "<")

striphtml = Stroutput
End Function


%>

<form method= "POST" Id=form1 name=form1>
<b>enter an HTML string:</b><br>
<textarea name= "txthtml" cols= "rows=" "8" wrap= "virtual" ><%=request ("txthtml")%></textarea>
<p>
<input type= "Submit" value= "Strip HTML tags!" Id=submit1 name=submit1>
</form>

<% if Len (Request ("txthtml")) > 0 Then%>
<p><b><u>view of String <i>with no</i> HTML stripping:</u></b><br>
<xmp>
<%=request ("txthtml")%>
</xmp><p>
<b><u>view of string <i>with</i> HTML stripping:</u></b><br>
<pre>
<%=striphtml (Request ("txthtml"))%>
</pre>
<% End If%>