<% Call OpenDB() sql = "select * from categoryTbl where featurecat=1 and catActive=1 order by catsort" 'and ParentCatID = 0 set rs = DBConn.Execute(sql) if not rs.eof then mysidenavlist = "" rs.movefirst Do while not rs.eof if isNumeric(rs("catActive")) AND cint(rs("catActive")) <> 0 then cls = IIF(rs.AbsolutePosition = 1,"class=""first""","") mysidenavlist = mysidenavlist & "

" & rs("catedesc") & "

" end if rs.movenext Loop 'whole thing rs.close set rs= nothing end if 'write out categories If len(mysidenavlist) > 0 Then response.Write mysidenavlist End If Call CloseDB() %>