ASP+ACCESS，分析调用文章！高手快进！高分奖励！

我想在主页中调用新闻发布系统中的文章，新闻发布系统中有很多栏目，例如学习园地、班级趣事、师生感情、学生文章。我做了下面的代码，不过把学习园地、班级趣事、师生感情、学生文章这几个栏目的文章全部显示在一起，而我想这几个栏目分开，这样便于浏览查询。请帮我分析一下：我写的代码如下：
<%
dim conn,connstr
on error resume next
connstr="DBQ="+server.mappath("$data$/#$base.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open connstr
SqlChar="'"
%>

<%sub index_news(ind) '''ind为最新的条目数
'============================================================新闻动态
sql="SELECT top "&ind&" * From NewsData Order BY D_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
Response.Write "<table cellSpacing=0 cellPadding=0 width='100%' border=0><tr><td width='20%' height='20'>"
if instr(rs("D_time"),date())<>0 then Response.Write "<font style='color:#cc6600'>"
Response.Write ""&left(rs("D_time"),9)&"</font></td><td style=' "
if instr(rs("D_time"),date())<>0 then Response.Write "color:#cc6600" End if
Response.Write "' width='80%'><a href='ArticleShow.asp?ArtID="&rs("D_id")&"'>"&rs("D_title")&"</a>   [阅读:"&rs("D_count")&"次]"
if instr(rs("D_time"),date())<>0 then Response.Write "<img src='images/zw032.gif'>" End if
Response.Write "</td></tr>"
rs.movenext
loop
response.write "</table>"
if rs.eof and rs.bof then
Response.Write "<div align=center><br><br><br><br><br><font color=""#666666"">目前尚无任何新闻！</font></div>"
end if
if not rs.eof or not rs.bof then
end if
rs.close
set rs=nothing
end sub
%>
<%
call index_news(10) '10为最新的条目数可以自行修改
%>

相关了解……