Subject search.

<% RS=new ActiveXObject("ADODB.Recordset") pred=Request.QueryString('subject') sqlstr='select distinct u.url from rdf3 r, urlsnew u, provenance p where r.subj="'+pred+'" 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() Response.Write('

URLs containing the Subject: '+pred+'

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