初学asp，遇到一个问题，请教各位，在线等！！！

[yclwm3]

<%
dim conn,rs,qq
set conn=server.createobject("adodb.connection")
qq="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("mdb.mdb")
Conn.Open qq,conn,1
Set rs=Conn.Execute("update jbzl set name='ycl' where id='bhzz005'")
if (rs.bof and rs.eof) then
response.write "no records found"
end if
%>
<table border="1" cellpadding="2" cellspacing="1" width="100%" valign='top'>
<tr valign=top>
　　　　 <% For I = 0 to rs.fields.count-1 %>
　　　　 <td>
<%response.write "rs(I).Name" %>
　　　　 </td>
　　 <% Next %>
　　　 </tr>
　　<% Do While Not rs.EOF %>
　　 <tr valign=top>
　　　 <% For I = 0 to rs.Fields.Count-1 %>
　　　　 <td>
　　　　　　<% = rs(I) %>
　　　　　</td>
　　　 <% Next %>
　　 </tr>
　　<% rs.MoveNext %>
　 <% Loop %></table><%rs.Close%><%Conn.Close%>



出现的错误为：
本页无法显示
试图访问的网页出现问题，无法显示。

--------------------------------------------------------------------------------

请尝试以下方法：

单击 刷新按钮或者梢候再试。

打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

--------------------------------------------------------------------------------

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

错误类型：
ADODB.Recordset (0x800A0E78)
/default.asp, 第 7 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)

页：
GET /default.asp

时间：
2003年10月10日, 9:53:12


详细信息：
Microsoft 支持





但把qq换成select * from jbzl 就可以了，我已经更改数据库权限iusr_ibm了，又把数据库所在的文件夹权限完全共享了，还不行，求救！！！

[tigerwen01]

把Conn.Open qq,conn,1
改为Conn.Open qq,conn,1,3

[yanzy]

不知道你的真正目的是什么？

[angelheavens]

conn.open是用来建立与数据库连接,不是来取得数据集的
把Conn.Open qq,conn,1改成:
Conn.Open qq即可

[yclwm3]

把Conn.Open qq,conn,1
改为Conn.Open qq,conn,1,3


conn.open是用来建立与数据库连接,不是来取得数据集的
把Conn.Open qq,conn,1改成:
Conn.Open qq即可

试过了，都不行的呀！！！

[angelheavens]

如果你的目的是判断是否有记录存在和更新相关记录,可以:
<%
dim conn,rs,qq
set conn=server.createobject("adodb.connection")
qq="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("mdb.mdb")
Conn.Open qq
set rs=server.createobject("adodb.recordset"
rs.open "select * from jbzl",conn,1,1
if rs.recordcount<=0 then
response.write "no records found"
rs.close
set rs=nothing
conn.close
set conn=nothing
response.end
end if
Conn.Execute("update jbzl set name='ycl' where id='bhzz005'")
%>

[yclwm3]

十分感谢angelheavens(龙辉)，我的程序好了！菜鸟向你敬个礼，呵呵！！

[tjzym]

<%
dim conn,rs,qq
set conn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
qq="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("mdb.mdb")
Conn.Open qq
rs.open"update jbzl set name='ycl' where id='bhzz005'",conn,1,3
if (rs.bof and rs.eof) then
response.write "no records found"
else
%>
<table border="1" cellpadding="2" cellspacing="1" width="100%" valign='top'>
<tr valign=top>
　　　　 <% For I = 0 to rs.fields.count-1 %>
　　　　 <td>
<%=rs(I).Name%>
　　　　 </td>
　　 <% Next %>
　　　 </tr>
　　<% Do While Not rs.EOF %>
　　 <tr valign=top>
　　　 <% For I = 0 to rs.Fields.Count-1 %>
　　　　 <td>
　　　　　　<% = rs(I) %>
　　　　　</td>
　　　 <% Next %>
　　 </tr>
　　<% rs.MoveNext %>
　 <% Loop %>
</table>
<%
end if
rs.Close
Conn.Close%>

[tjzym]

不好意思,我着急写错了
龙挥的对