<%
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from HN_info where IN_type=1 order by IN_id desc"
rs.open sql,Conn,1,1
if rs.eof then
Response.Write "暂无该类信息或没有找到此类别"
else
DO WHILE Not rs.eof
%>
<%=rs("IN_dome")%>
<%
rs.movenext
LOOP
rs.close
set rs=nothing
end if
%>