<%
colornum=1
do while not Rs.EOF and colornum<=Rs.PageSize
'colornum=colornum+1
%>
<tr align="center">
<%for i=0 to 4
if not Rs.EOF then
colornum=colornum+1
%>
sql="select name,id from table"
rst.Open sql,conn,1,1
while not rst.eof
Response.write "<tr>"
if not rst.eof then
Response.write "<td>"&name&"</td>"
rst.movenext
else
Response.write "<td> </td>"
end if
if not rst.eof then
Response.write "<td>"&name&"</td>"
rst.movenext
else
Response.write "<td> </td>"
end if
wend