<%
set rs=server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM menu"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"OutBarFolder1=new Array(<BR>"
Response.Write"'"&rs("menuname")&"'<BR>"
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"'"&rs("images")&"','"&rs("boardname")&"','"&rs("hrefurl")&"?boardname="&rs("boardname")&"&btype="&rs("btype")&"&fileshref="&rs("fileshref")&"','parent.frmright."&rs("win")&"',"&rs("size")&"<BR>"
rs.movenext
wend
rs.close()
Response.Write")"
rs.movenext
wend
rs.close()
%>

<%
set rs=server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM menu"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"OutBarFolder1=new Array(<BR>"
Response.Write"'"&rs("menuname")&"'<BR>"
set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"'"&rs("images")&"','"&rs("boardname")&"','"&rs("hrefurl")&"?boardname="&rs("boardname")&"&btype="&rs("btype")&"&fileshref="&rs("fileshref")&"','parent.frmright."&rs("win")&"',"&rs("size")&"<BR>"
rs.movenext
wend
rs.close()
Response.Write")"
rs.movenext
wend
rs.close()
%>

中间的rs应该改成别的名字，如：rs2

不行

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/meqoo/admin/2.asp, 第 22 行


<%
set rs=server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM menu"
rs.open sql,conn,1,1
while not rs.eof
Response.Write"OutBarFolder1=new Array(<BR>"
Response.Write""&rs("menuname")&"<BR>"
set rs2=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs2.open sql,conn,1,1
while not rs2.eof
Response.Write"'"&rs2("images")&"','"&rs2("boardname")&"','"&rs2("hrefurl")&"?boardname="&rs2("boardname")&"&btype="&rs2("btype")&"&fileshref="&rs2("fileshref")&"','parent.frmright."&rs2("win")&"',"&rs2("size")&"<BR>"
rs2.movenext
wend
Response.Write")"
rs.movenext
wend
rs.close()
%>
表名和连接都是对的,分开单独就可以执行

set rs2=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM board where menuid='"&rs("menuid")&"'"
rs2.open sql,conn,1,1
while not rs2.eof
Response.Write"'"&rs2("images")&"','"&rs2("boardname")&"','"&rs2("hrefurl")&"?boardname="&rs2("boardname")&"&btype="&rs2("btype")&"&fileshref="&rs2("fileshref")&"','parent.frmright."&rs2("win")&"',"&rs2("size")&"<BR>"
rs2.movenext
wend
rs2.close
set rs2=nothing

是不是应该加上关闭对象

我找出来了
menuid='"&rs("menuid")&"'
改为
menuid="&rs("menuid")&"

谢谢你哦