<% dim d set d=Server.CreateObject("Scripting.Dictionary") d.Add "352533074333208", "Geldig" d.Add "352533075333207", "Niet geldig" Response.Write("De status van de kaart is: " & d.item("n")) set d=nothing %>