杭州实力建筑机械:网页制作ASP问题！我的图片是每行只显示1个，怎么样能变成每行显示4个

<table width="100%" height="142" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="142" valign="top"><%
set rs=server.createobject("adodb.recordset")
rs.open "select * from nasuo_photo order by bookid desc",conn,1,3
if rs.recordcount=0 then
%>
<table width="90%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td align=center>暂无图片</td>
</tr>
</table>
<%
else
rs.PageSize =2 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")

if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if

if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if

rs.AbsolutePage=Page

if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x
%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" width="40%"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="121" height="47"><div align="center">
<%if rs("bookpic")<>"" then
response.write "<a href="&trim(rs("bookpic2"))&" target=_blank><img src="&trim(rs("bookpic"))&" width=140 height=110 border=0></a>"
else
response.write "<img src=images/emptybook.gif width=140 height=110 border=0>"
end if%>
</div></td>
</tr>
</table>
<div align="center"><a href="tpyx.asp" class="nextlink"><%=rs("bookname")%></a></div></td>
</tr>
</table>
<span class="z2">
<%rs.movenext
next
'call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
end if
rs.close
set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
.........................
.......