<%GetLinks = "SELECT * FROM Forces_FinanceCategories ORDER BY Category" SET RSLinks = MyConn.execute(GetLinks) Do While NOT RSLinks.EOF%> <%RSLInks.Movenext Loop%>