---
title: "Scripting.Dictionary"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122324-scripting-dictionary"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fraggel"
published: "2005-02-13T14:34:05.000Z"
updated: "2005-02-13T18:54:49.000Z"
replies: 6
views: 536
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/122324-scripting-dictionary"
---

# Scripting.Dictionary

## #1 — Fraggel, 2005-02-13T14:34Z

groupID är Key i tabellen menuGroup.

```
    Dim objConn,objRs,SQL
    Set objConn = Server.CreateObject("ADODB.Connection")
    Set objRs = Server.CreateObject("ADODB.RecordSet")
    Dim objD
    Set objD = Server.CreateObject("Scripting.Dictionary")
    SQL = "SELECT * FROM menuGroup"
    objConn.Open strDatabase
    objRs.Open SQL,objConn
    While NOT objRs.EOF
      objD.Add objRs("groupID"),objRs("groupText")  '*****RAD 90*****
      objRs.MoveNext
    Wend
```

Detta ger fel:
Technical Information (for support personnel)

Error Type:
Microsoft VBScript runtime (0x800A01C9)
This key is already associated with an element of this collection
/artlog/config.asp, line 90

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) 

Page:
GET /artlog/Default.asp 

Time:
den 13 februari 2005, 15:21:43 

More information:
Microsoft Support

Permalänk: https://www.webforum.nu/p/122324

## #2 — @nders, 2005-02-13T15:54Z

Felmeddelandet är ganska tydligt?

Nyckeln du försöker lägga till finns redan i dictionaryobjektet. För att lägga till bara unika värden, antingen ställ en SELECT DISTINCT-fråga istället, eller kontrollera att inte nyckeln redan är använd.

Permalänk: https://www.webforum.nu/p/1551342

## #3 — Fraggel, 2005-02-13T16:40Z

Den var inte använd...

Problemet var 

```
objD.Add objRs("groupID"),objRs("groupText")
```

Löste det:

```
Dim strTMP1,strTMP2
strTMP1 = objRs("groupID")
strTMP2 = objRs("groupText")
objD.Add strTMP1,strTMP2
```

Permalänk: https://www.webforum.nu/p/1551376

## #4 — @nders, 2005-02-13T18:23Z

Hmmm... Vad menar du att problemet var alltså?

Permalänk: https://www.webforum.nu/p/1551436

## #5 — Fraggel, 2005-02-13T18:41Z

Hmm editerad mitt inlägg lite :)

Permalänk: https://www.webforum.nu/p/1551453

## #6 — @nders, 2005-02-13T18:45Z

Ok...

Jag nöjer mig då, så länge du [accepterar som slutgiltigt svar](http://www.webforum.nu/showthread.php?s=&forumid=22&postid=1001345&accept=yes). ;)

mvh

Permalänk: https://www.webforum.nu/p/1551456

## #7 — Fraggel, 2005-02-13T18:54Z

Fixat !!!
Vänner  :bire  ???

Permalänk: https://www.webforum.nu/p/1551467

---

Tråden på webben: https://www.webforum.nu/amne/asp/122324-scripting-dictionary