ASP横向重复显示记录

<%

'建立记录集

str="select * from table"

set conn=server.createobject("ADODB.Connection")

sql="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("db.mdb")

conn.open sql

set rs=server.createobject("ADODB.Recordset")

rs.open str,conn,1,1

%>

以下为显示界面

 <%

dim num_tr
     num_tr=0

%>
 <table width="111" height="67%" border="0" cellpadding="0" cellspacing="0">
    <%

while not rs.eof

%>  

 <tr>
        <td width="780" height="43"><%= rs("title") %></td>

   <%
   num_tr=num_tr+1
 If num_tr mod 2=0 Then
 response.write "</tr><tr>"
 End If
%>

    <% 
   rs.movenext
   loop %>
    </table>