请高手指教：错误类型:（0x80020009)发生意外。

Question

源代码如下，它总说第45行出现错误
<!--#include file="conn.asp"-->
<%
Aclassid=request("classid")
Aboardid=request("boardid")
head=request("ifhead")
ifimg=request("ifimg")
ifshow=request("ifshow")
fromsite=request("fromsite")
ArticleContent=request("content")
writer=request("writer")
Articletitle=request("title")

set rs=server.createobject("adodb.recordset")
sql="select * from article where (id is null)"
'on error resume next
rs.open sql,conn,1,3
rs.addnew
rs("title")=Articletitle
rs("content")=ArticleContent
rs("classid")=Aclassid
rs("boardid")=Aboardid
rs("fromsite")=fromsite
rs("writer")=writer
rs("ifhead")=head
rs("ifimg")=ifimg
rs("ifshow")=show
rs("addtime")=now()
rs("username")=session("username")
rs.update

rs.close
set rs=nothing

set rs = server.CreateObject ("Adodb.recordset")
sql="select * from class where classid="&cstr(Aclassid)
rs.open sql,conn,1,2
count=rs("classNum")+1
rs.close
sql="update class set classNum="&count&" where classid="&cstr(Aclassid)
conn.execute(sql)

set rs = server.CreateObject ("Adodb.recordset")
sql="select * from board where boardid="& cstr(Aboardid)
rs.open sql,conn,1,2
count1=rs("boardNum")+1 （就是这里）
rs.close
sql="update board set boardNum="&count1&" where boardid="&cstr(Aboardid)
conn.execute(sql)

username=session("username")
set rs = server.CreateObject ("Adodb.recordset")
rs.Open "Select * From admin where username='" &username&"'", conn, 3,3
'sql="select * from users where username= "& trim(session("username"))
'rs.open sql,conn,1,1
count2=rs("articleNum")+1
rs.close
sql="update admin set articleNum="&count2&" where username='" &username&"'"
conn.execute(sql)
response.Redirect "all_list.asp?classid="&cstr(Aclassid)&"&boardid="&cstr(Aboardid)&""
%>

请高手告诉我应该怎么改。谢谢。
上边两种方法都试了，还是不行。不过也要谢谢。

Answer 1

把count1和count2 那里全部用CLNG转换一下在相加看看
count1=Clng(rs("boardNum"))+1
count2=Clng(rs("articleNum"))+1

Answer 2

楼上的推测很有道理