<%
sql ="Select top 8 id,subject,addtime From news where subtype=16 Order By addtime DESC"
set rs=server.createobject("adodb.recordset")
n=1
rs.open sql,conn,1,1
do while not rs.eof
response.write "

"
response.write "
" &(left(rs("subject"),22))& ""
if len (rs("subject"))>22 then
response.write "..."
end if
if datediff("d",rs("addtime"),now())<1 then
response.write "

"
elseif datediff("d",rs("addtime"),now())<10 then
response.write "

"
elseif datediff("d",rs("addtime"),now())<30 then
response.write "

"
end ifresponse.write "
"
rs.MoveNext
n=n+1
Loop
rs.close
set rs=nothingresponse.write ""
%>