sub ArticleContent(intTitleLen)
dim i,lb,strli
Response.Write "<table width=100% border=0 cellspacing=2 cellpadding=0><TR><TD></TD></TR>"
i=1
do while not rsArticle.eof
Response.Write "<TR align=""center"">"
strli=""
response.write lb
if i mod 4 <>0 then
end if
if i mod 4 =0 then
Response.Write "</TR><TR></TR>"
end if
rsArticle.movenext
i=i+1
if i>=MaxPerPage then exit do
loop
Response.Write "<TR><TD></TD></TR></Table>"
end sub