叔侄女恋的肉宠文:怎么让它每排显示4个？

现在他只是显示3个/。我想让他显示4个。

<%set rs=server.createobject("adodb.recordset")
sql="select * from xhb order by id asc"
rs.open sql,conn,1,1
if rs.recordcount=0 then
%>
<table width="700" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" height=300>暂无相关资料，请您稍后访问～！</td>
</tr>
</table>
<%else%>
<table width="750" align="center" border="0" cellspacing="0" cellpadding="0">

<tr><td width="25">
<%i=1
k=2
while not rs.eof%>

<table width="150" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center" class=pic><a href="pic/<%=rs("pic0")%>" target="_blank"><img alt="点击放大～！" src="pic/<%=rs("pic0")%>" border="0" height=180 width=150></a></td>
</tr>
<tr>
<td height=10></td>
</tr>
<tr>
<td align="center" height=26>-- <%=rs("name0")%> --  <a href="index.asp?alt=1&id=<%=rs("id")%>"><strong>投票</strong></a></td>
</tr>
<tr>
<td height=10></td>
</tr>
</table>
<%if k=4 then
k=1%></td></tr><tr><td width="25%"><%else%></td><td width="25%"><%end if%>
<%rs.movenext
i=i+1
k=k+1
wend%>

</td>
</tr>
<%end if%>
</table>

</td>
</tr>
</table>

愿意帮我的朋友可以加我QQ（314013）。弄好以后可以多给分的，谢谢。