Unexpected 'Next'

Jeg får følgende fejl i nedenstående kode:

--FEJL--
Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/menubar.asp, line 105

next
^

--KODE--
<% if segment="El" then %>
        <a href="indhold/profil.asp?gruppe=el" onMouseOver="Over('img1')" onMouseOut="Out('img1')" onClick="Click('img1')" target="indholdmain"><IMG NAME=img1 SRC="off.gif" border="0">Profil</a><br>
    <% if application( "produkt1_el" ) <> "" then %>
        <IMG SRC="off.gif" border="0"><u>Forretningsområder:</u><br>
<% for i = 1 to 5 %>       
        &nbsp;<a href="indhold/products.asp?ptype=<%= Application( "produkt" & i & "_el" ) %>&gruppe=el&submenu=None" onMouseOver="Over('img2')" onMouseOut="Out('img2')" onClick="Click('img2')" target="indholdmain"><IMG NAME=img2 SRC="off.gif" border="0"><%= Application( "produkt" & i & "_el" ) %></a><br>
<%       
        kat = Application( "produkt" & i & "_el" )
        sql = "SELECT * FROM [SubMenu] where TopMenu='" & kat & "'"
        rs.Open sql, conn, 3,3
       
        if rs.BOF then
        else
       
        t = 1
        rs.MoveFirst
        do while not rs.EOF
%>
        <!-- undermenu -->
        &nbsp;&nbsp;<a href="indhold/products.asp?ptype=<%= Application( "produkt" & i & "_el" ) %>&gruppe=el&submenu=<%= rs.Fields("SubMenu") %>" onMouseOver="Over('imgU<%= t %>')" onMouseOut="Out('imgU<%= t %>')" onClick="Click('imgU<%= t %>')" target="indholdmain"><IMG NAME=imgU<%= t %> SRC="off.gif" border="0"><%= rs.Fields("SubMenu") %></a><br>
        <!-- undermenu -->
<%         t = t + 1
        rs.MoveNext
        loop
       
        rs.Close
        next       

        set rs = nothing
        conn.Close
        set conn = nothing
end if%>