<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("sj1.mdb")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from test"
rs.open sqlstr,conn,1,3
if rs.eof then
rs.addnew
rs("name").value=name
rs("sex").value=sex
rs("age").value=age
rs.update
rs("note").value=note
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
set conn=nothing
response.write "记录添加成功!"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>


错误代码

技术信息（用于支持人员）

• 错误类型：
  Microsoft VBScript 运行时错误 (0x800A01A8)
  缺少对象
  /reg.asp, 第 32 行
  

• 浏览器类型：
  Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; InfoPath.1)

• 网页：
  POST 38 ??? /reg.asp

• POST Data:
  name=&age=24&note=&Submit=%CC%E1%BD%BB

/reg.asp, 第 32 行
是哪行？你的代码总共才25行。

对不起应该是这样的
<% name=request.form("name")
sex=request.form("sex")
note=request.form("note")
age=request.form("age")
response.write( name )
response.write( sex )
response.write( age )
response.write( note )
%>
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("sj1.mdb")
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from test"
rs.open sqlstr,conn,1,3
if rs.eof then
rs.addnew
rs("name").value=name
rs("sex").value=sex
rs("age").value=age
rs.update
rs("note").value=note
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
set conn=nothing
response.write "记录添加成功!"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

建议发帖时将出错行特别标出，不然大家还要去数你的代码行数！

就是conn.close这一句

response.write "记录添加成功!" 之前你不是做过
rs.close
conn.close
set rs=nothing
set conn=nothing 工作了吗？那在这之后还要做吗？提示缺少对象很正常啊！

if rs.eof then
rs.addnew
rs("name").value=name
rs("sex").value=sex
rs("age").value=age
rs.update
rs("note").value=note '这句是干什么用的？如果是添加的内容，怎么跑到UPDATE外面来了？
rs.close
set rs=nothing
end if
conn.close
set conn=nothing

改成上面的程序，你再试一下！

楼主你是不是怕数据库关闭一次关不上，于是又多关了一次？？？7楼说的错你最好改了。