<%

theStr = xmldoc.documentelement.selectnodes("dataElementsMaster").item(0).selectnodes("dataElementsIndiv").item(k).selectnodes("miscellaneousRemarks").item(0).selectnodes("remarks").item(0).selectnodes("freetext").item(0).text



'... Split the <freetext> XML Reply by : and ,
Dim expression_5: Set expression_5 = New RegExp
expression_5.Pattern = "[^:]*:([^/]*)/?"
expression_5.Global = True
Dim match_5, first_matches_5
Set first_matches_5 = expression_5.Execute(theStr)

dim sMyArray_5
sMyArray_5 = Array("Adult Net Net","Weekend Supp.","Pre-Addon","Markup","Agent Markup","Gross Fare","Fuel Surcharge","Tax","TOTAL")
counter = 0
For Each match_5 In first_matches_5
     response.write "<tr bordercolor=#ececec><td align=right colspan=30><font face=verdana size=2><b>"& sMyArray_5(counter) &"</b>&nbsp;</font></td>"
if counter = 10 then
     response.write "<td></td>"
else
     response.write "<td align=right><font face=verdana size=2>&nbsp;" & match_5.SubMatches(0) & "</font></td>"
     response.write "<td width=175>&nbsp;&nbsp;</td></tr>"
end if
counter = counter+1
Next