请教各位高手，我的代码有什么问题，不能循环

[zrqlyc]

请问个位高手下面这段代码有什么问题啊？不能循环显示，只能显示一条数据啊？还有请下面的代码能简化吗？
set rs = server.CreateObject ("adodb.recordset")
sql="select * from njtime Order By njtime1 "
rs.open sql,connNJ,1,1
do while (not rs.eof)
If Weekday(Date) ="1" Then
njname= rs("zrq1")
ElseIf Weekday(Date) ="2" Then
njname= rs("zrq2")
ElseIf Weekday(Date) ="3" Then
njname= rs("zrq3")
ElseIf Weekday(Date) ="4" Then
njname =rs("zrq4")
ElseIf Weekday(Date) ="5" Then
njname=rs("zrq5")
ElseIf Weekday(Date) ="6" Then
njname=rs("zrq6")
ElseIf Weekday(Date) ="7" Then
njname= rs("zrq7")
End If
if njname <> "0" then%>
<td><%=rs("njtime1") %></td>
<%set rs= server.CreateObject ("adodb.recordset")
sql="select njname,njmtp from nj where njname='"&njname&"'"
rs.open sql,connnj,1,1%>
<td><%=rs("njmtp") %></td>
<td><%=njname%></td>
<% end if %>
</tr>
<%rs.movenext
loop %>

[Jaron]

<%set rs= server.CreateObject ("adodb.recordset")
sql="select njname,njmtp from nj where njname='"&njname&"'"
rs.open sql,connnj,1,1%>

给这个记录集换个名字

<%set rs1= server.CreateObject ("adodb.recordset")
sql="select njname,njmtp from nj where njname='"&njname&"'"
rs1.open sql,connnj,1,1%>

[李睿_Lee]

我同意 Jaron(唐伯虎点蚊香) 的
试试?

[zrqlyc]

OK，可以啦，谢谢各位。。。原来是还要这样的，初学还不懂啊

[snowcloud2002]

呵呵，顶，都解决了

[李睿_Lee]

优化后:
set rs = server.CreateObject ("adodb.recordset")
sql="select * from njtime Order By njtime1 "
rs.open sql,connNJ,1,1
If not rs.eof Then
If Weekday(Date) ="1" Then
njname= rs("zrq1")
ElseIf Weekday(Date) ="2" Then
njname= rs("zrq2")
ElseIf Weekday(Date) ="3" Then
njname= rs("zrq3")
ElseIf Weekday(Date) ="4" Then
njname =rs("zrq4")
ElseIf Weekday(Date) ="5" Then
njname=rs("zrq5")
ElseIf Weekday(Date) ="6" Then
njname=rs("zrq6")
ElseIf Weekday(Date) ="7" Then
njname= rs("zrq7")
End If
if njname <> "0" then
do while (not rs.eof)%>
<td><%=rs("njtime1")%></td>
<%set rs1= server.CreateObject ("adodb.recordset")
sql="select njname,njmtp from nj where njname='"&njname&"'"
rs1.open sql,connnj,1,1%>
<%If not rs1.eof Then %>
<td><%=rs1("njmtp") %></td>
<td><%=njname%></td>
<%Else%>
<td>暂无</td>
<% end if %>
</tr>
<%rs.movenext
loop
end if %>
<%Else%>
暂无
<% end if %>

试试看?行否?

[李睿_Lee]

不好意思,一不小心搞错了,应该是:
set rs = server.CreateObject ("adodb.recordset")
sql="select * from njtime Order By njtime1 "
rs.open sql,connNJ,1,1
If not rs.eof Then
do while (not rs.eof)%
If Weekday(Date) ="1" Then
njname= rs("zrq1")
ElseIf Weekday(Date) ="2" Then
njname= rs("zrq2")
ElseIf Weekday(Date) ="3" Then
njname= rs("zrq3")
ElseIf Weekday(Date) ="4" Then
njname =rs("zrq4")
ElseIf Weekday(Date) ="5" Then
njname=rs("zrq5")
ElseIf Weekday(Date) ="6" Then
njname=rs("zrq6")
ElseIf Weekday(Date) ="7" Then
njname= rs("zrq7")
End If
if njname <> "0" then
do while (not rs.eof)%>
<td><%=rs("njtime1")%></td>
<%set rs1= server.CreateObject ("adodb.recordset")
sql="select njname,njmtp from nj where njname='"&njname&"'"
rs1.open sql,connnj,1,1%>
<%If not rs1.eof Then %>
<td><%=rs1("njmtp") %></td>
<td><%=njname%></td>
<%Else%>
<td>暂无</td>
<% end if %>
</tr>
<%rs.movenext
loop
end if %>
<%Else%>
暂无
<% end if %>

[李睿_Lee]

或者:
set rs = server.CreateObject ("adodb.recordset")
sql="select * from njtime Order By njtime1 "
rs.open sql,connNJ,1,1
If not rs.eof Then
do while (not rs.eof)%

njname= rs("zrq"&Weekday(Date))或是njname= rs("zrq"&"Weekday(Date)") ??????

if njname <> "0" then
do while (not rs.eof)%>
<td><%=rs("njtime1")%></td>
<%set rs1= server.CreateObject ("adodb.recordset")
sql="select njname,njmtp from nj where njname='"&njname&"'"
rs1.open sql,connnj,1,1%>
<%If not rs1.eof Then %>
<td><%=rs1("njmtp") %></td>
<td><%=njname%></td>
<%Else%>
<td>暂无</td>
<% end if %>
</tr>
<%rs.movenext
loop
end if %>
<%Else%>
暂无
<% end if %>

我没时间调试,不知是否正确???

[zrqlyc]

不好意思,以上的两个中loop后的end if 要放到rs.movenext 前面