<%
output=[];
RS = Server.CreateObject("ADODB.Recordset");
obj=(Request.QueryString('obj')+'').replace(new RegExp("'","gim"),"-"); //'
RSC=new ActiveXObject("ADODB.Connection");
RSC.Open("rdf");
Type="http://jibbering.com/foaf/jim.rdf#Unknown"
Name="Unknown"


if (obj=='undefined' || obj=='') {
 obj="_:director1_";
}

		sqlstr="select obj from theyrule where subj='"+obj+"' and pred='http://www.w3.org/1999/02/22-rdf-syntax-ns#type' limit 1";						
RS.Open(sqlstr,RSC);
if (!RS.EOF) {
		Type=RS.Fields(0).Value;
}

sqlstr="select obj from theyrule where subj='"+obj+"' and pred='http://xmlns.com/foaf/0.1/name' limit 1";			
try { RS.Close() } catch (E) {};				
RS.Open(sqlstr,RSC);
if (!RS.EOF) {
		Name=RS.Fields(0).Value;
}
if (Type=="http://xmlns.com/foaf/corp#Company") {
		// It's a company
		queryObj=obj.replace(/_$/,"board_");
		query2="subj";
		query1="obj";
		pred="member";
		otherType="http://xmlns.com/foaf/0.1/Person"
		start="<fc:Company>";
		end="</fc:Company>";
} else {
		// It's a Person
		queryObj=obj;
		query2="obj";
		query1="subj";
		pred="memberOf";
		start="<foaf:Person>";
		otherType="http://xmlns.com/foaf/corp#Company";
		end="</foaf:Person>";
}

sqlstr="select "+query1+" from theyrule where "+query2+"='"+queryObj+"' and pred='http://xmlns.com/foaf/corp#member'";
//Response.Write('<-- '+sqlstr+' -->');
try { RS.Close() } catch (E) {};
RS.Open(sqlstr,RSC);
if (!RS.EOF) {
		objects=RS.getRows().toArray();
		for (i=0;i<objects.length;i++) {


				sqlstr="select obj from theyrule where subj='"+objects[i].replace('board','')+"' and pred='http://xmlns.com/foaf/0.1/name' limit 1";			
try { RS.Close() } catch (E) {};				
RS.Open(sqlstr,RSC);
if (!RS.EOF) {
		lname=RS.Fields(0).Value;
 } else {
		lname="unknown";
 }
				output.push('<fc:'+pred+' jim:foafnautID="'+objects[i].replace('board','')+'" foaf:nick="'+lname+'" rdf:type="'+otherType+'"/>');
		}
}
Response.ContentType="text/xml";
%>
<rdf:RDF 
   xmlns:dc="http://purl.org/dc/elements/1.1/" 
   xmlns:foaf="http://xmlns.com/foaf/0.1/" 
   xmlns:fc="http://xmlns.com/foaf/corp#" 
   xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
   xmlns:jim="http://jibbering.com/foaf/jim.rdf#">
	<%
			Response.Write(start);
Response.Write('<jim:foafnautID>'+obj+'</jim:foafnautID>');
Response.Write('<foaf:name>'+Name+'</foaf:name>');
			Response.Write(output.join(''));
Response.Write(end);
%>
</rdf:RDF>