Vore jätte tacksam om ngn kunde kika på det här....
om en sträng skall jämföras med värden i en vector
text
dim test
test = "3"

Set test = server.CreateObject("Scripting.Dictionary")
test.Add "1", "eva"
test.Add "2", "olle"
test.Add "3", "kalle"

Nyckel =test.Keys
Varde = test.Items

For i = 0 To test.Count -1
if (Nyckel = test) then--> det här går inte!!!
response.write Nyckel & Varde
else
response.write "ingen nyckel hittades"
end if
Next

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch--> hur jämför jag???? Eva

<code>
Dim Nyckel
Dim test
Nyckel = "3"

Set test = Server.CreateObject("Scripting.Dictionary")
test.Add "1", "eva"
test.Add "2", "olle"
test.Add "3", "kalle"

If test.Exists(Nyckel) Then
Response.Write Nyckel & " - " & test.Item(Nyckel)
Else
Response.Write "ingen nyckel hittades"
End If
</code>

så simpelt...måste testa!(:-)

tack så mycket!