<%
name=request.form("name")
sex=request.form("sex")
age=request.form("age")
note=request.form("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
while not rs.eof
if rs("name").value=name then
response.write "失败"
else
rs.addnew
rs("name").value=name
rs("sex").value=sex
rs("age").value=age
rs("note").value=note
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write "记录添加成功!"
end if
rs.movenext
wend
%>
浏览器提示：红色的就是第20行

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E2F)
[Microsoft][ODBC Microsoft Access Driver]行中有错误
/reg.asp, 第 20 行

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

网页：
POST 36 ??? /reg.asp

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

时间：
2005年12月29日, 上午 09:57:20

rs("name").value=name
rs("sex").value=sex
rs("age").value=age
rs("note").value=note

看看数据库中的这些字段和上面的一致吗？或者有没有这些字段？？^ ^

一致，但还是提示有错误啊

while not rs.eof
if rs("name").value=name then
response.write "失败"
else
rs.addnew
rs("name").value=name
rs("sex").value=sex
rs("age").value=age
rs("note").value=note
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.write "记录添加成功!"
end if
rs.movenext
wend
你仔细看看，在while语句的第二次循环是不是数据库已经关闭了？看看蓝色部分代码。

wxhwxh聪明！楼主你应该在页面结束的时候再关掉数据库连接，不要太着急关。

很奇怪，为什么要有
rs.movenext
wend
？？？？？？？？？？？

其实他的这段代码思路本来就是有点问题的，不过每个人都有自己的方法嘛，只要能达到目的地就是了，楼上的你说对吗？

<%
name=request.form("name")
sex=request.form("sex")
age=request.form("age")
note=request.form("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 where name='"&name&"'"
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("note").value=note
rs.update
response.write "记录添加成功!"
else response.write "用户名已被占用!"
end if
rs.close
conn.close
set rs=nothing
set conn=nothing

%>
我觉得改成这样比较好。

[此贴子已经被作者于2005-12-29 11:28:57编辑过]