Session array problem (kurv)

Har en kode der skal tilføje et element til indkøbskurven. Problemet er at ved første vare man tilføjer fungerer det fint. Anden vare fungerer ikke, resten fungerer. Hvad er der galt?

If IsArray(Session("vare")) = false Then
  Dim vare2(20)   
  vare2(1) = Request.QueryString("ID")  'Vare nr eller anden ID
  Session("vare") = vare2
else
  vare2=session("vare")
  incart=false
  for i=lbound(vare2) to ubound(vare2)
  if vare2(i)="" AND incart=false then
    vare2(i) = Request.QueryString("ID")
    incart = true
  end if
  next
  session("vare")=vare2
end if