rc-Dev - The resource site for developers

Here you can find some FREE usefull Classic ASP / VBScript code snippets, class modules, etc.
I use then myself on most of my projects, so you can rest assured they were optimized over time and are very reliable.
You can use them on your personal or commercial projects.
If you find them usefull to you, please make a donation (nomatter how small) to help me keep this content online for free.

Function RemoveTags(String)String This function removes classic <> tags from a String. Usefull for removing HTML formating or XML tags a keep only the text.
Note that everything within the <> Tags will be removed from the String.

Example

<%
response.write RemoveTags("Hello world! How are you?")
' this will display the text without formatting and without the line-break
%>

Source Code

<%
function RemoveTags(byval s)
dim p1, p2
p1=instr(s,"<"):p2=instr(p1+1,s,">")
do while p1>0 and p2>p1
s=left(s,p1-1) & mid(s,p2+1)
p1=instr(s,"<"):p2=instr(p1+1,s,">")
loop
RemoveTags=s
end function
%>