<% try { if (Request.ServerVariables("REQUEST_METHOD") == "POST") { xmldoc=Server.CreateObject("Microsoft.XMLDOM") xmldoc.load(Request); earl=xmldoc.xml earl=earl.replace(/'/g,"\'");//' Assertor=xmldoc.selectSingleNode('/rdf:RDF/Assertor') name=Assertor.selectSingleNode('name').firstChild.nodeValue email=Assertor.selectSingleNode('email').attributes.getNamedItem("rdf:resource").nodeValue Subject=Assertor.selectSingleNode('asserts/rdf:subject') url=Subject.selectSingleNode('testSubject').attributes.getNamedItem("rdf:resource").nodeValue try { date=Subject.selectSingleNode('date').firstChild.nodeValue } catch (e) {date='' } try { hash=Subject.selectSingleNode('moomin:hash').firstChild.nodeValue } catch (e) { hash='' } try { lastModified=Subject.selectSingleNode('moomin:lastmodified').firstChild.nodeValue } catch (e) { lastModified='' } try { contentLength=Subject.selectSingleNode('moomin:contentlength').firstChild.nodeValue } catch (e) {contentLength=-1 } RS=Server.CreateObject("ADODB.Recordset") sqlstr="insert into assertor values('"+url+"','"+name+"','"+email+"')" RS.Open(sqlstr,"earl") sqlstr="delete from subject where url='"+url+"'" RS.Open(sqlstr,"earl") sqlstr="insert into subject values('"+url+"','"+date+"','"+hash+"','"+lastModified+"',"+contentLength+")" RS.Open(sqlstr,"earl") sqlstr="insert into earlsubmissions values(null,'"+url+"','"+earl+"')" RS.Open(sqlstr,"earl") sqlstr="select id from earlsubmissions order by id desc limit 1" RS.Open(sqlstr,"earl") originalid=RS.Fields(0).Value RS.Close() preds=Assertor.selectNodes('asserts/rdf:predicate') for (var i=0;i