Smidigare variant

Hej!
Har en rätt tråkig kod som via If-satser ersätter månadssiffra med månadens namn. Kan detta göras på ett bättre sätt kodmässigt?

<% If datarec("month") = 1 Then %>
Januari <%End If%>
<% If datarec("month") = 2 Then %>
Februari <% End if %>
<% If datarec("month") = 3 Then %>
Mars <% End if %>
etc...

Session.LCID = 1053
iMonth = Cint(datarec("month"))
Response.Write MonthName(iMonth)

Och om du verkligen vill ha stor bokstav först:

Session.LCID = 1053
iMonth = Cint(datarec("month"))
sMonth = MonthName(iMonth)
sMonth = ucase(left(sMonth,1)) & right(sMonth, len(sMonth)-1)
Response.Write sMonth

Okej, jag testar det där.
Fast till saken hör att det i db:n finns en kolumn för månad och en för dag. Dvs alla dagar i januari har 1 i kolumn månad och februari har 2 osv och i detta fall vill jag lista ut alla poster och ersätta siffrorna med månadens namn.