Microsoft VBScript runtime error '800a000d' Type mismatch

Hej Experter.

Jeg får følgende fejlmelding når jeg prøver at kalde en indkøbskurv frem:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'pris'

Noget af koden ser således ud:

function loadxmlbag()
        set xmldoc=server.createobject("microsoft.xmldom")


    if not isempty(session("bagitems")) then
        xmldoc.loadxml cstr(session("bagitems"))
        set bagitems=xmldoc.documentelement
    else
        set bagitems=xmldoc.createelement("bagitems")
        set xmldoc.documentelement=bagitems
    end if
    set loadxmlbag=bagitems
end function

sub addproducttobag (avarproduct,bagitems)


    set nodefind=bagitems.selectnodes("vare[@vareid=""" & dvareid & """]")

    if not nodefind.length > 0 then
        set product=xmldoc.createelement("vare")
        set attr=xmldoc.createattribute("vareid")
        attr.text=avarproduct(0,0)
        product.attributes.setnameditem(attr)
        set attr=xmldoc.createattribute("varenummer")
        attr.text=server.htmlencode(avarproduct(1,0))
        product.attributes.setnameditem(attr)
        set attr=xmldoc.createattribute("kategoriid")
        attr.text=server.htmlencode(avarproduct(2,0))
        product.attributes.setnameditem(attr)
        set attr=xmldoc.createattribute("betegnelse")
        attr.text=server.htmlencode(avarproduct(3,0))
        product.attributes.setnameditem(attr)
        set attr=xmldoc.createattribute("beskrivelse")
        attr.text=server.htmlencode(avarproduct(4,0))
        product.attributes.setnameditem(attr)
        set attr=xmldoc.createattribute("pris")
        attr.text=server.htmlencode(avarproduct(5,0))
        'attr.text=server.htmlencode(avarproduct(5,0))
        product.attributes.setnameditem(attr)
        product.text="1"
        bagitems.appendchild(product)

    end if

end sub

sub printbag(bagitems)
    out"<form method=""post"" action ="""
    out request.servervariables("script_name")&""">"
    out"<table cellspacing='10' align='center' bgcolor='#ffffff'><tr><th>Antal</th><th colspan=2 align='left'>"
    out"Produkt</th><th align='right'>Enhedspris<br>(ekskl.moms)</th><th align='right'>ekskl.<br>moms</th>"
    out"<th align='right'>inkl.<br>moms</th></tr>"& vbcrlf

    for each item in bagitems.childnodes
        out "<tr><td><input type=""text"" name=""qty"
        out item.getattribute("vareid")
        out """ value=""" &item.text& """ size=""3"">"
        out "<td>("&item.getattribute("varenummer")
        out ")</td><td>"&item.getattribute("betegnelse")&"</td>"
       
' DET ER HER OMKRING FEJLEN OPSTÅR!!!!

pris=item.getattribute("pris")
       
        nsubtotal=item.text * pris
        prismoms=nsubtotal*1.25
        ntotal=ntotal+nsubtotal   
        out "<td align='right'>"& formatcurrency(firmarabat*(pris))&"</td>"
        out "<td align='right'><b>"& formatcurrency(firmarabat*(nsubtotal))&"</b></td>"
        out "<td align='right'>"& formatcurrency(firmarabat*(prismoms))&"</td>"
        out "</tr>"& vbcrlf

osv...............

Det underlige er at fejlen først opstået for nyligt. Der har ikke været noget problem med feltet pris i databaseb før.
Jeg har tjekket for fejl i kolonnen "pris", men synes ikke jag kan finde noget.

Nogen der har et godt forslag??? :-)