<%
RS=new ActiveXObject("ADODB.Recordset")
sqlstr='select distinct u.url from rdf3 r, urlsnew u, provenance p where r.pred like "%ical-full%" and r.source=p.id and p.txt=u.ref group by source limit 20'
RS.Open(sqlstr,"rdf2")
if (!RS.EOF) {
Arr=RS.getRows().toArray()
for (i=0;i
')
}
}
%>