Remove Javascript from HTML

Remove Javascript from HTML

--------------------------------------------------------------------------------

<%
function clearJS(str)
clearJS = str
Set regEx = New RegExp
'This gets rid of onclick and such
oncmds = "Click|DblClick|KeyDown|KeyPress|KeyUp|MouseDown"&_
"|MouseMove|MouseOut|MouseOver|MouseUp"
regEx.Pattern = "(on("& oncmds &")[^>])"
regEx.IgnoreCase = True
regEx.Global = True
clearJS = regEx.Replace(clearJS, "")
'This takes out the ability to use javas
' cript: with href
clearJS = Replace(clearJS, "javascript:", "")
'This clears out < script > tags
regEx.Pattern = "(<[s]c[^>]*>)"
regEx.IgnoreCase = True
regEx.Global = True
clearJS = regEx.Replace(clearJS, "")
regEx.Pattern = "(</[s]c[^>]*>)"
regEx.IgnoreCase = True
regEx.Global = True
clearJS = regEx.Replace(clearJS, "")
End function
%>