在线等，帮帮我。。。

[jervis82]

<%
sub t(rs)
response.Write("<table boeder=1>")
for i=0 to rs.fields.count-1
response.Write("<td>"+rs(i).name+"</td>")
next
while not rs.eof
response.Write("<tr>")
for i=0 to rs.fields.count-1
v=rs(i)
if isnull(v) then v=""
response.Write("<td valign=top>"+cstr(v)+"</td>")
next
rs.movenext
wend
response.Write("</table>")
end sub
%>


<%set cn=server.CreateObject("adodb.connection")
cn.open "DSN=ql;"%>


<h3>s1表 姓名，年龄和工资<br></h3>
<%
set rs1=server.createobject("adodb.recordset")
strsql="select 姓名,年龄,工资 from s1"
rsl.open strsql,cn
t(rs1)
%>

<h3>s1表 姓名，地址和电话<br></h3>
<%
set rs2=server.createobject("adodb.recordset")
strsql="select 姓名,地址,电话 form s1"
rs2.open strsql,cn
t(rs2)
%>

<%
cn.close
set cn=nothing
set rs1=nothing
set rs2=nothing
%>



上面的代码出错了。具体如下:

s1表 姓名，年龄和工资

Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: ''

/9/9-17.asp, 行29

[dgm8]

sub没有创建对象，for i=0 to rs.fields.count-1
你那有创建rs?

[avonqin]

rsl.open strsql,cn
-->
rs1.open strsql,cn

肯定可以啦！！！

[avonqin]

rsl不同于rs1，看清楚点

[zorou_fatal]

rs1?
rsl?

[jervis82]

avonqin(李文) :你的眼力真好，视力是8。0版本的吧。：）到底怎样看出来的？

[yangzixp]

1?l?

[ttt2]

<%
sub t(rs)
set rs3=server.create("adodb.recordset")
rs3=rs
response.Write("<table boeder=1>")
for i=0 to rs3.fields.count-1
response.Write("<td>"+rs3(i).name+"</td>")
next
while not rs3.eof
response.Write("<tr>")
for i=0 to rs3.fields.count-1
v=rs3(i)
if isnull(v) then v=""
response.Write("<td valign=top>"+cstr(v)+"</td>")
next
rs3.movenext
wend
response.Write("</table>")
end sub
%>

[avonqin]

rsl.open strsql,cn
改为：
rs1.open strsql,cn

肯定可以啦！！！你们没看出来？