从数据表news里按照类型列type的值（假如；最新动态、事实快讯、非税动态等）分组显示的代码怎么写？

<!--#include file="conn.asp"-->
<!--#include file="counter.asp"-->
<%
dim rs,sql
typename=request.QueryString("typename")
set rs = server.createobject("adodb.recordset")
sql="select * from news"
rs.open sql,conn,1,1
%>

1 我是如下写的，可达不到预期目的，总是要么不是全部信息都显示出来就显示"没有此类信息"，不知如何用条件语句来控制？

<%
sql="select top 3 id,type,title from news where group by type and order by date desc"

if rs.eof and rs.bof then
%>
没有信息
<%else%>
<%do while not rs.eof%>
<img src="images/run.gif" width="19" height="18"><%if (rs("type"))="最新动态" then%><A href=list.asp?id=<%=rs("id")%>><%=rs("title")%>;&nbsp;&nbsp;</A>
<% else %>
没有此类信息
<% end if %></td>
<%
rs.movenext
loop
end if

rs.close
%>
</marquee>
</div></td>

没人帮我看吗？

版主都那里去了！急等啊!!

我把GROUP BY  HAVING都用过了，可还是不行，我是个不会写代码的人，请帮帮我好吗？

<%
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select tp from news group by tp"
rs.open sql,conn,1,3
%>
htm....部分省略
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select top 3 * from news where tp='最新动态'"//这里加个order by datetm desc怎么加啊？

rs.open sql,conn,1,3
%>
<%
set rs=server.CreateObject("ADODB.Recordset")
sql="select top 3 * from news where tp='最新动态' order by [datetm] desc"//这样加了，top 3 不起作用，不知为什么？
rs.open sql,conn,1,3
%>

不管谁，指点指点，急啊！

谢谢！顺祝新年快了！