怎样让友情连接超过7个后自动从第二排排起?

这是网站的友情连接源程序,只能显示一排,超过7个后第一个就挤掉了:
怎样让友情连接超过7个后自动从第二排排起?
请教高手帮忙,最好在源程序中直接加入.谢谢!!!
<%@ codepage ="936" %>
<!--#include file="../str/asst.asp"-->
<!--#include file="con5.asp"-->
<%
const TbMax=7
dim tbsql
dim tbrs
tbsql="select * from banner where bz=3 order by linkid desc"
Set tbrs= Server.CreateObject("ADODB.Recordset")
tbrs.open tbsql,conn,1,1
%>
<%do while not tbrs.eof%>
document.write('<a target="_blank" href="<%=tbrs("web")%>"><img border=0 src="yqlj/picture/<%=tbrs("picurl")%>" alt="<%=tbrs("deseriptor")%>" width="88" height="31" style="border: 1px solid #000000"></a>  ')
<% b=b+1
if b>=TbMax then exit do
tbrs.movenext
loop
tbrs.close
set t

<%@ codepage ="936" %>
<!--#include file="../str/asst.asp"-->
<!--#include file="con5.asp"-->
<%
const TbMax=7
dim tbsql
dim tbrs
tbsql="select * from banner where bz=3 order by linkid desc"
Set tbrs= Server.CreateObject("ADODB.Recordset")
tbrs.open tbsql,conn,1,1
%>
<%do while not tbrs.eof%>
document.write('<a target="_blank" href="<%=tbrs("web")%>"><img border=0 src="yqlj/picture/<%=tbrs("picurl")%>" alt="<%=tbrs("deseriptor")%>" width="88" height="31" style="border: 1px solid #000000"></a> ')
<% b=b+1
if b>=TbMax then exit do
tbrs.movenext
if b=6 then
<br>
end if
loop
tbrs.close
set tbrs=nothing
conn.close