**********紧急求助，原本一行显示一件商品，我想改成一行显示四件商品
请高手们帮帮忙，指点下吧，我用其它代码做参考研究过，但没搞掂

代码如下：


  Sql= "select   *   from   Sales   where   BigTypeID= "&BigTypeID& "   order   by   id   desc "
      set   rs=server.createobject( "ADODB.Recordset ")
      rs.open   sql,conn,1,1

      If   rs.eof   then
        MainCode=MainCode   &   " <tr> <td   width= " "100% " "   height= " "45px " "align= " "center " "> 对不起!   本分类的商品正在整理资料! </td> </tr> "
        Mpage=1
        Allshu=0
      Else
        Rs.pagesize=PageSum   '得到每页数
        Mpage=Rs.PageCount           '得到总页数
        Rs.Move     (CurrentPage-1)*PageSum
        Allshu=Rs.Recordcount
        H=0
do   while   not   rs.eof

      Product=rs( "Product ")
      BigTypeID=rs( "BigTypeID ")
      BrandID=rs( "BrandID ")
      PriceA=rs( "PriceA ")
      PriceB=rs( "PriceB ")
      ProductID=rs( "ProductID ")
      Sign=rs( "Sign ")
      GuiGe=rs( "GuiGe ")
      Capa=rs( "Capa ")
      IfNoSale=rs( "IfNoSale ")
      IfXia=rs( "IfXia ")

      If   IfXia=1   then   BuyCar= " <Img   src= " "/Image/Icon_QueHuo.Gif " "   border= " "0 " "   align= " "absmiddle " "> "
      If   IfNoSale=1   then   BuyCar= " <Img   src= " "/Image/Icon_ZengPin.Gif " "   border= " "0 " "   align= " "absmiddle " "> "
      If   IfNoSale=0   and   IfXia=0   then   BuyCar= " <a   href= " "/AddBuy.Asp?SalesID= "&rs( "ID ")& " " "> <Img   src= " "/Image/Icon_BuyCar.Gif " "   border= " "0 " "   align= " "absmiddle " "> </a> "

      sqlp= "select   *   from   Product   where   ID= "&ProductID& "   order   by   ID   desc "
      set   rsp=server.createobject( "ADODB.Recordset ")
      rsp.open   sqlp,conn,1,1
      Pics=rsp( "Pics ")
      Unit=rsp( "Unit ")
      if   Pics= " "   then
            Pics= " <img   src= " "../ProductPic/NoPics.jpg " "   width=100   height=100   border= " "0 " "   alt= " " "&Brand& " "&Product& " " "> "
      else