<style   media="print">  
  .Noprint   {   DISPLAY:   ;}  
  .PageNext   {   PAGE-BREAK-AFTER:always }  
</style>
<style media="screen"> 
  .Noprint{DISPLAY:none;   }    
</style>
<%
 Dim i,j,no,pagerecord
 pagerecord=30
 j=int(100/pagerecord)+1
%>
    <table id="theObjTable" width="100%" border="0" cellpadding="0" cellspacing="0">
     <%For h=1 to j
      %>
     <tr class="PageNext"><td>
    <table<%If h>1 Then%> class="Noprint"<%End If%> width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr bgcolor="#FFFFFF"><td colspan="11"><div align="center"><font size="+2"><strong>公告</strong></font></div></td></tr></table>
    <table  class="printblack" width="100%" border="1" cellpadding="0" cellspacing="0">
              <tr>
                <td width="4%" height="20"><div align="center">序号</div></td>
              </tr>
     <%
    'no=PageSize*(Page-1)
    For i=1 to pagerecord'PageSize
     no=no+1
     %>
    <tr>
      <td height="20"><div align="center"><%=no%></div></td>           
    </tr>
    <%
     If i+(h-1)*pagerecord>=100 Then Exit For
    Next
    %>
                  </table>
                </td>
              </tr>
              <%Next%>
              </table>