<%
iMonth = Month(Now())
Aylar = Array("1","2","3","4","5","6","7","8","9","10","11","12")
response.write "<select name=ay>"
For I = 1 to UBound(Aylar) + 1
if iMonth = I Then
response.write "<option selected>"& I &"</option>"
Else
response.write "<option>"& I &"</option>"
End If
Next
response.write "</select>"
%>