Object search.

<% RS=new ActiveXObject("ADODB.Recordset") pred=Request.QueryString('object')+'' pred=pred.replace(/"/gim,'\\"') sqlstr='select distinct u.url from rdf3 r, urlsnew u, provenance p where r.obj="'+pred+'" and r.source=p.id and p.txt=u.ref limit 20' RS.Open(sqlstr,"rdf2") if (!RS.EOF) { Arr=RS.getRows().toArray() Response.Write('

URLs containing the object: '+pred+'

') for (i=0;i'+Arr[i]+'
') } } else { pred=Request.QueryString('object')+'' Response.Write('No '+pred+' Objects found') } %>