动网调用图片的显示问题

问题描述：

<%
jpg()
sub jpg()
dim rs,sql,i,n,ds,k
i=0
n=4 '调用个数
k=8 '调用板块
sql="select top "&n&" b.BoardID,b.topicid,b.Title,b.PostUserName,a.F_Filename,a.F_AddTime from [DV_Upfile] a, dv_topic b where a.F_FileType='jpg' AND a.F_Type=1 and a.F_BoardID="&k&" and b.boardid=a.F_BoardID and b.Title=a.F_Readme order by a.F_AddTime desc "
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
SQL=Rs.GetRows(-1)
'循环提取数据
For i=0 To Ubound(SQL,2)
response.write "<div class=inphoto>"
response.write "<a href=dispbbs.asp?boardid="&sql(0,i)&"&id="&sql(1,i)&" title=标题："&right(sql(2,i),30)&" 作者："&right(sql(3,i),16)&" 时间："&right(sql(5,i),16)&" target=""_blank"">"
response.write "<img border='0' src=yjyxnet/"&SQL(4,i)&" width='140' height='100'>"
response.write "<br><img height='3' src='index/images/sp01.gif' width='1' border='0'><br>"
response.write ""&right(dvbbs.htmlencode(sql(2,i)),12)&"</a></div>"
next
else
response.write "无下级版块"
end if
rs.close:set rs=nothing
end sub
%>
谁会动网调用，请回复。上面这段代码调用显示出来的图片排列是纵向的，如果想改变为横向一行显示四张，分两行显示。应该怎样改动。谢谢

问题解答：

作个判断，当取出4个时输出一个</td></tr>