Cada vez que empiece en nuevo mes?
O sea que quieres el combo ahorita solo con Enero 2010 y el próximo mes con Febrero 2010?
Si es así sería con un while:
Código:
MesInicial = 1
While MesInicial <= Month(Date)
%>
<option><%=VectorConNombresDeLosMeses(i) & " " & Year(Date)%>
<%
Wend
No estoy seguro si la función
MonthName te regresa el nombre del mes siempre en inglés o depende del idioma del Servidor, cosa de probar.
Saludos!