Como actualizar calendario Anual

[Myakire]

Código ASP:

Año     <select name="cboAno">
<% For i=2007 to 2020 %>
        <option value="<%=i%>" <%if Year(Date)=i then response.write " selected " end if%> ><%=i%></option>
<% Next %>              
        </select>
   Mes <select name="cboMes">
<% For i=1 to 12 %>
        <option value="<%=i+1%>" <%if Month(Date)=i then response.write " selected " end if%>><%=MonthName(i)%></option>
<% Next %>              
        </select>