帮我看看，为何循环时显示的记录都是一样的？？？

[pdysuny]

我要取出字段flag=1的所有记录，但显示的时候为什么都是一样的呀？也就是只显示某一行记录。下面的表格已经在在上面有循环语句了，它嵌套在循环的表格中。但为何下面每个表格显示都是一样的值呢？？如下：
<%
if rs("flag")=1 then
%>
<%
set rs1 = Server.CreateObject("ADODB.RecordSet")
sql1="select * from mm where flag='1'"
rs1.open sql1,conn,1,1
fzname3=rs1("fzname3")
color3=rs1("color3")
bh3=rs1("bh3")
price3=rs1("price3")


Response.Write"<table width=98% height=80 border=0 align=left cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>"

Response.Write" <tr> "
Response.Write" <td height=1 bgcolor=#CCCCCC class=b1></td>"
Response.Write" </tr>"
Response.Write"<tr>"
Response.Write" <td height=10 class=b1>类别："&fzname3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=24 class=b1>颜色："&color3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=20 class=b1>编号："&bh3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=27 class=b1>价格：￥"&price3&"</td>"
Response.Write"</tr>"
Response.Write"</table>"
%>
<%

rs1.movenext
rsl.close
set rs1=nothing
end if
%>

[zurong]

老兄差循环的语句啊
do while not rs1.eof
Response.Write"<table width=98% height=80 border=0 align=left cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>"
.....
rs1.movenext
loop

[pdysuny]

但是它已经嵌套在循环的表格里了，代码如下：

<%
dim rs_count,fzname3,color3,bh3,price3
fzname3=rs("fzname3")
color3=rs("color3")
bh3=rs("bh3")
price3=rs("price3")
page=trim(Request.QueryString("page"))

Dim i,j
i=0
j=0
for i=0 to 2
if rs.eof then exit for
%>
<tr>
<% for j=0 to 2 %>
<td width="708" height="207" valign="middle" bgcolor="#CCCCCC"><div align="center"><br>
<table width="99%" height="194" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="222" height="234" rowspan="3" valign="middle" bgcolor="#FFFFFF"><div align="center"><a href="images\<%=rs("picl")%>" onClick="OpenFullSizeWindow(this.href,'','');return false"><img src=image\<%=rs("pic")%> border="0" bordercolor="#C6BABA"></a></div></td>
<td width="473" height="84"><table width="98%" height="84" border="0" align="right" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="20" class="b1">类别：<%=rs("fzname")%></td>
</tr>
<tr>
<td height="24" class="b1">颜色：<%=rs("color")%></td>
</tr>
<tr>
<td height="20" class="b1">编号：<%=rs("bh")%></td>
</tr>
<tr>
<td height="20" class="b1">价格：￥<%=rs("price")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="92" valign="middle" bgcolor="#FFFFFF"><table width="98%" height="80" border="0" align="left" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="1" bgcolor="#CCCCCC" class="b1"></td>
</tr>
<tr>
<td height="10" class="b1">类别：<%=rs("fzname2")%></td>
</tr>
<tr>
<td height="24" class="b1">颜色：<%=rs("color2")%></td>
</tr>
<tr>
<td height="20" class="b1">编号：<%=rs("bh2")%></td>
</tr>
<tr>
<td height="27" class="b1">价格：￥<%=rs("price2")%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="18" valign="middle" bgcolor="#FFFFFF">
<%
if rs("flag")=1 then
%>
<%
set rs1 = Server.CreateObject("ADODB.RecordSet")
sql1="select * from mm where flag='1'"
rs1.open sql1,conn,1,1
fzname3=rs1("fzname3")
color3=rs1("color3")
bh3=rs1("bh3")
price3=rs1("price3")


Response.Write"<table width=98% height=80 border=0 align=left cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>"

Response.Write" <tr> "
Response.Write" <td height=1 bgcolor=#CCCCCC class=b1></td>"
Response.Write" </tr>"
Response.Write"<tr>"
Response.Write" <td height=10 class=b1>类别："&fzname3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=24 class=b1>颜色："&color3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=20 class=b1>编号："&bh3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=27 class=b1>价格：￥"&price3&"</td>"
Response.Write"</tr>"
Response.Write"</table>"
%>
<%

rs1.movenext
rsl.close
set rs1=nothing

end if
%>

</td>
</tr>
</table>
</div></td>
<%
rs.movenext
if rs.eof then exit for
next
%>
</tr>

<%
next
end if
rs.close
set rs=nothing
%>

[zurong]

不清楚你到底要循环那一个？
但是有一点你要肯定
循环体内每次都
set rs1 = Server.CreateObject("ADODB.RecordSet")
sql1="select * from mm where flag='1'"
rs1.open sql1,conn,1,1
怎么会能去下一条记录呢？
rs1.movenext
又有何意义呢

[pdysuny]

已经循环了，下面的表格已经嵌套在循环的表格里了。我把set rs1 = Server.CreateObject("ADODB.RecordSet")
sql1="select * from mm where flag='1'"
rs1.open sql1,conn,1,1
移到了网页顶部，显示的结果还是一样。为什么呢？下面显示的值都一样的表格


Response.Write"<table width=98% height=80 border=0 align=left cellpadding=0 cellspacing=0 bgcolor=#FFFFFF>"

Response.Write" <tr> "
Response.Write" <td height=1 bgcolor=#CCCCCC class=b1></td>"
Response.Write" </tr>"
Response.Write"<tr>"
Response.Write" <td height=10 class=b1>类别："&fzname3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=24 class=b1>颜色："&color3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=20 class=b1>编号："&bh3&"</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td height=27 class=b1>价格：￥"&price3&"</td>"
Response.Write"</tr>"
Response.Write"</table>"

[nbshiny]

楼上的有道理