怎么使这段代码横向循环？

[xiqing46]

<%
Set news=Server.CreateObject("Adodb.Recordset")
SqlT="select top 4 id,title from detail where verity=1 order by yl_intime desc,id"
news.open SQLT,conn,1,1
numrow2=0
response.write "<table width=100% border=0 cellpadding=1 cellspacing=1>"
response.write "<tr>"
if news.EOF and news.BOF then
response.write "<td height=20 align=center bgcolor=#FFFFFF>暂时没有内容</td></tr>"
else
numRows=0
While (Not news.EOF)
response.write "<p><img border=1 src=http://open.thumbshots.org/image.pxf?url=http://www.sogua.com/ width=120 height=90></tr><tr>"
response.write ""&news("Title")&""
response.write "</p>"
numRows=numRows+1
news.MoveNext
if (numRows mod 1 =0) Then
numrow2=numrow2+1
response.write "</tr>"
end if
Wend
end if
news.close
Set news = Nothing
response.write "</table>"
%>

[bancxc]

<% 
Set news=Server.CreateObject("Adodb.Recordset") 
SqlT="select top 4 id,title from detail where verity=1 order by yl_intime desc,id" 
news.open SQLT,conn,1,1 
numrow2=0 
response.write " <table width=100% border=0 cellpadding=1 cellspacing=1>" 
response.write " <tr>" 
if news.EOF and news.BOF then 
response.write " <td height=20 align=center bgcolor=#FFFFFF>暂时没有内容 </td> </tr>" 
else 
numRows=0 
While (Not news.EOF) 
response.write " <td>" 
response.write " <p> <img border=1 src=http://open.thumbshots.org/image.pxf?url=http://www.sogua.com/ width=120 height=90> </tr> <tr>" 
response.write ""&news("Title")&"" 
response.write " </p>" 
numRows=numRows+1 
news.MoveNext 
if (numRows mod 1 =0) Then 
numrow2=numrow2+1 
response.write " </td>" 
end if 
Wend 
end if 
news.close 
Set news = Nothing 
response.write " </tr>" 
response.write " </table>" 
%>

[xiqing46]

....奇怪！好像不行..

[Dogfish]

<%
for i=1 to 20
%>
  <div style="display:inline;width:25%"><%=i%></div>
<%
next
%>