嵌套问题解决办法
演示例子:
<%
Call openDB()
sql="select * from bbstit"
rs.open sql,conn,1,1
If Not rs.eof Then
While Not rs.eof
%>

版块分类：
< =rs("tittype")%>
版块：
<%
Dim sql2,rs2
set rs2=Server.CreateObject("adodb.recordset")
sql2="select * from bbstype where tid="&rs("id")
rs2.open sql2,conn,1,1
if not rs2.eof Then
While Not rs2.eof
%>
<%=rs2("bbsname")%>
<%
rs2.movenext
wend
rs2.close
set rs2=nothing
end if
%>

<%
rs.movenext
Wend
Call closeDB()
End If
%>
2次查询和循环 谢谢大家的帮助!

[此贴子已经被作者于2007-9-15 19:12:04编辑过]

恩 我试试 谢谢

还是不行啊 朋友们Helpme~~``

我完整的介绍一下吧 CONN.ASP数据库调用页 TOP和FOOT是首尾页

我想做个论坛 论坛首页需要调用论坛大区分类 论坛版块分类 而且都需要循环出来

但是我做了大区分类 并且能够循环出来 版块分类 就无法循环出来 就是ASP的嵌套问题

我想显示的就是 一个页面内显示所有分类大区 并显示每个区的所有版块 就是这样 谢谢

CONN内容为:
<%
dim sql
dim rs
dim conn
Dim connString
sub openDB()
set conn=Server.Createobject("ADODB.Connection")
connString="DRIVER={Microsoft Access Driver (*.mdb)};"_
& "DBQ="&Server.MapPath("../yueye.mdb")
conn.open connString
set rs=server.createobject("ADODB.Recordset")
end sub

sub closeDB()
If IsObject(conn) Then
if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing
end if
End If
end Sub%>
- - -- - - - -- - - - -- - - - - -以下为论坛首页内容 -- - - - -- - - - -- - - - -- - - -- - - - --
<!--#include file="conn.asp"-->
<!--#include file="../top.asp"-->
<link href="../images/css.css" rel="stylesheet" type="text/css" />
<br><br>
<%
Call openDB()
sql="select tittype from bbstit"
rs.open sql,conn,1,1
If Not rs.eof Then
While Not rs.eof
%>

<table width="760" height="80" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="109" bgcolor="#FFFFFF">版块分类：</td>
<td width="540" bgcolor="#FFFFFF"><%=rs("tittype")%></td>
<td width="103" bgcolor="#FFFFFF">时间</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">版块：</td>
<td bgcolor="#FFFFFF">
</td>
<td bgcolor="#FFFFFF">文章</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">版主：</td>
<td bgcolor="#FFFFFF">&nbsp;</td>
<td bgcolor="#FFFFFF">&nbsp;</td>
</tr>
</table>
<br>
<%

rs.movenext
Wend
Call closeDB()
End If
%>
<br><br>
<!--#include file="../foot.html"-->

我把错误代码删除了 现在是正常显示分类的大区 请问如何显示每个大区的所有版块

我数据库中 分别有2个表 一个是储存论坛大区分类 一个是储存版块分类以及版块内容
2个表是关联的 大区的ID 是版块内的TID
<%=rs("tittype")%>是分类大区中的 大区标题
<%=rs("bbsname")%>是版块分类中的 版块标题

都是独立的

我修改了一下 因为查询条件是大区表内的ID 等于版块表内的TID
你的少了一个while我也加上了 不加不好使 加上后也是提示错误 但是不是缺少while语句了
错误提示:
错误类型：
ADODB.Recordset (0x800A0CC1)
在对应所需名称或序数的集合中，未找到项目。
/bbs/bbsindex.asp, 第 29 行

<!--#include file="conn.asp"-->
<!--#include file="../top.asp"-->
<link href="../images/css.css" rel="stylesheet" type="text/css" />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" background="../images/top_001_r1_c9_r4_c2.jpg">
<tr>
<td valign="top"><table width="892" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="28" valign="top" bgcolor="#FFFFFF"><img src="../images/top_001_r1_c9_r3_c3.jpg" width="28" height="662"></td>
<td width="840" valign="top" bgcolor="#FFFFFF"><div align="center">
<%
Call openDB()
sql="select tittype from bbstit"
rs.open sql,conn,1,1
If Not rs.eof Then
While Not rs.eof
%>

<table width="760" height="80" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="109" bgcolor="#FFFFFF">版块分类：</td>
<td width="540" bgcolor="#FFFFFF"><%=rs("tittype")%></td>
<td width="103" bgcolor="#FFFFFF">时间</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">版块：</td>
<td bgcolor="#FFFFFF">
<%
set rs1=Server.CreateObject("adodb.recordset")
sql1="select * from bbstype where tid='"&rs("id")&"'"
rs1.open sql,conn,1,1
if not rs1.eof Then
While Not rs1.eof
%>
<%=rs("bbsname")%>
</td>
<td bgcolor="#FFFFFF">文章</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">版主：</td>
<td bgcolor="#FFFFFF">&nbsp;</td>
<td bgcolor="#FFFFFF">&nbsp;</td>
</tr>
<%
rs1.movenext
wend
rs1.close
set rs1=nothing
end if
%>
</table>
<%

rs.movenext
Wend
Call closeDB()
End If
%>

</div></td>
<td width="24" valign="top" bgcolor="#FFFFFF"><div align="right"><img src="../images/top_001_r1_c9_r3_c6.jpg" width="23" height="662"></div></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="../foot.html"-->

回楼主大人 大区表内的ID=版块表内的TID 需要调用的标题是大区表(bbstit)标题字段为(tittype)版块表(bbstype)标题字段(bbsname)

谢谢热心版主