<% set dbDepts = getDBConnection() sql = "select * from department order by iddepartment desc" set rsDepts = dbDepts.Execute(sql) %> <% ' Loop through the list of departments. intCellcount = 1 do until rsDepts.EOF if intCellcount = 1 or intCellcount = 4 then response.write("") end if response.write "" intCellcount = intCellcount + 1 if intCellcount = 4 then response.write("") intCellcount = 1 end if rsDepts.MoveNext Loop %> "&""&"  "&rsDepts("chrDeptName")&"             © 2004-2008 All Rights Reserved. Synergy Unlimited