ciao ho questo carrello:

<%

dim conn, strConn, id, TotalRecords, i, test, chiave

id=Request("id")
chiave=Request("chiave")

if carrello="" then

Session("carrello")="200"

else

carrello = Session("carrello")

end if


strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " &_
Server.MapPath("db/database.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open StrConn

SQL = "SELECT * FROM " & chiave & " WHERE ID LIKE '" & id & "'"

Set rs = Server.CreateObject("ADODB.Recordset")

Rs.Open SQL, Conn



test="falso"
for i = 1 to 200 step 2
if carrello(i)=id then
test="vero"
end if
next



for i = 1 to 200 step 2
if test="falso" then
if carrello(i)="" then
carrello(i)=id
carrello(i+1)=chiave
i=200
end if
end if
next

' Libero risorse
rs.Close
set rs = Nothing

conn.Close
Set conn = Nothing

Session("carrello") = carrello

if test="falso" then
Response.Write "<p align='center'>" & "" & "L'ARTICOLO SELEZIONATO E' STATO AGGIUNTO AL CARRELLO" & "" & "</p>"
else
Response.Write "<p align='center'>" & "" & "QUESTO ARTICOLO E' GIA PRESENTE NEL CARRELLO" & "" & "</p>"
end if
%>



io gli passo le variabili 'chiave' e 'id' ma mi da questo errore:

Errore di run-time di Microsoft VBScript error '800a000d'

Tipo non corrispondente: 'carrello'

/numismatica/carrello.asp, line 212


che faccio?
grazie ale