高手看看下面的代码有什么错误：

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
function contentbar(message)
        dim msgstr
        msgstr=msgstr&"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
        msgstr=msgstr&"        <tr><td align='center'><hr color='#000000' size='1' width='100%'></td></tr>"
        msgstr=msgstr&"        <tr><td align='center'><p align=center><font color=red>&nbsp;"& cstr(message) &"</font></p><td></tr>"
        msgstr=msgstr&"</table>"
        response.write msgstr
end function
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
message="提示：已经成功！"
''message变量在程序处理中赋值
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
调用：<% call contentbar(message) %>
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
发生如下错误：

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

类型不匹配: 'contentbar'

/new/cp/test.asp，行96

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
行96 就是：<% call contentbar(message) %>



为什么？？？急死了

你的contentbar是函数，不是过程，所以不需要使用call

直接用<% contentbar(message) %>出同样的错误

为什么？？？我都晕了，一上午了

我测试没有问题

<%
function contentbar(message)
dim msgstr
msgstr=msgstr&"<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>"
msgstr=msgstr&" <tr><td align='center'><hr color='#000000' size='1' width='100%'></td></tr>"
msgstr=msgstr&" <tr><td align='center'><p align=center><font color=red>&nbsp;"& cstr(message) &"</font></p><td></tr>"
msgstr=msgstr&"</table>"
contentbar=msgstr
end function
Response.write contentbar(message)
%>