DB til Dictionary objekt

Du skal "bare" havde Cstr omkring, eller tror den tallet er et index og ikke en streng, der skal også Cstr omkring rs("navn") for det virker:

dict.Add CStr(rs("id")), CStr(rs("navn"))


Eks:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")

SQL = "select * from tabelnavn"
Set rs = Conn.Execute(SQL)

Set dict = Server.CreateObject("Scripting.Dictionary")
do while not rs.EOF
  dict.Add CStr(rs("id")),CStr(rs("navn"))
  rs.Movenext
loop

Response.Write "Indehold:<br>"
for each item in dict.keys
  Response.write item & "=" & dict.item(item) & "<br>"
Next

Conn.Close
set Conn = Nothing
%>

JA! du har reddet min aften.
De problemer jeg havde var meget mystiske.
Selvom jeg f.eks. kaldte hvert objekt

"idx" & RS("idx")

...hvilket burde gøre Cstr overflødigt, overskrev den det hele tiden i stedet for at oprette et nyt. Derudover kunne jeg ikke få lov til at udskrive noget som helst fra objektet efter jeg havde lukket DB-forbindelsen....meget mærkeligt.

Men det lader til at det virker nu, så jeg er bare glad.

takker!!