hjælp til at læse fra raw xml

hej

jeg står og skal læse noget info fra en xml fil og derefter udskrive det på min side.

jeg har følgende script indtil videre men kan ikke få det til at virke og kan ikke se hva jeg har gjort forkert

<%
RESPONSE.EXPIRES=-1
Response.Buffer = True

percent = 10

Dim xml
    Set xml = Server.CreateObject("Microsoft.XMLDOM")
    xml.async = False
    xml.setProperty "ServerHTTPRequest", true
    xml.load ("http://1268309.shop11.dandomain.dk/shop/basket.html&rawxml=1")

t = 1

' Parse XML
if xml.parseError.errorcode <> 0 then
    ' oops error in xml
    Response.Write("XML Error...<br>")
else
    ' get xml data
    '  Response.Write(xml.documentElement.childNodes(0).attributes.getNamedItem("code").nodeValue)
    'x=xml.documentElement.childNodes

for i=0 to xml.documentElement.childNodes.length-1
    TotalProducts = xml.documentElement.childNodes(i).getElementsByTagName("TotalProducts")(1).text

if t = 2 then
    response.write (xml.documentElement.childNodes(i).getElementsByTagName("TotalProducts")(1).text & "<br>" )

%>
                           
<%

END IF

next

end if
Set xml = Nothing

%>

håber der er en der kan hjælpe. xml filen kan ses her http://1268309.shop11.dandomain.dk/shop/basket.html&rawxml=1
hvis det er nødvendigt