Menu/Lista

Tengo una lista q me trae los meses del año, pero me trae apr, dec, etc de
acuerdo a cada mes. Como puedo hacer para saber el numero de ese texto?
Gracias
Les paso el codigo
<select name="mes">
<%
dim txtmes,codmes
for n = 1 to 12
txtmes = cstr(n)
strmes txtmes,codmes
%>
<option value="<% = codmes %>" selected <% if n = mes then
Response.Write "SELECTED"%>>
<% = txtmes %>
</option>
<%
next
%>
</select>