udskriv måneder startende fra dags dato (måned) til januar

Hej

Jeg har dette script som jeg bruger til at udskrive måneder med startende med den ældste måned først altså Januar.

Jeg kunne godt tænke mig at det var den nyeste måned som blev skrevet ud først.

På forhånd tak

/mickill

<% i = 1 %>
                <% Do While i =< Month(Date) %>
                <% Dim Maned %>
                <% Maned = MonthName(i)    %>
                <tr>
                    <td width="10%" bgcolor="#CCCCCC" valign="middle" align="center"><% If i = Month(Date) Then %><span class="maned">•</span><% End If %></td>
                    <td bgcolor="#CCCCCC"><a href="nyheder.asp?maned1=<%=i%>&aar=2005&maned2=true"><span class="maned"><%=UCase(Left(Maned,1)) & mid(Maned,2)%></span></a></td>
                </tr>
                <%
                i = i + 1
                Loop
                %>