Dictionary.add

Har du en stump kode?

Dim rsVare, strVare, objDict,strVogn
        strVare = Request("vare")
    Set rsVare = Server.CreateObject ("ADODB.Recordset")
        strSQL = "SELECT tblVin.IDnavn, tblVin.Navn FROM tblVin WHERE tblVin.Navn = '" & strVare & "';"
        rsVare.Open strSQL,objConn,adOpenForwardOnly,adLockReadOnly,adCmdText
   
    Set objDict = CreateObject ("Scripting.Dictionary")
        objDict.Add rsVare("IDnavn"),rsVare("Navn")
       
       
       
        For Each key in objDict
        Response.Write "<p>" & objDict.Item (key) & "</p>"
                    Session("strVogn") = objDict.Item (key)
        Next
        Response.Redirect "vinliste.asp"

det kan også være at jeg griber det forkert an

response.write linien bruger jeg til at debug

Et dictionary kan kun indeholde en værdi for hver nøgle.

Eks. hvis du udfører følgende ASP-kode:

objDict.Add "Poul", "Statisminister"
objDict.Add "Anders", "Statisminister"
objDict.Add "Poul", "Forhenværende Statisminister"

Bør du få en fejl, idet nøglen "Poul" alllerede eksisterer.

Det er måske det du oplever??

Du skal vel bare

Session("strVogn") = Session("strVogn") & " " & objDict.Item (key)

ahh det er den nøgle jeg ikke har fået med, tak for hjælpen.

jeg skal bruge et svar fra dig erik hvis du vil have point

da jeg aldrig har fået et svar fra erik, giver jeg pointene til Zeptic som tak for indsatsen