Bulunduğunuz aya göre selectbox

<%
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>""
%>

"