My Source Code

<%

 

'====

Function stripTags( strToStrip )

'====

Dim objRegExp

strToStrip = Trim( strToStrip & "" )

If Len( strToStrip ) > 0 Then

Set objRegExp = New RegExp

objRegExp.IgnoreCase = True

objRegExp.Global = True

objRegExp.Pattern= "<[^>]+>"

strToStrip = objRegExp.Replace(strToStrip, "")

Set objRegExp = Nothing

End If

stripTags = strToStrip

End Function

 

str="jkjkjjkkljlj; <script>fdfds ;fdsfdsf;fdaf ;fdsafdsfdas;fdsafdas;fdsafdsa</script> fdafdfds fdsfasf"

response.write stripTags( str )

 

%>