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