let $records :=
  for $record in fn:collection()/record
  return
    <record>
       <identifier>{$record/Identifier/text()}</identifier>
       <_resource>{fn:data($record/@resource)}</_resource>
       <vra.agent>{$record/vra.agent/text()}</vra.agent>
       <vra.culturalcontext>{$record/vra.culturalcontext/text()}</vra.culturalcontext>
       <vra.date>{$record/vra.date/text()}</vra.date>
       <vra.location>{$record/vra.location/text()}</vra.location>
       <vra.material>{$record/vra.material/text()}</vra.material>
       <vra.worktype>{$record/vra.worktype/text()}</vra.worktype>
       <vra.technique>{$record/vra.technique/text()}</vra.technique>
       <vra.title>{$record/vra.title/text()}</vra.title>
       <vra.rights>{$record/vra.rights/text()}</vra.rights>
       <vra.source>{$record/vra.source/text()}</vra.source>
       <vra.styleperiod>{$record/vra.styleperiod/text()}</vra.styleperiod>
       <vra.measurementsWork>{$record/vra.measurementsWork/text()}</vra.measurementsWork>
       <vra.descriptionWork>{$record/vra.descriptionwork/text()}</vra.descriptionWork>
       <vra.descriptionImage>{$record/vra.descriptionIMAGE/text()}</vra.descriptionImage>
       <vra.measurementsImage>{$record/vra.measurementsImage/text()}</vra.measurementsImage>
       <vu.titleImage>{$record/vu.imagetitle/text()}</vu.titleImage>
       <vu.order>{$record/vu.order/text()}</vu.order>
       <vu.courselecture>{$record/vu.courselecture/text()}</vu.courselecture>
    </record>
let $csv := <csv>{$records}</csv>
let $options := map { 'header': true() }
return file:write("vrc.csv", csv:serialize($csv, $options))