请教个问题：ASP+MSSQL网站注册

填完注册资料 》》下一步的时候就出现下面情况  但是资料又能正常保存在服务器上：
Microsoft VBScript 编译器错误 错误 \'800a0411\'

名称重定义

/inc/ubbcode.asp，行 2

const ImagePath=\"/images/\"
------^

我的UBBCODE.asp的代码是下面的：
<%
const ImagePath=\"/images/\"
function UBBCode(strContent)
strContent= FilterJS(strContent)
dim re
dim po,ii
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
po=0
ii=0


re.Pattern=\"\\[HTML\\](.+?)\\[\\/HTML\\]\"
strContent=re.Replace(strContent,\" <table width=\'100%\' border=\'0\' cellspacing=\'0\' cellpadding=\'6\' class=tableborder1> <td> <b>以下内容为程序代码: </b> <br>$1 </td> </table>\")
re.Pattern=\"\\[code\\](.+?)\\[\\/code\\]\"
strContent=re.Replace(strContent,\" <table width=\'100%\' border=\'0\' cellspacing=\'0\' cellpadding=\'6\' class=tableborder1> <td> <b>以下内容为程序代码: </b> <br>$1 </td> </table>\")

re.Pattern=\"\\[color=(.+?)\\](.+?)\\[\\/color\\]\"
strContent=re.Replace(strContent,\" <font color=$1>$2 </font>\")
re.Pattern=\"\\[face=(.+?)\\](.+?)\\[\\/face\\]\"
strContent=re.Replace(strContent,\" <font face=$1>$2 </font>\")
re.Pattern=\"\\[align=(center|left|right)\\](.+?)\\[\\/align\\]\"
strContent=re.Replace(strContent,\" <div align=$1>$2 </div>\")

re.Pattern=\"\\[QUOTE\\](.+?)\\[\\/QUOTE\\]\"
strContent=re.Replace(strContent,\" <table style=\"\"width:80%\"\" cellpadding=5 cellspacing=1 class=tableborder1> <TR> <TD class=tableborder1>$1 </td> </tr> </table> <br>\")
re.Pattern=\"\\[fly\\](.+?)\\[\\/fly\\]\"
strContent=re.Replace(strContent,\" <marquee width=90% behavior=alternate scrollamount=3>$1 </marquee>\")
re.Pattern=\"\\[move\\](.+?)\\[\\/move\\]\"
strContent=re.Replace(strContent,\" <MARQUEE scrollamount=3>$1 </marquee>\")
re.Pattern=\"\\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\\](.[^\\[]*)\\[\\/GLOW]\"
strContent=re.Replace(strContent,\" <table width=$1 style=\"\"filter:glow(color=$2, strength=$3)\"\">$4 </table>\")
re.Pattern=\"\\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\\](.[^\\[]*)\\[\\/SHADOW]\"
strContent=re.Replace(strContent,\" <table width=$1 style=\"\"filter:shadow(color=$2, strength=$3)\"\">$4 </table>\")

re.Pattern=\"\\[i\\](.+?)\\[\\/i\\]\"
strContent=re.Replace(strContent,\" <i>$1 </i>\")
re.Pattern=\"\\[u\\](.+?)(\\[\\/u\\])\"
strContent=re.Replace(strContent,\" <u>$1 </u>\")
re.Pattern=\"\\[b\\](.+?)(\\[\\/b\\])\"
strContent=re.Replace(strContent,\" <b>$1 </b>\")
re.Pattern=\"\\[size=([1-4])\\](.+?)\\[\\/size\\]\"
strContent=re.Replace(strContent,\" <font size=$1>$2 </font>\")
strContent=replace(strContent,\" <I> </I>\",\"\")
set re=Nothing
UBBCode=strContent
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,\"&#106avascript\")
re.Pattern=\"(jscript:)\"
t=re.Replace(t,\"&#106script:\")
re.Pattern=\"(js:)\"
t=re.Replace(t,\"&#106s:\")
\'re.Pattern=\"(value)\"
\'t=re.Replace(t,\"&#118alue\")
re.Pattern=\"(about:)\"
t=re.Replace(t,\"about&#58\")
re.Pattern=\"(file:)\"
t=re.Replace(t,\"file&#58\")
re.Pattern=\"(document.cookie)\"
t=re.Replace(t,\"documents&#46cookie\")
re.Pattern=\"(vbscript:)\"
t=re.Replace(t,\"&#118bscript:\")
re.Pattern=\"(vbs:)\"
t=re.Replace(t,\"&#118bs:\")
re.Pattern=\"(on(mouse|exit|error|click|key))\"
t=re.Replace(t,\"&#111n$2\")
\'re.Pattern=\"(&#)\"
\'t=re.Replace(t,\"＆#\")
FilterJS=t
set re=nothing
end if
End Function

function dvHTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, \">\", \">\")
    fString = replace(fString, \" <\", \" <\")
    fString = Replace(fString, CHR(32), \"\")
    fString = Replace(fString, CHR(9), \"\")
    fString = Replace(fString, CHR(34), \"\"\")
    fString = Replace(fString, CHR(39), \"&#39;\")
    fString = Replace(fString, CHR(13), \"\")
    fString = Replace(fString, CHR(10) & CHR(10), \" </P> <P>\")
    fString = Replace(fString, CHR(10), \" <BR>\")

    dvHTMLEncode = fString
end if
end function

function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern=\"(\\ <.*?\\>)\"
str=re.replace(str,\"\")
re.Pattern=\"(\\ <\\/.*?\\>)\"
str=re.replace(str,\"\")
nohtml=str
end function
%>


请教：  该怎么处理！！！谢谢
网站：www.ooxiu.cn

帮你顶一下

检查一下当前页,应该是ImagePath这个常量已定义过了