<% 'Display list sqltext = "SELECT links.*,LinkCategories.CatName FROM links INNER JOIN LinkCategories On LinkCategories.Id = Links.CategoryId ORDER BY CategoryId,Title" rs.open sqltext,conn,2,2 if not rs.bof then LastCategory = "0" Do While not rs.eof if bgcolor = "#EFEFEF" then bgcolor = "#FFFFFF" else bgcolor = "#EFEFEF" end if Category = trim(rs("CatName")) if LastCategory <> Category and PageData <> "" then PageData = PageData & "" end if if LastCategory <> Category then PageData = PageData & "" & Category & "

" & vbCrLf end if PageData = PageData & "
• " & trim(rs("Title")) & "
  " & vbCrLf LastCategory = Category rs.MoveNext Loop end if rs.close conn.close %> Firm Background  |   Practice Areas  |   Technology  |   Administrative Staff  |   Clients  |   Related Links
  
  Related Links
  
  MORRIS PICKERING & PETERSON
  RESOURCE LINKS LIBRARY
  
  . . . . . Start your research here.
  
  <%= PageData %>