<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 5 id,neirong,mob,adddate from xiaoxiyi order by adddate desc",conn,1,1
if err.number<>0 then
response.write "
暂无快讯！"
else
if rs.eof And rs.bof then
response.write "
暂无快讯！"
else
do while not rs.eof
%>
·<%=rs("neirong")%>
咨询热线：<%=rs("mob")%>
<%=rs("adddate")%>
No.B<%=rs("id")%>
<%
if not rs.eof then rs.movenext
loop
end if
end if
rs.close
set rs=nothing
%>