大哥给看一下，怎么说 set rs=conn.Execute(sql) 参数不足啊

<% Dim conn,sql,rs,connstr,num set conn=server.createobject("ADODB.connection") connstr="DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db1.mdb") conn.open connstr sql="select biaoti,wenben from yuanchuang where id order by stockid desc" set rs=conn.Execute(sql) for num=0 to rs.fields.Count Response.write "& rs(num) &" next Response.write"</tr>" rs.movenext rs.close conn.close set conn=nothing

%>

<% Dim conn,sql,rs,connstr,num set conn=server.createobject("ADODB.connection") connstr="DRIVER={Microsoft Access Driver (*.mdb)}; dbq=" & server.mappath("db1.mdb") conn.open connstr sql="select biaoti,wenben from yuanchuang where id order by stockid desc" '汗,id没有给值也......去掉where id set rs=conn.Execute(sql) for num=0 to rs.fields.Count Response.write "& rs(num) &" next Response.write"</tr>" rs.movenext rs.close conn.close set conn=nothing

%>