刚学asp, 碰到了一个小问题不知道如何解决，请帮我看一下这一行代码!!多谢了！

[edgethinking]

以下是一个计算网页计数器的小 程序。

<%
dim a
sna = 1
Providera = "Provider=Microsoft.Jet.OLEDB.4.0;"
Patha = "Data Source=" & Server.MapPath("ghost.mdb")
Set conna = Server.CreateObject("ADODB.Connection")
pa = Providera & Patha
conna.Open pa

Set rsa = Server.CreateObject("ADODB.Recordset")
rsa.Open "Select * From ghost Where sn= "& sna,conna,1,3

a = rsa("count")+1

rsa("count")=a //提示此句出错!!!如果去掉这一句与下面一句，
rsa.update //则没有错, 请问是什么原因???
%>

--------------
数据库ghost

sn(自动编号), count 数字


\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
如果我把
rsa("count")=a
rsa.update
两句替换成 response.write a ,能正确的显示次数11, 现在就是不能给次数累加，
我确实不知道错在哪了。

[zbxubing]

rsa.addnew //加上这句
rsa("count")=a
rsa.update

[baby21st]

conna.execute "update ghost set count = count + 1 Where sn= "& sna

[baby21st]

或者这样
rsa.Open "Select * From ghost Where sn= "& sna,conna,3,2

试试

[chang1216]

a = rsa("count")+1

rsa("count")=a //提示此句出错!!!如果去掉这一句与下面一句，
rsa.update //则没有错, 请问是什么原因???

〉== 改成
a = rsa("count")+1
rsa.addnew
rsa("count")=a //提示此句出错!!!如果去掉这一句与下面一句，
rsa.update //则没有错, 请问是什么原因???
这样应该可以

[itlcx]

累加可以用insert语句:
dim into_db

into_db = "INSERT INTO ghost (count) VALUES(" & "'" & a & "'" & ")"
conna.Execute(into_db)