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)
'response.write "first_matches_5 = " & first_matches_5 & "<br>"

dim sMyArray_5
sMyArray_5 = Array("Adult Net Net","Weekend Supp.","Pre-Addon","Markup","Agent Markup","Agent Markup (before VAT)","Tax (17.5%)","Gross Fare","Fuel Surcharge","Tax","TOTAL")
sMyArray_5_count = ubound(sMyArray_5)
'response.write "arr_count = " & sMyArray_5_count & "<br>"
counter = 0

'response.write "submatches = " & match_5.submatches(3) & "<br>"
'response.write "first_matches_5 = " & first_matches_5.value  & "<br>"
For i = 1 to (sMyArray_5_count + 1)
    response.Write "<tr bordercolor=#ececec>"
    response.write "<td align=right colspan=30><b>"& sMyArray_5(counter) &"</b>&nbsp;</td>"
'    if figures_written <> true then


    agency_markup_arr = Split(first_matches_5(4),":")
    agency_markup_arr_len = len(agency_markup_arr(1))
    'response.write "agency_markupTEST = " & left(agency_markup_arr(1),agency_markup_arr_len - 1) & "<br>"

    the_agency_markup = left(agency_markup_arr(1),agency_markup_arr_len - 1)

    '... The Value Added Tax (GB Only)
    vat = (cint(the_agency_markup)/47)*7
    the_vat = round(vat,2)
    'response.write "VAT = " & vat & "<br>"
    'response.write "The VAT = " & the_vat & "<br>"

    '... The Agency Markup minus the Value Added Tax (17.5%)
    agency_mkup_minus_vat = the_agency_markup - the_vat


if counter = 5 then
    'response.Write "<td align=right colspan=30>&nbsp;" & first_matches_5(5) & "</td></tr>"
    response.Write "<td align=right colspan=30>&nbsp;" & agency_mkup_minus_vat & "</td></tr>"
    bAgency_mkup_minus_vat = true
end if
if counter = 6 then
    'response.Write "<td align=right colspan=30>&nbsp;" & first_matches_5(6) & "</td></tr>"
    response.Write "<td align=right colspan=30>&nbsp;" & the_vat & "</td></tr>"
    bThe_vat = true
end if
    response.write "<td align=right colspan=30>&nbsp;" & first_matches_5(counter) & "</td></tr>"

bAgency_mkup_minus_vat = false
bThe_vat = false

    agency_markup_arr = Split(first_matches_5(4),":")
    agency_markup_arr_len = len(agency_markup_arr(1))

    the_agency_markup = left(agency_markup_arr(1),agency_markup_arr_len - 1)

    '... The Value Added Tax (GB Only)
    vat = (cint(the_agency_markup)/47)*7
    the_vat = round(vat,2)

    '... The Agency Markup minus the Value Added Tax (17.5%)
    agency_mkup_minus_vat = the_agency_markup - the_vat

counter = counter+1
Next

Set first_matches_5 = Nothing
Set expression_5 = Nothing

response.write "<tr bordercolor=#ececec height=20><td></td></tr>"

end if
next