正则获取pre之间的内容再过滤br

只想让文字出现<br>，<pre></pre>里面的代码不让出现<br>而是回车换行
<%
a = rs("content")
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = False '是否区分大小写
re.Global = True '只匹配搜索到的第一个还是全部
re.Pattern = "<pre name=code class=html>?=.*</?br[^>]*></pre>" '定义正则表达式
a = re.Replace(a, "0") '用空字符""替换匹配到的
Response.Write(a)
%>

以上代码，主要是想删除<pre name=code class=html></pre>之间的<br>字符，但是我试了没有效果，如果直接：
re.Pattern = "</?br[^>]*>" '定义正则表达式

这样倒是有效，但为何不能从<pre></pre>之间进行删除？不想删除所有内容的<br>字符，只想从<pre></pre>之间删除。

Pattern = "<(br|/br|br/)>(?=((?!</?pre).)*</pre>)"