传承中华传统文化语言:接上代码？？.

接上代码：<tr>
<td bgcolor=#d7e6ff><img src="images/0709.gif" width="56" height="21"><A HREF="news.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "fSubjectID=" & rsSubject.Fields.Item("fSubjectID").Value %>"><%=(rsCurrentSubject.Fields.Item("fSubjectName").Value)%></A></td>
<td bgcolor=#d7e6ff> </td>
</tr>
<%
While ((Repeat2__numRows <> 0) AND (NOT rNews.EOF))
%>
<tr>
<td bgcolor=#d7e6ff>
<ul>
<li> <A HREF="showNews.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "fNewsID=" & rNews.Fields.Item("fNewsID").Value %>" target="_blank"><%=(rNews.Fields.Item("fTopic").Value)%></A></li>
</ul></td>
<td bgcolor=#d7e6ff> </td>
</tr>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rNews.MoveNext()
Wend
%>

<tr>
<td bgcolor=#d7e6ff>
<p><font color="#FF0000">
<% If rNews.EOF And rNews.BOF Then %>
没有新闻
<% End If ' end rNews.EOF And rNews.BOF %>
</font></p>
</td>
<td bgcolor=#d7e6ff> </td>
</tr>
<tr>
<td bgcolor=#d7e6ff>
<p align=right class="style2"><A HREF="more.asp?<%= Server.HTMLEncode(MM_keepURL) %>">更多新闻...</A></p>
</td>
<td bgcolor=#d7e6ff> </td>
</tr>
</tbody>
</table>
<table width="775" border="0" cellspacing="0" cellpadding="0" align="center" height="200">
<tr>
<td> </td>
</tr>
</table>
<!--#include file="buttom.htm" -->
</body>
</html>
<%
rsSubject.Close()
Set rsSubject = Nothing
%>
<%
rsCurrentSubject.Close()
Set rsCurrentSubject = Nothing
%>
<%
rNews.Close()
Set rNews = Nothing
%>