<%
   dim conn   
   dim connstr

   on error resume next
   connstr="DBQ="+server.mappath("database/w163_data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
   set conn=server.createobject("ADODB.CONNECTION")
   if err then 
      err.clear
   else
        conn.open connstr 
        if err then 
           err.clear
        end if
   end if
%>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0" align="center"  >
  <tr> 

              <%
		ClassID=trim(request("ClassID"))
			ArticleID=request("ArticleID")
	
       set rs3=server.CreateObject("adodb.recordset")
       rs3.open "select top 10 * from w163_Article where ClassID='"&ClassID&"' and ArticleID< 35538 order by UpdateTime desc",conn,1,1

			  if rs3.eof and rs3.bof then
			  response.write "<TR><TD height=20 bgcolor=#FFFFFF align=center>lack of product</td></tr>"
			  else %>
			 
				
			 <TABLE cellSpacing=0 cellPadding=0 WIDTH="100%" align=center border=0 class=table-xia>
              <TBODY>
                
			  <% 
			  j=0
			  do while not rs3.eof %>
			  <tr>
                 <TD width=100% border="0" align=center >
                  <TABLE cellSpacing=0 cellPadding=0 width="140" border=0>
                  <TBODY>
				  <tr><td width=40% colspan="2" align="center" ><A  HREF=list.asp?id=<%=rs3("ArticleID")%> TARGET=_blank> <% = trim(rs3("title")) %></A></td></tr>
                  </TBODY>
                </TABLE></TD>
				
                </TR>
               
				<% rs3.movenext 
				j=j+1
				if rs3.eof then 
		  exit do
	  end if 
	if j>=10 then exit do
	  loop %> 
		<%
	  rs3.close
	   set rs= nothing
	  set rs3= nothing %>
               </TBODY></TABLE>
		<% end if %>
            </td>
          </tr>
		      
      </div>
     </td>
          </tr>
        </table>
