%
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
bEnter an HTML String:/bbr
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 %
phrp
buView of string iwith no/i HTML stripping:/u/bbr
xmp
%=Request("txtHTML")%
/xmpp
buView of string iwith/i HTML stripping:/u/bbr
pre
%=StripHTML(Request("txtHTML"))%
/pre
% End If %