<%
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


%>


  Enter an HTML String:

  
  


  

<% if Len(Request(\”txtHTML\”)) > 0 then %>
   


    View of string with no HTML stripping:

   

<BR>&nbsp; &nbsp; <%=Request(\&#8221;txtHTML\&#8221;)%><BR>&nbsp; &nbsp;


    View of string with HTML stripping:

    


    <%=StripHTML(Request(\”txtHTML\”))%>
   

<% End If %>