<%

 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 rdf:ID="bod">\n')

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

 	}
	}

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

 try { RS.Close() } catch (e) { }
 sqlstr='select distinct a.obj,b.subj,e.obj,f.obj from rdfnew a,rdfnew b, rdfnew c,rdfnew d,rdfnew e,rdfnew f   where a.pred="http://jibbering.com/2002/3/svg/#polypath" and a.subj=b.obj and b.pred="http://jibbering.com/2002/3/svg/#hasPart" and a.subj=c.obj and c.subj=d.subj and d.pred="http://xmlns.com/foaf/0.1/mbox" and e.subj=b.subj and e.pred="http://jibbering.com/2002/3/svg/#width" and f.subj=b.subj and f.pred="http://jibbering.com/2002/3/svg/#height" and d.obj="'+mbox+'"'
 RS.Open(sqlstr,"rdf")
	if (!RS.EOF) {
  Arr=RS.getRows().toArray()
  path=Arr[0].substr(0,Arr[0].indexOf('L'))+Arr[0].split(/M[\d\.]* [\d\.]*/).join(' ') 
  img=Arr[1]
  width=Arr[2]
  height=Arr[3]
		Response.Write('<foaf:depiction rdf:resource="'+img+'"/>')
  Response.Write('</foaf:Person>')
  Response.Write('<rdf:Description rdf:about="'+img+'"><img:height>'+height+'</img:height><img:width>'+width+'</img:width><img:hasPart><img:Polygon><img:polypath>'+path+'</img:polypath><foaf:regionDepicts rdf:resource="#bod"/></img:Polygon></img:hasPart></rdf:Description>\n')
	} else {
  sqlstr='SELECT b.obj FROM rdfnew b, rdfnew a WHERE b.pred="http://xmlns.com/foaf/0.1/depiction" and (b.subj=a.subj and a.pred="http://xmlns.com/foaf/0.1/mbox") and a.obj="'+mbox+'" limit 1'
  try { RS.Close() } catch (e) { }
  RS.Open(sqlstr,"rdf")
		if (!RS.EOF) {
 		Response.Write('<foaf:depiction rdf:resource="'+RS.Fields(0).Value+'"/>')
   Response.Write('</foaf:Person>')
		} else {
   Response.Write('</foaf:Person>')
		}
	}
 Response.Write('\n</rdf:RDF>')

%>