Dele recordset i 4 spalter

Er der nogen der kan give en forklaring på hvorfor følgende kode bare ikke virker!!! Grrrrr...

                                    <table>
                                    <%do until rsA.EOF%>
                                    <tr>
                                   
                                    <td>1<%=rsA("kat_navn")%></td>
                                   
                                    <%if NOT rsA.EOF then
                                    rsA.movenext%>
                                    <td>2<%=rsA("kat_navn")%></td>
                                    <%else%>
                                    <td></td>
                                    <%end if%>
                                   
                                    <%if NOT rsA.EOF then
                                    rsA.movenext%>
                                    <td>3<%=rsA("kat_navn")%></td>
                                    <%else%>
                                    <td></td>
                                    <%end if%>
                                   
                                    <%if NOT rsA.EOF then
                                    rsA.movenext%>
                                    <td>4<%=rsA("kat_navn")%></td>
                                    <%else%>
                                    <td></td>
                                    <%end if%>
                                   
                                    </tr>
                                    <%if NOT rsA.EOF then
                                    rsA.movenext
                                    end if
                                    loop
                                    %>
                                   
                                    </table>