横向显示循环数据(二)

<!--#include file="include/buyok_shop_30_conn.asp"-->
<%
Set rsArticle= Server.CreateObject("ADODB.Recordset")

rsArticle.Open "select  * from buyok_produc where online=true order by AddDate desc",conn,3
%>
<%
if not rsArticle.eof then
  rsArticle.movefirst
%>
<table width="170"  border="1" cellpadding="1" cellspacing="0" bordercolordark="#FFFFFF" bordercolorlight="#cccccc" align=center frame=void>

<%
        do while not rsArticle.eof
%>
      <tr >
<%
            for i=1 to 3
                    if not rsArticle.eof then
%>
  <td>
          <table width="170"  border="0" cellpadding="0" cellspacing="0" align=center>
                      <tr >
                          <td align="center" valign="middle" height=105 colspan=2><a href="<%=rsArticle("DefaultPicUrl")%>" target=_blank><img border=0 src="<%=rsArticle("DefaultPicUrl")%>"  width=100 height=100></a></td>
                      </tr>
          <tr>
                          <td align="center" valign="middle" height=15>产品名称：</td>
                          <td valign="middle" height=15><a href="ArticleShow.asp?ArticleID=<%=rsArticle("articleid")%>" target=_blank><%=rsArticle("Title")%></a></td>
                      </tr>
          <tr >
                        <td align="center" valign="middle" height=15>产品类别：</td>
                        <td valign="middle"><a href="Product.asp?BigClassName=<%=rsArticle("BigClassName")%>" target=_blank><%=rsArticle("BigClassName")%></a></td>
                      </tr>
          <tr >
                        <td align="center" valign="middle" height=15>产品编号：</td>
                        <td valign="middle"><%=rsArticle("Product_Id")%></td>
                      </tr>
          <tr >
                          <td align="center" valign="middle" height=15 colspan=2><a href="ArticleShow.asp?ArticleID=<%=rsArticle("articleid")%>" target="_blank"><img src="Img/arrow_7.gif" border=0></a> <a href="javascript:eshop(<%=rsArticle("Product_Id")%>)"><img src="img/arrow_8.gif" border=0></a></td>
                      </tr>
                </table>
  </td>
<% 
                    else
%>
        <td>
              <table width="170"  border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <TD align=center height=28 valign=middle><font color=red>无新产品</font></td>
                </tr>
            </Table>
        </td>
<%
                    end if
                rsArticle.movenext
            next
%>
      </tr>
<% 
     
  loop
%>
      <tr>
        <td align=right colspan=3><a href="cpjjindex.asp" target="_blank"><font color=#00FF00>更多产品</font> <img src="/shop/Img/MORE2.gif" border="0"></a>  </td>
  <tr>
</table>
<%
else
%>
    <table width="100%"  border="0" cellpadding="0" cellspacing="0">
      <tr>
        <TD align=center height=28 valign=middle><font color=red>无产品1</font></td>
      </tr>
    </Table>
<%
end if
rsArticle.close
rs.close
%>