code:
Function RemoveHTML( strText )
	Dim RegEx
	Set RegEx = New RegExp
	RegEx.Pattern = "<[^>]*>"
	RegEx.Global = True
	strText = Replace(strText, "<br>", chr(10))
	text = RegEx.Replace(strText, "")
End Function

code:

<script LANGUAGE=JavaScript>
...
   document.write(...);
...
</script>

code:
Function RemoveScript( strText )
	Dim RegEx
	Set RegEx = New RegExp
	RegEx.Pattern = "<script[.]*</script>"
	RegEx.Global = True
	'strText = Replace(strText, "<br>", chr(10))
	text = RegEx.Replace(strText, "")
End Function

Function RemoveHTML( strText )
	Dim RegEx
	Set RegEx = New RegExp
	RegEx.Pattern = "<[^>]*>"
	RegEx.Global = True
	strText = Replace(strText, "<br>", chr(10))
	text = RegEx.Replace(strText, "")
End Function

' В переменной text содержимое asp файла

RemoveScript(text)
RemoveHTML(text)