Fortsættelse På en xmlside

Hej prøver i hærdigt at kunne tillægge en ny værdi til min xmlside (session)
Virker fint med 1 tilng men når jeg forsøger at insætte en ny går der koks i det.
Forsøger med:
Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
If Not IsEmpty(Session("BagItems")) Then
    XMLDoc.loadXML CStr(Session("BagItems"))
    Set strXML = XMLDoc.documentElement
Else
    Set BagItems = XMLDoc.createElement("BagItems")
    Set XMLDoc.documentElement = BagItems
End If

' if the product was ok, add it to the bag
If bValid Then


    strXML = strXML&vbTab&"<Ordrelinje>"&vbNewLine
    strXML = strXML&vbTab&vbTab&"<antal>1</antal>"&vbNewLine
    strXML = strXML&vbTab&vbTab&"<Varenavn>"&server.htmlencode(avarProduct(1,0))&"</Varenavn>"&vbNewLine
    strXML = strXML&vbTab&vbTab&"<Varenr>"&server.htmlencode(avarProduct(0,0))&"</Varenr>"&vbNewLine
    strXML = strXML&vbTab&vbTab&"<pris>"&server.htmlencode(avarProduct(2,0))&"</pris>"&vbNewLine
    strXML = strXML&vbTab&"</Ordrelinje>"&vbNewLine
  strXML = strXML&"</Ordrer>"
Session("BagItems") = strXml

Men den vil ikke ligge en vare til får fejl i linje:
strXML = strXML&vbTab&"<Ordrelinje>"&vbNewLine
og fejlen:
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method

/butik/xxx.asp, line 53
Prøver jo at få StrXML til at indeholde det der nu ligger i min session med:
If Not IsEmpty(Session("BagItems")) Then
    XMLDoc.loadXML CStr(Session("BagItems"))
    Set strXML = XMLDoc.documentElement
og det er nok her den går galt for den virker med 1 product

LN