%dim rs,n,bgcolor,rs_1,flag,sql,tab
if datediff("d","2008-12-30",date())>=1 then
'过期
flag = true
sql = "select top 30 id,title,username,hits,votes,addtime from bus_story where isdisplay=1 and isrecommend=1 order by newid()"
tab = "评论"
else
'未过期
flag = false
sql = "select top 30 id,title,username,hits,votes,addtime from bus_story where season_id = 4 and isdisplay=1 and isrecommend=1 order by addtime desc"
tab ="投票"
end if
'response.write flag
%>