<%

 RS = Server.CreateObject("ADODB.Recordset")
mbox=Request.ServerVariables('Query_String')
Response.ContentType="application/rdf+xml"
Response.Write('<rdf:RDF xmlns:img="http://jibbering.com/2002/3/svg/#" xmlns:wn="http://xmlns.com/wordnet/1.6/" xmlns:foaf="http://xmlns.com/foaf/0.1/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:an="http://rdf.desire.org/vocab/recommend.rdf#" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#">\n<foaf:Person>\n')

sqlstr='SELECT b.obj FROM rdfnew b, rdfnew a WHERE b.pred like "http://xmlns.com/foaf/0.1/name" and (b.subj=a.subj and a.pred like "http://xmlns.com/foaf/0.1/mbox") and a.obj="'+mbox+'" limit 1'
 RS.Open(sqlstr,"rdf")
	if (!RS.EOF) {
  Response.Write('<foaf:name>'+RS.Fields(0)+'</foaf:name>')
	}
try { RS.Close() } catch (e) { }
 sqlstr='SELECT distinct c.subj FROM rdfnew b, rdfnew a, rdfnew c WHERE b.pred like "http://xmlns.com/foaf/0.1/knows" and (a.subj=b.subj and a.pred like "http://xmlns.com/foaf/0.1/mbox") and (c.subj=b.obj and c.pred like "http://xmlns.com/foaf/0.1/mbox") and a.obj="'+mbox+'"'
 RS.Open(sqlstr,"rdf")
	if (!RS.EOF) {
  Arr=RS.getRows().toArray()
		for (i=0;i<Arr.length;i++) {
   try { RS.Close() } catch (e) { }
   sqlstr='select distinct obj from rdfnew where subj="'+Arr[i]+'" and pred="http://xmlns.com/foaf/0.1/mbox" order by obj limit 1'
   RS.Open(sqlstr,"rdf")
			if (!RS.EOF) {
    Response.Write('<foaf:knows rdf:resource="'+RS.Fields(0).Value+'"/>\n')
			}
 	}
	}
Response.Write('</foaf:Person>\n</rdf:RDF>')

%>