om text är innanför <code> så...

Kan man skriva om denna funktionen (skriven av Erik Juhlin), så att den tar bort alla <br> innanför <code> och </code> ?

Function BlockUnAllowedHTML(ByVal sStr)
	Dim vAllowedHTML, i, objRegExp
	vAllowedHTML = Array("b", "u","br","fieldset","legend","hr","strong","code","font")
	
	sStr = Server.HTMLEncode(sStr & "")
	
	Set objRegExp = New RegExp
	objRegExp.IgnoreCase = True
	objRegExp.Global = True
	
	For i = 0 To UBound(vAllowedHTML)
		objRegExp.Pattern = "<(" & vAllowedHTML(i) & ")>([\s\S]*?)</(" & vAllowedHTML(i) & ")>"
		sStr = objRegExp.Replace(sStr, "<$1>$2</$3>")
		objRegExp.Pattern = "&lt;(" & vAllowedHTML(i) & ".*?)&gt;([\s\S]*?)&lt;/(" & vAllowedHTML(i) & ")&gt;"
		sStr = objRegExp.Replace(sStr, "<$1>$2</$3>")
		
	Next 'i
	
	Set objRegExp = Nothing
	
	BlockUnAllowedHTML = sStr
End Function

MVH
Wickmark