<%sub main_news()

sql="select top "&mainnews&" news_id,news_title,news_date,news_count from news order by news_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>

<table width="98%" border="0" cellspacing="1" cellpadding="0" style="border-collapse: collapse" align="center">
<%
do while not rs.eof
%>
  <tr>  
    <td height="20"><img src="images/pic/star.gif" width="12" height="12" border="0"> 
      <a href="shownews.asp?news_id=<%=rs("news_id")%>" title="發表于<%=rs("news_date")%>,已經被閱讀<%=rs("news_count")%>次。" target="_blank"> 
      <%if len(rs("news_title"))>18 then
 response.write ""&left(rs("news_title"),16)&"..."
else
 response.write ""&rs("news_title")
end if%>
      </a></td>
  </tr>
  <%
rs.movenext
loop
if rs.eof and rs.bof then
%>
  <tr> 
        <td align="center">暫時沒有新聞！</td>
  </tr>
  <%end if%>
</table>
<%
rs.close
set rs=nothing
end sub
%>