<%
set rs=server.createobject("ADODB.Recordset")
sql="select top 8 * from 招聘信息 order by 发布日期 desc"
rs.open sql,conn,1,1
do while not rs.eof
name=rs("公司名称")
set rs1=server.createobject("ADODB.Recordset")
sql1="select * from 公司资料 where 帐号='"&name&"'"
rs1.open sql1,conn,1,1
%>
<%
rs1.close
set rs1=nothing
rs.movenext
loop
rs.close
set rs=nothing
%>
