<% 
                                                     
          StrSQL="select top 20 * from products where Recommend='1' order By PubDate desc"
         oConnRs.Open StrSQL,oConn,1,1 
         lCnt= oConnRs.RecordCount

              Response.Write"<DIV id=demo7 style='OVERFLOW: hidden; WIDTH: 671px; COLOR: #ffffff'><table border='0' cellpadding='0' >"
              Response.Write "<tr valign='top'>"
              Response.Write "<td id=demo3 valign='top' ><table  border='0' cellspacing='3'><tr valign='top'>"

          while not oConnRs.eof 
          Response.Write "<td width='120' valign='top' >"
          
         
Response.Write "      <table width=""160"" border=""0"" cellpadding=""0"" cellspacing=""0"" class='unnamed2'>"
Response.Write "      <tr>"
Response.Write "        <td height=""90"" align=""center"" valign=""bottom"" >"
Response.Write "<table width='120' height='100' border='0' cellpadding='0' cellspacing='1' bgcolor='#CCCCCC' class='unnamed1'><tr><td align='center' valign='middle' bgcolor='#FFFFFF'>"
      
Response.Write "<a href=show.asp?id=" &oConnRs("ID")& " target=""_blank"" ><img width='150' height='113' id=ht"&oConnRs("id")&"  src='"&ImgURL(oConnRs("ImgSrc2"))&"'  border=0 ></a>"
Response.Write "</td></tr></table></td>"
Response.Write "      </tr>"
Response.Write "      <tr>"
Response.Write "        <td height=""20"" align=""center"" valign=""middle""><a href=show.asp?id=" &oConnRs("ID")& " target=""_blank"" class=""t2"" >"&oConnRs("ProduceID")&"</a></td>"
Response.Write "      </tr> <tr><td height=""20""  align=""center"" valign=""middle""><a href=show.asp?id=" &oConnRs("ID")& " target=""_blank"" class=""t2"" >"&oConnRs("name")&"</a></td></tr>"
Response.Write "    </table>"


Response.Write "</td>"

            

              oConnRs.movenext
            
          wend
          Response.Write "</tr></table></td><td id=demo4 valign='top' ></td></tr>"
          Response.Write "</table></div>"

          oConnRs.Close
          %>

这个首页最新产品调用的代码，显示是一行的，如果把他改成 一列 4个产品  分5行呢？希望告诉指点一下，谢谢。

<%
                                                     
          StrSQL="select top 20 * from products where Recommend='1' order By PubDate desc"
         oConnRs.Open StrSQL,oConn,1,1
         if not oConnRs.eof then
        

              Response.Write"<DIV id=demo7 style='OVERFLOW: hidden; WIDTH: 671px; COLOR: #ffffff'><table border='0' cellpadding='0' >"
              Response.Write "<tr valign='top'>"
              Response.Write "<td id=demo3 valign='top' ><table  border='0' cellspacing='3'>"
                  j=1
              Response.Write "<tr valign='top'>"
                  for i=1 to 20
          Response.Write "<td width='120' valign='top' >"
         
         
Response.Write "      <table width=""160"" border=""0"" cellpadding=""0"" cellspacing=""0"" class='unnamed2'>"
Response.Write "      <tr>"
Response.Write "        <td height=""90"" align=""center"" valign=""bottom"" >"
Response.Write "<table width='120' height='100' border='0' cellpadding='0' cellspacing='1' bgcolor='#CCCCCC' class='unnamed1'><tr><td align='center' valign='middle' bgcolor='#FFFFFF'>"
      
Response.Write "<a href=show.asp?id=" &oConnRs("ID")& " target=""_blank"" ><img width='150' height='113' id=ht"&oConnRs("id")&"  src='"&ImgURL(oConnRs("ImgSrc2"))&"'  border=0 ></a>"
Response.Write "</td></tr></table></td>"
Response.Write "      </tr>"
Response.Write "      <tr>"
Response.Write "        <td height=""20"" align=""center"" valign=""middle""><a href=show.asp?id=" &oConnRs("ID")& " target=""_blank"" class=""t2"" >"&oConnRs("ProduceID")&"</a></td>"
Response.Write "      </tr> <tr><td height=""20""  align=""center"" valign=""middle""><a href=show.asp?id=" &oConnRs("ID")& " target=""_blank"" class=""t2"" >"&oConnRs("name")&"</a></td></tr>"
Response.Write "    </table>"


Response.Write "</td>"

            

                              if (j mod 4)=0 then
                              response.Write "</tr><tr>"
                                end if
                                j= j + 1
                                oConnRs.movenext
                                if oConnRs.eof then exit for
                                next
                           
            
        
          Response.Write "</tr></table></td><td id=demo4 valign='top' ></td></tr>"
                        
        end if
                           
          Response.Write "</table></div>"

          oConnRs.Close
          %>