The RemoveAll method is used to remove all key/item pairs from the specified Dictionary object.

Code:
<%
dim guitars
set guitars=CreateObject("Scripting.Dictionary")
guitars.Add "e", "Epiphone"
guitars.Add "f", "Fender"
guitars.Add "g", "Gibson"
guitars.Add "h", "Harmony"
guitars.RemoveAll
guitars.Add "i", "Ibanez"
%>

Output:
"Ibanez"