请问asp如何插入1条记录到2个数据表

如题：
假如数据库名为：data,里面有k_user【表里有ID(用户ID),PASS（用户密码）,jinfen（用户积分）】表和k_ip【表里有ID（用户ID），IP（访问ip)




用户点击：../tongji.asp?id=123
执行查询k_ip表有没有这个IP，如果没有就把ID,IP插入到k_ip表里并在k_user表里按照ID更新k_user里的jinfen(积分在原有基础上+1)记录
完成后跳转到index.asp
下面是我写的，希望高手帮帮忙，感激不尽。
<%

db="data.mdb"'数据库的相对地址
set conn=server.createobject("adodb.connection") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db) 
dim ip
ip=request.ServerVariables("REMOTE_ADDR") "ip获取
dim id
id=request.querystring("id") "id获取
If conn.Execute("Select * from k_ip where ip='"& ip &"'").EOF Then "判断k_ip表里是否存在获取的IP
exec="insert into test(id,ip) values('"&id&"','"&ip&"')" "插入获取的ID，和IP
就是这里不知道怎么更新k_user表里的积分
conn.execute exec 
conn.close 
set conn=nothing 
  end if
%>

希望高手帮忙，谢谢

---

exec="insert into k_ip(id,ip) values('"&id&"','"&ip&"')" "插入获取的ID，和IP
exec2="update k_user set jinfen=jinfen+1 where id="&id

不过最好