Como apagar um Obj. Dictionary

[feasso 0]

Estou fazendo assim:

 

nom_objeto.RemoveAll, mas não está funcionando.

[Ted k' 126]

e o que acontece, linha de erro?

[nagaozen 1]

<%

sub Collection_print(coll)
	dim key
	for each key in Collection
		Response.write(key & " : " & Collection.item(key) & "<br />")
	next
end sub

dim Collection : set Collection = Server.createObject("Scripting.Dictionary")

call Collection.add("S", "Suscetíveis")
call Collection.add("I", "Infectados")
call Collection.add("R", "Recuperados")

call Collection_print(Collection) ' imprime "S : Suscetíveis<br />I : Infectados<br />R : Recuperados<br />"

call Dictionary.removeAll()

call Collection_print(Dictionary)

call Collection_print(Collection) ' imprime "S : Suscetíveis<br />I : Infectados<br />R : Recuperados<br />"

call Collection.removeAll()

call Collection_print(Collection) ' imprime ""

set Collection = nothing

%>

Dica, utilize sempre Option Explicit em seus projetos, ele detecta problemas como o descrito acima.