<% count = 1 Dim Tr_Count, Count_Link_SQL, Count_Link_SQL_Result, Link_Count, Page_Numbers Tr_Count = 0 ButtonCount = 0 Do While not Link_SQL_Result.eof ButtonCount = ButtonCount + 1 if (count >= 1) AND (count <= numResults) then CategoryID = Link_SQL_Result("Category_ID") %> <% if TR_Count = 1 then TR_Count = 0 else TR_Count = Tr_Count + 1 end if end if count = count + 1 Link_SQL_Result.Movenext Loop Link_SQL_Result.Close set Link_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 %>