是一个ASP的问题,急急

Microsoft VBScript 运行时错误 错误 '800a000d'
类型不匹配

/bbsshow.asp，行 233

<%case"topmoney"
dim allmoney
i=0
set rs=conn.execute("select top 10 userid,name,money,grade,alltopicnum from [user] order by money desc,lasttime desc")

do while not rs.eof
i=i+1
if i>10 then exit do
allmoney=int(allmoney)+rs("money")//////这是223行
rs.movenext
loop
%>
如果改成这个代码:
<%case"topmoney"
dim allmoney :allmoney=0
i=0
set rs=conn.execute("select top 10 userid,name,money,grade,alltopicnum from [user] order by money desc,lasttime desc")

do while not rs.eof
i=i+1
if i>10 then exit do
allmoney=allmoney+cint(rs("money"))//////这是223行
rs.movenext
loop
%>
则提示:Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配
/dtmk/cs/ytf/bbss/bbsshow

是一个ASP的问题,急急 一个asp的问题啊 急急急!!! 一个ASP的问题急急急 asp的一个小问题!!!急急急!!!! 急急急急!ASP里的一个小问题 一个ASP的关于数据输出的问题,急急急!!! 一个关于ASP输出数据的问题,急急急 一个关于ASP输出数据的问题,急急急!!!!! ASP的问题,急急急 一个ASP的问题