<%
strsql="select * from mic_news_type where type_id=5 order by id"
set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open strsql, conn, 1, 1
do while not rs1.eof
%>
<%
sql="select top 8 * from news_info where mic_news_type = "&rs1("id")&" order by id desc"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 1
do while not rs.eof
%>
- " title ="<% =rs("title") %>" ><% =rs("title") %>
- <% =rs("datetime") %>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
%>