总有这样提示“Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: ''”

[sinoo71]

麻烦各位高手帮我分析以下

<%
Dim Conn
Dim ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
'ConnStr = "Provider = Sqloledb; User ID =IUSR_XT; Password =; Initial Catalog = firm; Data Source = 127.0.0.1;Trusted_Connection=yes"
ConnStr = "DRIVER={SQL Server};SERVER=127.0.0.1;UID=IUSR_XT;PWD=;Database=firm;Trusted_Connection=yes"
Conn.Open ConnStr
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = conn
rs.open "select * from firm_producequality_zlbz_国家标准"
Response.Write("表《国际标准》中包含 " & CStr(rs.RecordCount) & " 条记录<BR>")

%>
<table border=1>
<tr bgcolor=#00ffff>
<%
for i=1 to rs.fields.count-1
resopnse.write"<td>"&rs(i).name&"</td>"
next
%>
<tr>
<%
rs.movefrist
while not rs.eof
row="<tr>"
for i=0 to rs.fields.count-1
row=row&"<td>"&rs(i)&"</td>"
next
response.wriet row&"</tr>"
rs.movenext
wend
%>
</table>
<%
myconn.close
Response.Write("数据库已经关闭")
%>

我写了以上代码可是总有这样提示：
————————————————-----------
表《国际标准》中包含 -1 条记录

Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''

/cpzl/dddd.asp，行27
——————————————————————
1. 数据库的表中有20条记录，怎么显示-1条呢？
2.这跟表中字段类型有关系吗？（标题：varchar型,内容：varchar型，这样对吗？最好用那种类型）
3缺少什么对象？
请大家指教，谢谢！

[Zerolone]

<%
'这样不知道行不行。you try
Dim Conn
Dim ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "DRIVER={SQL Server};SERVER=127.0.0.1;UID=IUSR_XT;PWD=;Database=firm;Trusted_Connection=yes"
Conn.Open ConnStr
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from [firm_producequality_zlbz_国家标准]", conn , 1, 3
Response.Write("表《国际标准》中包含 " & rs.RecordCount & " 条记录<BR>")

%>
<table border=1>
<tr bgcolor=#00ffff>
<%
for i=0 to rs.fields.count-1
resopnse.write"<td>"&rs(i).name&"</td>"
next
%>
</tr>
<%
'^^^^^^ 我只找到这个语法错误，你看看生成页面的Source Code

rs.movefrist
while not rs.eof
row="<tr>"
for i=0 to rs.fields.count-1
row = row & "<td>"&rs(i)&"</td>"
next
response.write row&"</tr>"

rs.movenext
wend
%>
</table>
<%
rs.close
conn.close
Response.Write("数据库已经关闭")
%>

[chinaworker]

数据库读取失败


另外response.wriet也写错了

[ryuginka]

up

[Zerolone]

<%
'这样不知道行不行。you try
Dim Conn
Dim ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "DRIVER={SQL Server};SERVER=127.0.0.1;UID=IUSR_XT;PWD=;Database=firm;Trusted_Connection=yes"
Conn.Open ConnStr
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from [firm_producequality_zlbz_国家标准]", conn , 1, 3
Response.Write("表《国际标准》中包含 " & rs.RecordCount & " 条记录<BR>")

%>
<table border=1>
<tr bgcolor=#00ffff>
<%
for i=0 to rs.fields.count-1
resopnse.write"<td>"&rs(i).name&"</td>"
next
%>
<tr>
<%
rs.movefrist
while not rs.eof
row="<tr>"
for i=0 to rs.fields.count-1
row=row&"<td>"&rs(i)&"</td>"
next
response.write row&"</tr>"
rs.movenext
wend
%>
</table>
<%
rs.close
conn.close
Response.Write("数据库已经关闭")
%>

[yown]

将rs.open "select * from [firm_producequality_zlbz_国家标准]"
改为：
rs.open "select * from [firm_producequality_zlbz_国家标准]", conn , 1, 3

要注意打开的参数

[sinoo71]

该后记录数显示对了，可是内容显示不出来，究竟缺少什么对象？
高手再给指点一下吧！！谢谢！