急!求助!

[xiewb]

我的程序用ACCESS数据库显示一切正常,但转用SQL2000后出现这样的问题:

Microsoft VBScript 运行时错误 错误 '800a005e'

无效使用 Null: 'replace'

/Style/UbbCode.Asp，行 107

UBBcode.asp的源文件如下:
<%
function UBB(Content)
'HTML Code
Content = HTMLcode(Content)
'UbbCode
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True

re.Pattern="(javascript)"
Content=re.Replace(Content,"javascript")
re.Pattern="(jscript:)"
Content=re.Replace(Content,"jscript:")
re.Pattern="(js:)"
Content=re.Replace(Content,"js:")
re.Pattern="(value)"
Content=re.Replace(Content,"value")
re.Pattern="(about:)"
Content=re.Replace(Content,"about:")
re.Pattern="(file:)"
Content=re.Replace(Content,"file:")
re.Pattern="(document.cookie)"
Content=re.Replace(Content,"documents.cookie")
re.Pattern="(vbscript:)"
Content=re.Replace(Content,"vbscript:")
re.Pattern="(vbs:)"
Content=re.Replace(Content,"vbs:")
re.Pattern="(on(mouse|exit|error|click|key))"
Content=re.Replace(Content,"on$2")

re.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]"
Content=re.Replace(Content,"<font color=$1>$2</font>")
re.Pattern="\[align=(center|left|right)\](.[^\[]*)\[\/align\]"
Content=re.Replace(Content,"<div align=$1>$2</div>")
re.Pattern="\[i\](.[^\[]*)\[\/i\]"
Content=re.Replace(Content,"<i>$1</i>")
re.Pattern="\[u\](.[^\[]*)(\[\/u\])"
Content=re.Replace(Content,"<u>$1</u>")
re.Pattern="\[b\](.[^\[]*)(\[\/b\])"
Content=re.Replace(Content,"<b>$1</b>")
re.Pattern="\[size=([1-8])\](.[^\[]*)\[\/size\]"
Content=re.Replace(Content,"<font size=$1>$2</font>")
Content=Replace(Content,"<I></I>","")
re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
Content= re.Replace(Content,"<A HREF=$2 TARGET=_blank>$2</A>")
re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
Content= re.Replace(Content,"<A HREF=$2 TARGET=_blank>$3</A>")
re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
Content= re.Replace(Content,"<A HREF=mailto:$2>$2</A>")
re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"
Content= re.Replace(Content,"<A HREF=mailto:$2 TARGET=_blank>$3</A>")
re.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]"
Content=re.Replace(Content,"<a onfocus=this.blur() href=$1://$2 target=_blank><IMG

SRC=$1://$2 border=0 alt=按此在新窗口浏览图片 onload='javascript:if(this.width>330)

this.width=330'></a>")
re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]

\':+!]+)"
Content = re.Replace(Content,"<a target=_blank href=$1>$1</a>")
re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]

\':+!]+)$"
Content = re.Replace(Content,"<a target=_blank href=$1>$1</a>")
re.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-

&_~`@[\]\':+!]+)"
Content = re.Replace(Content,"$1<a target=_blank href=$2>$2</a>")
re.Pattern = "(^[(http://|http:\\)])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)

(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)

*)"
Content = re.Replace(Content,"<a target=_blank href=http://$2>$2</a>")
re.Pattern = "([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)"
Content = re.Replace(Content,"<a target=_blank href='mailto:$2'>$2</a>")

set re=Nothing
UBB=Content
end function

Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(javascript)"
t=re.Replace(v,"javascript")
re.Pattern="(jscript:)"
t=re.Replace(t,"jscript:")
re.Pattern="(js:)"
t=re.Replace(t,"js:")
re.Pattern="(value)"
t=re.Replace(t,"value")
re.Pattern="(about:)"
t=re.Replace(t,"about:")
re.Pattern="(file:)"
t=re.Replace(t,"file:")
re.Pattern="(document.cookie)"
t=re.Replace(t,"documents.cookie")
re.Pattern="(vbscript:)"
t=re.Replace(t,"vbscript:")
re.Pattern="(vbs:)"
t=re.Replace(t,"vbs:")
re.Pattern="(on(mouse|exit|error|click|key))"
t=re.Replace(t,"on$2")
re.Pattern="(&#)"
t=re.Replace(t,"＆#")
FilterJS=t
set re=nothing
end if
End Function

function HTMLcode(Content)
if not isnull(Content) then
Content = Replace(Content, " "," ")
Content = Replace(Content, ">", ">")
Content = Replace(Content, "<", "<")
Content = Replace(Content, "\", "\\")
Content = Replace(Content, CHR(13), "")
Content = Replace(Content, CHR(10), "<BR>")
Content = Replace(Content, CHR(34), """)
Content = Replace(Content, CHR(39), "'")
HTMLcode = Content
end if
end function
%>
请问高手如何解决呢?????