%
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="50" 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>hr>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 %>