Otro problema con el carrito: con una base de datos o un recordset

[HPNeo]

La linea q me da error es:

Object required: 'carrito'

/lodhp/animals.asp, line 225

Esa linea esta por una de estas:

if carrito.Exists(id) then
carrito(id)=carrito(id)+1
else
' Si no lo aado
carrito.Add id, 1
end if

Y aqui estoy creando el carrito:

' Si no existe el carrito lo creo
' si existe lo referencio
if isobject(Session("carrito")) then
set carrito=Session("carrito")
else
set carrito = Server.CreateObject("Scripting.Dictionary")
end if

AYUDA