<%set DataTable redThemedNewsFirst=get_article_list("theme", 0, 6, "status=0 and img_url<>'' and is_red=1")%>
<%foreach(DataRow redThemedNewsFirstRows in redThemedNewsFirst.Rows)%>
<%/foreach%>
<%loop redthemecdr1 categoryThemedrList%>
<%set int redcasecid={strtoint({redthemecdr1[id]})} %>
<%set DataTable redThemedNews=get_article_list("theme",redcasecid, 6, "status=0 and is_red=1 ","sort_id asc ")%>
<%foreach(DataRow redthemedr in redThemedNews.Rows)%>
<%/foreach%>
<%/loop%>