For遍历出列表信息

    <%
    dim menuid3
    set rs=server.createobject("adodb.recordset")
    rs.open "select menuId from menus where menuname='政策法规'",conn,1,1
    if not rs.eof then
     for i=1 to rs.recordcount
      if i=1 then
       menuid3 = rs("menuId")
      else
       menuid3=menuid3&","&rs("menuId")
      end if
     rs.movenext
     next     
    end if
    rs.close
    set rs=nothing    
    
    set rs=server.createobject("adodb.recordset")
    rs.open "select top 10 * from policyStatute where menuId in ("&menuid3&") order by datetime desc",conn,1,1
    if not rs.eof then
     for i=1 to rs.recordcount
    %> 
    <tr>
    <td width="4%" height="20"><img src="images/logo1.gif" /></td>
    <td width="76%" align="left"><a href="info.asp?states=policyStatute&Id=<%=rs("id")%>" class="hl_leftpdt" target="_blank"><%= left(rs("title"),25)%>..</a></td>
    <td width="20%" align="left"><%=rs("datetime")%> </td>
    </tr>
    <tr><td colspan="3"><img src="images/xxx4.gif" /></td></tr>
    <%
     rs.movenext
     next
    end if
    rs.close
    set rs = nothing
    %>