a 3D Spinning worlds w/text

Upload
INSTRUCTIONS:
Call the function from you code like below:
strResults=TrimHTML ("Plain Text.<BR><B>Should be bold!</B><BR><b>Should be bold</B><BR><i>should be italics</i><BR><B><I>Bold + italics!</B></i>","b,i,BR")
In this case, strRestuls will hold the new text. Notice that I have specified 3 tags which I dont want it to remove from the string. You can do as many as you want but remember that you should not put the "<" and ">" around them when calling this function.
If you want it to remove all HTML tags, then use then specify "" as the second perimeter when calling the function... heres an example:
strResults=TrimHTML ("Plain Text.<BR><B>Should be bold!</B><BR><b>Should be bold</B><BR><i>should be italics</i><BR><B><I>Bold + italics!</B></i>","")
---------------------------------------
<%
strResults=TrimHTML ("Plain Text.<BR><B>Should be bold!</B><BR><b>Should be bold</B><BR><i>should be italics</i><BR><B><I>Bold + italics!</B></i>","")
 Response.Write strResults
Function TrimHTML (strHTML,arrDontTrim)
 strHTML=Replace(strHTML,"<","&#60;")
strHTML=Replace(strHTML,">","&#62;")
If len(arrDontTrim)<>0 Then
arrDontTrim=Split(arrDontTrim,",")
For i = 0 to ubound(arrDontTrim)
strHTML=Replace(strHTML,"&#60;" & arrDontTrim(i) & "&#62;","<" & arrDontTrim(i) & ">",1, -1, vbTextCompare)
strHTML=Replace(strHTML,"&#60;/" & arrDontTrim(i) & "&#62;","</" & arrDontTrim(i) & ">",1, -1, vbTextCompare)
Next
End If
 TrimHTMl= strHTML
End Function
%>