function ShowNewArticle1(ArticleNum,TitleLen,ClassID,caname)
dim sqlNew,rsNew,strrow,strcol,i,tmpdata
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
nt2003.Name=caname
sqlRoot="select * From ArticleClass where ParentID=" & ClassID & ""
Set rsRoot= Server.CreateObject("ADODB.RECORDSET")
rsRoot.open sqlRoot,conn,1,1
arrClassID=ClassID
do while not rsRoot.eof
arrClassID=arrClassID & "," & rsRoot(0)
rsRoot.movenext
loop
rsRoot.close
set rsRoot=nothing
sqlNew="select top 20 A.ArticleID,A.Title,A.Author,A.UpdateTime,A.Hits,A.ReadLevel,L.LayoutFileName from article A inner join Layout L on L.LayoutID=A.LayoutID where A.Deleted=False and A.Passed=True"
if instr(arrClassID,",")>0 then
sqlNew=sqlNew & " and A.ClassID in (" & arrClassID & ") order by A.articleid desc"
else
sqlNew=sqlNew & " and A.ClassID=" & Clng(arrClassID) & " order by A.articleid desc"
end if
Set rsNew = nt2003.execute(sqlNew)
if rsNew.bof and rsNew.eof then
nt2003.value=""
else
nt2003.value = rsNew.GetString(,,"