<%sub main_teach()

sql="select top "&mainteach&" teach_id,teach_title,teach_date,teach_count from teach order by teach_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="showteach.asp?teach_id=<%=rs("teach_id")%>" title="發表于<%=rs("teach_date")%>,已經被閱讀<%=rs("teach_count")%>次。" target="_blank"> 
      <%if len(rs("teach_title"))>18 then
 response.write ""&left(rs("teach_title"),16)&"..."
else
 response.write ""&rs("teach_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
%>