asp+access产品展示页面代码 显示问题
asp+access产品展示页面代码 显示问题：我要显示成2行3列的，但是现在的代码有点问题谁能帮我修改一下，我是菜鸟，<!--#include virtual="./DB.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from productinfo",conn,1,1
if not rs.eof and not rs.bof then
if request("page")<>"" then
page=cint(request("page"))
else
page=1
end if
if request("line")<>"" then
line=6
else
line=6
end if
if page>(rs.RecordCount-1)\line+1 then
response.Write "<script LANGUAGE='javascript'>alert('对不起，出现错误！');history.go(-1);</script>"
response.end
end if
rs.PageSize=2
rs.AbsolutePage=page
do while not rs.eof
%>
<table width="150" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="120" align="center" class="Tbl"><a href="/productDetail.asp?proid=<%=rs("proid")%>" target="_blank"><img src="/<%=rs("proimage")%>" width="200" height="160" border="0"></a></td>
</tr>
<tr>
<td height="48" align="center" bgcolor="#FFFFFF"><a href="/productDetail.asp?proid<%=rs("proid")%>" target="_blank" class="Blue12"> <%=rs("proName")%></a> </td>
</tr>
</table>
<br>
<%
rs.movenext
i=i+1
if i>=rs.pagesize then exit do
loop
%>
<br>
<br>
<%if page<>1 then%>
<a href=search.asp?keyword=<%=request(keyword)%>&page=1&line=<%=line%>>第一页</a>
<%else%>
<font color="#C0C0C0">第一页</font>
<%end if%>
?
<%if page>1 then%>
<a href=search.asp?keyword=<%=request(keyword)%>&page=<%=page-1%>&line=<%=line%>>前一页</a>
<%else%>
<font color="#C0C0C0">前一页</font>
<%end if%>
?
<%if page<rs.PageCount then%>
<a href=search.asp?keyword=<%=request(proid)%>&page=<%=page+1%>&line=<%=line%>>下一页</a>
<%else%>
<font color="#C0C0C0">下一页</font>
<%end if%>
?
<%if page<>rs.PageCount then%>
<a href=search.asp?keyword=<%=request(keyword)%>&page=<%=rs.PageCount%>&line=<%=line%>>最后一页</a>
<%else%>
<font color="#C0C0C0">最后一页</font>
<%end if%>
?共 <font color=red><b><%=rs.PageCount%></b></font> 页，您现查看的是第 <font color=red><b><%=page%></b></font> 页
<%end if%>
