下面这段简单代码，我想改成3列6行的重复方式。
尝试了两天，都没有成功。请高手指点一下，谢谢。
<%
AccountID=request("user_id")
Set Rs = Server.CreateObject("ADODB.Recordset")
    Dim PageSize,AllCount,MaxPage,PageNo
    PageNO        =    Request.QueryString("PageNO")
    SQLStr    =    "select * from desktop where user_id="& AccountID &" Order By id Desc"
    PageSize    =    5
    Rs.PageSize =    PageSize
    Rs.Open SQLStr,conn,1,3
    AllCount    =    Rs.RecordCount
    MaxPage        =    Rs.PageCount
    If Rs.RecordCount > 0 Then
    Rs.MoveFirst
    If PageNO = "" Then PageNO=1
    If PageNO+1 < 1 Then PageNO=1
    If PageNO+1 > MaxPage+1 Then PageNO = MaxPage
    Rs.AbsolutePage = PageNO
    End If
    i=0
    DO While Not Rs.EOF and    i < PageSize
        i=i+1
%>

>" width="90" height="120" alt="点击看大图">

<%
    Rs.MoveNext
    Loop
    Rs.Close()
%>

共有个 <%=AllCount%> 图片  页次: <%=PageNO%><%=MaxPage%>页

<%if PageNO-1>0 then %> &pageNO=1>首页 &pageNO=<%=pageNO-1%>>上一页 <% else %> 首页 上一页 <% end if %> <% if PageNo+1<=MaxPage then %> &pageNO=<%=pageNO+1%>>下一页 &pageNO=<%=MaxPage%>>末页 <% else %> 下一页 末页 <% end if %>