<%=Top_PAGECONTENT_Title%>
<%=Top_PAGECONTENT_Content%>
<% end if %>
<%
count = 1
Dim Tr_Count, Count_Article_SQL, Count_Article_SQL_Result, Article_Count, Page_Numbers
Tr_Count = 0
ButtonCount = 0
Do While not Article_SQL_Result.eof
ButtonCount = ButtonCount + 1
if (count >= 1) AND (count <= numResults) then
CategoryID = Article_SQL_Result("Article_Category_ID")
%>
<%Pagename = replace(replace(replace(Article_SQL_Result("Article_Category_Title")," ","_"), "'", ""),",","_")%>
<% if Article_SQL_Result("ArticleCount") > "0" then%>
<%
if TR_Count = 1 then
TR_Count = 0
else
TR_Count = Tr_Count + 1
end if
end if
count = count + 1
Article_SQL_Result.Movenext
Loop
Article_SQL_Result.Close
set Article_SQL_Result = Nothing
Total_Pages = Total_Records \ numResults
if Total_Records mod numResults > 0 then
Total_Pages = Total_Pages + 1
end if
if cint(page_num) > cint(Total_Pages) then
page_num = Total_Pages
end if
%>
<%=Article_SQL_Result("Article_Category_Title")%> (<%=Article_SQL_Result("ArticleCount")%> article<%if Article_SQL_Result("ArticleCount") > "1" then%>s<%end if%>)
<% else %>
<%=Article_SQL_Result("Article_Category_Title")%> (<%=Article_SQL_Result("ArticleCount")%> article<%if Article_SQL_Result("ArticleCount") > "1" then%>s<%end if%>)
<% end if %>
<%=left(Article_SQL_Result("Article_Category_Description"),210)%>
page
<% For PageNumber = 1 to Total_Pages %>
<% if clng(Page_Num) = clng(PageNumber) then %>
<%Next %>
<%=PageNumber%>
<% else %>
<%=PageNumber%>
<% end if%>
