<% People=[] RS=new ActiveXObject("ADODB.Recordset") sqlstr='select distinct d.obj,a.obj, c.obj from rdf3 a, rdf3 b, rdf3 c, rdf3 d where b.pred like "%nearestAirport" and b.obj=a.subj and (a.pred="http://www.megginson.com/exp/ns/airports#iata" or a.pred="http://www.daml.org/2001/10/html/airport-ont#iataCode") and b.subj=c.subj and c.pred like "http://xmlns.com/foaf/0.1/name" and (b.subj=d.subj and d.pred="http://xmlns.com/foaf/0.1/mbox_sha1sum") group by d.obj order by b.subj' RS.Open(sqlstr,'rdf2') if (!RS.EOF) { Arr=RS.GetRows().toArray() Arrl=Arr.length for (i=0;i') for (i=0;i'+People[i].mbox+''+People[i].sha1+'') } Response.Write('') %>