Array problems in VB

Hello!

I tries build a small webshop with a basket stored in the Session.

The first time the user add something this works but the next time I get a error for this code:

ReDim Preserve korg(UBound(korg,1) + 1, 2)

like this:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A0009)
Felaktigt matrisindex
/webbshop/add.asp, line 23

It means Wrong index in the matrise.

The code look like this:

<%

    ' Vi läser in värden
    prodname = Request.Form("ProdName")
    count = Request.Form("Antal")
    prodid = Request.Form("ProdId")

    Dim korg    'utelämna parenteserna för säkerhets skull eftersom de kan ställa till det senare
    Dim index

    If Not IsArray(Session("korg")) Then    'Eftersom sessionen är en array är det bättre att göra en sådan koll!
        ReDim korg(0,2)    'Eller om ni vill vara säkra på att det blir likamånga positioner som sessionsarrayen
        'Redim korg(Ubound(Session("korg"),1),Ubound(Session("korg"),2))
        korg(0, 0) = prodname
        korg(0, 1) = count
        korg(0, 2) = prodid

        'här sätter jag sessionen!
        Session("korg") = korg
    Else
        korg = Session("korg")
        ReDim Preserve korg(UBound(korg,1) + 1, 2)
        index = UBound(korg,1)
        korg(index, 0) = prodname
        korg(index, 1) = count
        korg(index, 2) = prodid

        'här uppdaterar jag värdet till sessionen eftersom det är den värdet hämtas från!
        Session("korg") = korg
    End If


%>

So if any one can se what the problem is please let me know!!

Best regards

Fredrik