<%
Set RsNews = Server.CreateObject("ADODB.Recordset")
sql="select BigClassName from BigClass_New order by BigClassID"
RsNews.open sql,conn,1,3
do while not RsNews.eof
%>
<%
BigClass=RsNews("BigClassName")
n=3
If BigClass<>"" then
sql="select top 3 * from News where BigClassName='"& BigClass &"' order by AddDate desc"
set rs=conn.execute(sql)
do while not rs.eof
%>