ASP - Scripting.Dictionary - problema

[billy1]

ciao

in una pagina ASP devo far visualizzare 9 menu a tendina con valori identici (sono 2000 citta' ciscuno).

Non vorrei fare 9 volte la query, allora ho pensato di usare l'oggetto Scripting.Dictionary .


Solo che non riesco a fare un loop in esso, una volta popolato...

Qui popolo l'oggetto :

i = 0
RSc.Open "select nome from citta order by nome", ALLOT
	Do Until RS.EOF
			i = i + 1
			xxx = RS("nome")
			d.Add i,xxx
								 
	RS.MoveNext 	  
	Loop

Qui vorrei fare apparire la tendina, ma c'e' qualcosa che non va infatti mi fa vedere una tendina con si 2000 record, ma sempre lo stesso (l'ultimo...)

for x=1 to d.Count				
slct = ""
%>
<option <%=slct%> value="<%=d.Item(i)%>"><%=d.Item(i)%></option>
<%					
next

c'e' qualcosina che mi sfugge...