兄弟们，会的都进来帮帮忙好吗？关于首页调用最新数据的问题
<%
dim   zs:zs   =   9   '=====   提取的文章数量
dim   cols:cols   =   3   '====   列数

sn   =   0
sql= "select   top   9   id,s_name   from   info_shop   where   ifhome=1   and   ifvalid=1   order   by   id   asc "
rs.open   sql,conn,1,1
if   not   rs.eof   then  
do   while   not   rs.eof
sn   =   sn   +   1

sid=rs( "id ")  
set   rs2=server.createobject( "adodb.recordset ")
sqltt= "select   top   1   sid   ,id   from   dazhe_info   where   sid= ' "&sid& " '   order   by   id   desc "
rs2.open   sqltt,conn,1,1
If   not   rs2.eof   Then  

set   rs1=server.createobject( "adodb.recordset ")
sqlt= "select   top   5   sid   ,spic     from     pic_shop   where   sid= ' "&sid& " '   order   by   id   desc "
rs1.open   sqlt,conn,1,1
%>
                                                        <td   width= "33% "> <table   width= "96 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">
                                                                <tr>
                                                                    <td> <div   align= "center ">
                                                                            <table   width= "87 "   border= "0 "   cellpadding= "0 "   cellspacing= "0 ">
                                                                                <tr   bgcolor= "#CFCFCF ">
                                                                                    <td   colspan= "3 "   height= "1 "> </td>
                                                                        &nbs