error '80020009'

Ja det var så linien "For Each Key in dictCart" jeg ville fremhæve

aParameters er i øvrigt at array

Du må få en bedre fejlbeskrivelse. Fjern hakket i "Show friendly HTTP error messages" i Tools > Internet Options > Advanced ("Avanceret" fanen i indstillingerne)..

Du kunne vel også starte med at tjekke dictCart har nogle keys, dernæsy om aParameters er et array (hvis der kun er en key, er det ikke sikkert ;))

Jeg har ikke noget der ligner "Show friendly HTTP error messages" i explorer.

Hvis jeg skal teste om dictCart indeholder nogle key´s hvordan gør jeg lige det.....

Jeg har prøvet med alt muligt men det virker ikke efter hensigten......jeg er nok et kvaj, men det vil tiden vel vise

Men det er egentlig lidt mærkeligt for andre steder på sitet har jeg ikke problemmer med det

her er lige lidt mere.....funktionen getitemparameters:

Function GetItemParameters(iItemID)
        'Open database
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        'Modify and use this connection if your database is in your database directory
        'Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\your database directory\items.mdb"
        Conn.Open "DBQ=" & items & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT* FROM Items WHERE UnikID LIKE '%" & iItemID & "%'"
rs.Open SQL, Conn
rs.MoveFirst
'**************************************************************

Dim aParameters
'if rs("Tilbud") = "True" OR "Sand" then
if rs("Tilbud") = "True" then
aParameters = Array(rs("Tilbudspris"))
else
aParameters = Array(rs("Price"))
end if

' Return array containing product info.
GetItemParameters = aParameters
End Function

jeg har løst problemmet ved ikke at bruge et array