大家好，谁能帮助我修改这个ASP程序，其它不变，使得本来竖向排列的产品改成每横向5个分5排，感谢！！

                     </td>
                      <td width="797" valign="top" align="center">
                        <table width="98%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td height="5" colspan="2"></td>
                          </tr>
                          <tr>
                            <td width="43%">
                              <table width="115" border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td height="25" align="center" valign="bottom" background="../images/about_1.gif" class="pt14">
                                    <table width="115" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="20">&nbsp;</td>
                                        <td width="95" valign="bottom" class="pt14">Products</td>
                                      </tr>
                                    </table>
                                  </td>
                                </tr>
                              </table>
                            </td>
                            <td width="57%" align="right">
                              <div align="left"><a href="../01_home/index.asp">Home</a><img src="../images/x_0003.gif" width="15" height="10"><a href="../03_products/index.asp">Products</a></div>
                            </td>
                          </tr>
                        </table>
                        <table width="98%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="100%" height="3" bgcolor="#FFA43B"></td>
                          </tr>
                        </table>
                        <table width="100%" border="0" cellspacing="2" cellpadding="0">
                          <tr>
                            <td width="795">
                              <table width="100%" border="0" cellspacing="2" cellpadding="0">
                                <tr>
                                  <td height="25" bgcolor="#CCCCCC"><img src="../images/x_0004.gif" width="10" height="11" hspace="5">
                                    <%
'
 strMaxName = funGetFieldToValue("ProductMax10","MaxName","MaxID",Trim(Request("MaxID")))
 if strMaxName <> "" then Response.Write(strMaxName)
'
%>
                                  </td>
                                </tr>
                              </table>
                              <form action="" method="post" name="List" id="List">
                                <% 
 SearchMaxID = Trim(Request("MaxID"))
 SearchKeyword = Trim(Request("SearchKeyword"))
 SearchSelect = Trim(Request("SearchSelect"))
 intPageSize = 14
 intCols = 1
 intWidth = 100
 intHeight = 100
 set RsList = server.CreateObject("adodb.recordset")
 SqlList = "SELECT C.ProID, C.ProModel, C.ProName, C.ProImage1, C.ProImage2, C.ProNew, C.ProContent1, C.ProContent2, A.MaxID, A.MaxName FROM ProductMax10 AS A INNER JOIN ProductList10 AS C ON A.MaxID = C.MaxID "
 SqlList = SqlList + " WHERe C.ProID >= 1 "
 If IsNumeric(SearchMaxID) = True And Trim(SearchMaxID) <> "" Then
  SqlList = SqlList + " and A.MaxID = "&SearchMaxID&" "  
 End If
 if SearchKeyword <> "" then
  SearchKeyword = Replace( SearchKeyword, "'", "" )
  Select Case SearchSelect
   Case "1"
    SqlList = SqlList + " and ProModel like '%"&SearchKeyword&"%' "
   Case "2"
    SqlList = SqlList + " and ProName like '%"&SearchKeyword&"%' "
   Case "3"
    SqlList = SqlList + " and ProContent1 like '%"&SearchKeyword&"%' "
   Case "4"
    SqlList = SqlList + " and ProContent2 like '%"&SearchKeyword&"%' "
   Case Else
    SqlList = SqlList + " and ProModel & ProName & ProContent1 & ProContent2 like '%"&SearchKeyword&"%' "
  End Select
 End If
 SqlList = SqlList + " ORDER BY C.ProRank, C.ProUpdateTime DESC , C.ProID DESC "
 RsList.open SqlList, objConn, 1, 1
 if RsList.eof or RsList.bof then
  call subListEof()
 else
  call subListShow()
 end if
 RsList.close
 set RsList = nothing
%>
                                <%
Sub subListEof()
%>