请问同时如何更新两个字段,这里涉及到两个数据库。

下面的代码，我是要做到，会员发表一篇文章后，同时给字段“活力”、“文章”添加1。
但是不成功，下面这样写，两个字段全部没有更新。

<%
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("book.mdb")（这是文章的数据库。）
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
%>
<%
title=htmlencode2(request.form("title"))
content=htmlencode2(request.form("content"))

sql="select * from book"

rs.open sql,conn,3,2
rs.addnew
rs("typeid")=Request.Form("typeid")
rs("user_id")=session("u_id")
rs("name")=rs_lar("netname")
rs("title")=title
rs("content")=content
rs("dateandtime")=now()
rs.update
rs.close
rs_lar("huoli")=rs_lar("huoli")+1
rs_lar("wenzhang")=rs_lar("wenzhang")+1
rs_lar.update
rs_lar.close
%>

如果删掉rs_lar("wenzhang")=rs_lar("wenzhang")+1，可以更新huoli

如果删掉rs_lar("huoli")=rs_lar("huoli")+1，却没有更新wenzhang

要更新的huoli、wenzhang字段是另一个数据库。

security.asp的内容：

<%

'叛断Session变量是否超时
if isempty(session("u_id")) or session("u_id")="" then
response.redirect "../timeout.asp"
end if

if session("u_id")=1 then response.redirect "../notreg.asp"

'叛断此用户是否已经注册
Set conn1 = Server.CreateObject("ADODB.Connection")
DBPath1 = Server.MapPath("date/date.mdb")
conn1.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from book where user_id =" & session("u_id")
rs_lar.open sql,conn1,3,2

if rs_lar.eof and rs_lar.bof then
response.redirect "../notregist.asp"
response.end
end if
%>
请高手帮我。
怎样才可以两个同时都更新呀？请高手指点小妹。谢谢。

addnew应该是添加回复吧

只是没有看到作rs_lar的记录集啊,代码还有呢?