帮我改代码！

[dy_yong]

dim Ausername,Axingmcolor,Abiaoqing,Atowho,Acontent,Asaycolor
Ausername=session("username")
Axingmcolor=request("xmcolor")
Abiaoqing=request("bqing")
Atowho=request("twho")
Acontent=Server.HTMLEncode(request("text"))
Acontent=replace(Acontent,"'","''")
Asaycolor=request("scolor")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../db/ktjlu.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from newchat Order By chattime desc",conn,3,3

rs.AddNew
rs.fields("username")=Ausername
rs.fields("xingmcolor")=Axingmcolor
rs.fields("biaoqing")=Abiaoqing
rs.fields("towho")=Atowho
rs.fields("content")=Acontent
rs.fields("saycolor")=Asaycolor
rs.fields("chattime")=now()
rs.Update

rs.Close
set rs=Nothing
conn.Close
set conn=Nothing
怎么在update处出错，chattime是主键

[ChinaOk]

什么 错误提示？

[希偌]

rs.Open "Select * from newchat Order By chattime desc",conn,1,3
另外就是你
rs.fields("username")=Ausername
rs.fields("xingmcolor")=Axingmcolor
rs.fields("biaoqing")=Abiaoqing
rs.fields("towho")=Atowho
rs.fields("content")=Acontent
rs.fields("saycolor")=Asaycolor
rs.fields("chattime")=now()
这些东西赋了空值！

[dy_yong]

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
/dyong/zhuye/chat/say.asp, 第 26 行

[musicfree_uibe]

在进行游标操作时,如果你使用了Order by 子句,但Order by 的字段没有索引, 则会导至游标为只读属性, 并且不能指定为for Update状态.

解决办法:
去掉Order by 子句或者对Order by的字段进行索引.

[shadowkiss]

rs.Open "Select * from newchat Order By chattime desc",conn,1,3

3,3为只读的