Problemer med array

Hej,

Jeg har valgt lave min indkøbskurv i et array. Men er løbet på et problem. jeg kan ikke rigtig få den til at gemme mine værdier.

her er min kode:

<%

if session("items") = "" then
    session("items") = 0
end if

' x = col = itemID, Quantity, Param1, Param2
x = 3
y = session("items")

response.Write(y)

Dim myArray()



redim myArray(x,y)

'    first time adding items to basket
   
    if session("items") = 0 then
        myArray(0,session("items")) = "toyota"
        myArray(1,session("items")) = "white"
        myArray(2,session("items")) = "22.000"
        myArray(3,session("items")) = "M. hjul"
       
        session("items") = session("items") + 1
    else
       
        Redim myShopCartArray(x,y)
        Redim PRESERVE myShopCartArray(x,y+1)
       
        myArray(0,session("items")) = "toyota"
        myArray(1,session("items")) = "white"
        myArray(2,session("items")) = "22.000"
        myArray(3,session("items")) = "M. hjul"
       
        session("items") = session("items") + 1
   
    end if    
   




%>

<%
Response.Write "<table border='0'>"
response.Write("<tr>")
response.Write("<td>row:</td>")
response.Write("<td>VareID:</td>")
response.Write("<td>Antal:</td>")
response.Write("<td>Param1:</td>")
Response.Write "<td>Param2</td></tr>"

For i = 0 to UBound(myArray,2)
Response.Write "<tr>"
response.Write "<td>" & i & "</td>"
Response.Write "<td>" & myArray(0,i) & "</td>"
Response.Write "<td>" & myArray(1,i) & "</td>"
Response.Write "<td>" & myArray(2,i) & "</td>"
Response.Write "<td>" & myArray(3,i) & "</td></tr>"
Next
Response.Write "</table>"



'myArray(col,row)
myArray(0,0) = "9291-vareID"
myArray(1,0) = "2"
myArray(2,0) = "Brun"
myArray(3,0) = "XL"
%>



Du kan se eks. her:

http://85.83.94.48/test.asp