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