ASP中数据库提取图片如何换行

<table width="565" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr align="center" valign="top">
<td width="38" height="1"><div align="center">
<img border="0" src="images/bt_wyrj.gif" width="40" height="111" align="center"> </div></td>
<%
i=1
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from eatba_hotel where isrec='1' and passflag=1 order by create_time desc"
rs.open sql,conn,1,1
do until rs.eof or i>6
%>

<td width="527">
<table width="90" border="0" cellpadding="0" cellspacing="1" bgcolor="#dddddd&q

<table width="565" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr align="center" valign="top">
<td width="38" height="1"><div align="center">
<img border="0" src="images/bt_wyrj.gif" width="40" height="111" align="center"> </div></td> <td width="527">
<table width="90" border="0" cellpadding="0" cellspacing="1" bgcolor="#dddddd">

<%
i=1
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from eatba_hotel where isrec='1' and passflag=1 order by create_time desc"
rs.open sql,conn,1,1
do while not rs.eof
if i mod 6=1 then