横向分页

<table border="1">
 <tr>
 <% For i = 1 To 11
  
  Response.Write "<td width=‘10‘>"&i&"</td>"
  
  If i Mod 2 = 0  Then Response.Write "</tr><tr>"

    Next
 
    If i Mod 2 = 0 Then Response.Write "<td> </td>"
   
 %>
 </tr>
</table>