<%

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).Value+'</foaf:name>')
	}
try { RS.Close() } catch (e) { }
sqlstr='SELECT b.obj FROM rdfnew b, rdfnew a WHERE b.pred like "http://xmlns.com/foaf/0.1/nick" 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:nick>'+RS.Fields(0).Value+'</foaf:nick>')
	}
try { RS.Close() } catch (e) { }
sqlstr='SELECT b.obj FROM rdfnew b, rdfnew a WHERE b.pred like "http://xmlns.com/foaf/0.1/mbox" and (b.subj=a.subj and a.pred like "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 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) {
    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 like "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 like "http://xmlns.com/foaf/0.1/nick" and (b.subj=a.subj and a.pred like "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 subj from rdfnew where pred like "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 like "http://xmlns.com/foaf/0.1/nick" and (b.subj=a.subj and a.pred like "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')
				}
			} 
 	}
	}
Response.Write('</foaf:Person>\n</rdf:RDF>')

%>