<%
Response.ContentType="application/xml"
RS = Server.CreateObject("ADODB.Recordset")
iata=Request.ServerVariables("QUERY_STRING")+''

sqlstr="select carrier,fromAirport,toAirport,miles from routes where fromAirport like '"+iata+"' and carrier='oneworld'"
RS.Open(sqlstr,"rdf")
Response.Write('<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"	xmlns:travel="http://www.w3.org/2000/10/swap/pim/travelTerms#" xmlns:airport="http://www.daml.org/2001/10/html/airport-ont#" xmlns:dcterms="http://purl.org/dc/terms/" xmlns:flight="http://jibbering.com/2002/8/flight/#" xmlns:cyc="http://opencyc.sourceforge.net/daml/cyc.daml#">')
if (!RS.EOF) {
 Arr=RS.getRows().toArray()
 FAl=Arr.length/4
	for (i=0;i<FAl;i++) {
 Response.Write("<flight:Route><travel:carrier><flight:AirlineAlliance><flight:allainceName>"+Arr[0]+"</flight:allainceName></flight:AirlineAlliance></travel:carrier><cyc:fromLocation><airport:Airport rdf:about='http://www.daml.org/cgi-bin/airport?"+Arr[1]+"'/></cyc:fromLocation><cyc:toLocation><airport:Airport rdf:about='http://www.daml.org/cgi-bin/airport?"+Arr[2]+"'/></cyc:toLocation><flight:distance>"+Arr[3]+"</flight:distance></flight:Route>\n")
 Arr.splice(0,4)
 }
}
%>
</rdf:RDF>