ASP 分页横向排列问题?

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from 123"
rs.open sql,conn,1,3
rs.pagesize=30
%>
<table width='180' border='0' align='center' cellpadding='0' cellspacing='0'>
<%
numberColumns = 2 '每行几列
numrows = 15 '总行数
while((numrows <> 0) AND (Not rs.EOF))
temp = 1%>
<tr>
<%While ((temp <= numberColumns ) AND (Not rs.EOF))%>
<td></td>
<%temp = temp + 1
rs.MoveNext()
Wend%>
</tr>
<%
numrows=numrows-1
Wend%>
</table>