"ldap://qew.cs.toronto.edu:3002/o=Ace Industry,c=US"
|
(select 
   unique [text:x.l, url:x.l*".html"],
   [Tag:"tr" /
     [Tag:"td", Text:x.cn] +
     [Tag:"td", Text:x.telephonenumber] +
     [Tag:"td", Text:x.mail] +
     [Tag:"td", Text:x.ou] +
     [Tag:"td", Text:x.roomnumber]
   ] as x.l*".html"
from x in schema via ^^
where x?l)
|
(select 
  [Tag:"H2", Text:"Directory of Ace Industry (for "*x.text*")"]+
  [Tag:"table" /
    [Tag:"th", Text:"Name"]+[Tag:"th", Text:"Tel."]+
    [Tag:"th", Text:"eMail"]+[Tag:"th", Text:"Dept."]+
    [Tag:"th", Text:"Room"]+
    browse(x.url)
  ] as x.url
from x in schema)
|
[Tag:"H2", Text:"Directory of Ace Industry (by location)"]+
[Tag:"ul" /
  select 
    [Tag:"li" /
      x
    ]
  from x in schema
];