menu e incrementi di uno

[slay]

uehh... sempre qui!! oggi non riesco a darne fuori... cmq ho questo menù a cascata:

<%
dim nume
nume = 0
%>
<%
dim cittamet, rsmet, sqlmet
Set rsmet = Server.CreateObject("ADODB.Recordset")
sqlmet="select * from citta order by localita desc"
rsmet.open sqlmet, dcnDB2, 3, 3%>
<% 
do until rsmet.eof 
%>

combo1["<% Response.Write (""& nume &"")%>"]=new Option("<% response.write(UCase(left(Rsmet("localita"), 1)) & Lcase(mid(Rsmet("localita"), 2, len(Rsmet("localita"))-1)))%>","http://www.alloggionline.com/meteo/previsioni_meteo.asp?localita=<%=(rsmet("localita"))%>")
<%
rsmet.movenext 
loop 
%>                    
<% 
'chiusura rs
rsmet.close 
set rsmet=nothing 
%> 

il mio problema è che non riesco a d incrementare di uno la varibile nume

combo1["<% Response.Write (""& nume &"")%>"]= 

il risultato dovrebbe essere questo
combo1[0]
combo1[1]
ecc...
c'è qualche buon anima che mi helpa