Dictionary

Hej alle. Jeg har en kode her hvor jeg \"prøver\" på at lave en key i et dictionary objekt for hver record i min tabel:

<%
Dim Basket
Set Basket  = CreateObject(\"Scripting.Dictionary\")

Set rs = Server.CreateObject(\"ADODB.RecordSet\")
rs.Open \"SELECT * FROM tblVarer WHERE Active = True\", Conn, 1, 3

Do until rs.EOF
Basket.Add rs(\"Id\"),rs(\"Id\") & \",1\"
rs.MoveNext
Loop

Set Session(\"Basket\") = Basket
%>

Men den giver fejl ved record nummer 2, der er fire records i tabellen og deres id\'er er:

1
2
3
4

Fejlen er denne:

Microsoft VBScript runtime fejl \'800a01c9\'

This key is already associated with an element of this collection

/default.asp, linje 21

Linje 21 er:
Basket.Add rs(\"Id\"),rs(\"Id\") & \",1\"

Mvh Mark
www.profiled.org