loop der ikke virker

Det jeg vil have ud af følgende kode, er at den skal loope igennem de 31 felter (jeg ved der er) og udskrive det der står i de enkelte felter. Mit loop virker bare ikke som det skal. Jeg får godt nok skrevet det første felt ud (altså felt 01) - men de efterfølgende kommer bare ikke - hvad er galt?

<%
OpenCon
call ChooseTableWhere ("Kalender", "ID", smaaned)
    if smaaned = 1 then
        mdr = "Januar"
    end if
    if smaaned = 2 then
        mdr = "Februar"
    end if
    if smaaned = 3 then
        mdr = "Marts"
    end if
    if smaaned = 4 then
        mdr = "April"
    end if
    if smaaned = 5 then
        mdr = "Maj"
    end if
    if smaaned = 6 then
        mdr = "Juni"
    end if
    if smaaned = 7 then
        mdr = "Juli"
    end if
    if smaaned = 8 then
        mdr = "August"
    end if
    if smaaned = 9 then
        mdr = "September"
    end if
    if smaaned = 10 then
        mdr = "Oktober"
    end if
    if smaaned = 11 then
        mdr = "November"
    end if
    if smaaned = 12 then
        mdr = "December"
    end if
    response.write rs.fields(2)
        response.write "<table align=""center"" width=""50%"" border=3><tr><td colspan=""2"" align=""center""><b>"
        response.write mdr   
        response.write "</b></td></tr>"
    i = 1

    do while not rs.eof

        response.write "<tr><td width=""15%"">"
        response.write i
        response.write ".&nbsp;"
        response.write mdr
        response.write "</td><td width=""35%"">"
        response.write rs.Fields(i)
        response.write "</td></tr>"
            i = i + 1
    rs.MoveNext
    loop
        response.write i
       
        response.write "</table>"
%>