lille fejl i indkøbskurv

Jeg har en indkøbskurv som benytter sig af sessions.

Min kode til udskrivning af sessionen ser således ud:

session("kurv")="id1=10|id2=5|id3=250"

varer = split(session("kurv"),"|")

for t = 0 to ubound(varer)
  vare = split(varer(t),"=")
  response.write "vare: " & vare(0) & " antal:" & vare(1) & "<br>"
next

Meningen var at først skulle koden udskrive varens ID (til venstre fra lighedstegnet) og derefter antallet (til højre).

Men jeg får følgende fejlmeddelelse:

Der opstod en Microsoft VBScript-kørselsfejl (0x800A0009)
Indekset er uden for området: '[number: 0]'

Hvad går der galt??