I have been tasked with sifting through the worst classic asp spaghetti i've ever come across.

The script runs a series of recordsets in sequence, getting 1 record at a time. As the record is built it takes the id and passes it to the next loop, which gets data, and passes on the id to the next loop. It then continues in this manner and builds an unordered list, kicking out the required html as it goes.

Here are my efforts so far:

1. have a class delivering data via sqldatareaders and output these to nested repeaters (this failed due to not being able to loop and get the id)

2. Have a datatable populated with all the required data, then datatable.select to filter it out.

3. have 4 datareaders looping and building the ul arraylists (I couldnt get the id's to match up)

Please can you suggest the best method (with a bit of sample code if possible) to go about doing this conversion?

Here is the code (sorry its long / horrible / spaghetti!!!)

<%
set RSMenuLevel0 = conn.execute("select id, DepartmentID, GroupingID, Heading, OrderID, Publish, moduleid, url, urltarget " &_
                                "from Grouping where (DepartmentID = 0 and GroupingID = 0 and Publish <> 0) order by OrderID")
%>

<%
if session("JavaScriptEnabled") = "False" Then
%>
    <%
    while not RSMenuLevel0.EOF
        if RSMenuLevel0("Publish") <> 0 then

            Menu0heading = RSMenuLevel0("Heading")
            Menu0id = RSMenuLevel0("id")

    %>

       <%if RSMenuLevel0("url") > "" and RSMenuLevel0("moduleid") = 0 then%>
       &nbsp;<a href="http://<%=RSMenuLevel0("url")%>" target="<%=RSMenuLevel0("urltarget")%>"><%=Menu0heading%></a>
       <%else%>
        &nbsp;<a href="/default.asp?id=<%=Menu0id%>"><%=Menu0heading%></a>
        <%end if%>
    <%
        end if
    RSMenuLevel0.MoveNext
    wend 
    %>

<%
else
%>

<ul id="Menu1" class="MM">
<%if home <> 1 then%>
<!--    <li><a href="/default.asp"><span class="item">Home</span></a>  -->
<%end if%>

<%
numone=0
while not RSMenuLevel0.EOF
'   numone = numone + 1

    Menu0heading = RSMenuLevel0("Heading")
    'itemID = lcase(replace(Menu0heading," ",""))
    Menu0id = RSMenuLevel0("id")
    if RSMenuLevel0("url") > "" and RSMenuLevel0("moduleid") = 0 then
        url = RSMenuLevel0("url")
        if instr(url,"file:///") > 0 then
%>
        <li><a href="<%=RSMenuLevel0("url")%>" target="<%=RSMenuLevel0("urltarget")%>" <%if numone=1 then%>class="CURRENT"<%end if%>><span class="item"><%=Menu0heading%></span></a>
        <%else%>
        <li><a href="http://<%=RSMenuLevel0("url")%>" target="<%=RSMenuLevel0("urltarget")%>" <%if numone=1 then%>class="CURRENT"<%end if%>><span class="item"><%=Menu0heading%></span></a>
        <%end if%>  
    <%else%>
    <li><a href="/default.asp?id=<%=RSMenuLevel0("id")%>" <%if numone=1 then%>class="CURRENT"<%end if%>><span class="item"><%=Menu0heading%></span></a>
    <%end if%>
<%
        set RSMenuLevel1 = conn.execute("select id, DepartmentID, GroupingID, Heading, OrderID, Publish, moduleid, url, urltarget " &_
                                "from Grouping where (DepartmentID = 0 and GroupingID = " & Menu0id  & " and Publish <> 0) order by OrderID")
        if not RSMenuLevel1.EOF then
%>
    <ul>
<%
        while not RSMenuLevel1.EOF
            Menu1heading = RSMenuLevel1("Heading")
            Menu1id = RSMenuLevel1("id")
            if RSMenuLevel1("url") > "" and RSMenuLevel1("moduleid") = 0 then
            url = RSMenuLevel1("url")
            if instr(url,"file:///") > 0 then
%>
            <li><a href="<%=RSMenuLevel1("url")%>" target="<%=RSMenuLevel1("urltarget")%>"><%=Menu1heading%></a>
            <%else%>
            <li><a href="http://<%=RSMenuLevel1("url")%>" target="<%=RSMenuLevel1("urltarget")%>"><%=Menu1heading%></a>
            <%end if%>
        <%else%>
        <li><a href="/default.asp?id=<%=RSMenuLevel1("id")%>"><%=Menu1heading%></a>
        <%end if%>
<%
        set RSMenuLevel2 = conn.execute("select id, DepartmentID, GroupingID, Heading, OrderID, Publish, moduleid, url, urltarget " &_
                                "from Grouping where (DepartmentID = 0 and GroupingID = " & Menu1id  & " and Publish <> 0) order by OrderID")
       if not RSMenuLevel2.EOF then
%>
        <ul>
<%
        while not RSMenuLevel2.EOF
                Menu2heading = RSMenuLevel2("Heading")
                Menu2id = RSMenuLevel2("id")
                if RSMenuLevel2("url") > "" and RSMenuLevel2("moduleid") = 0 then
%>
            <li><a href="http://<%=RSMenuLevel2("url")%>" target="<%=RSMenuLevel2("urltarget")%>"><%=Menu2heading%></a>
            <%else%>
            <li><a href="/default.asp?id=<%=RSMenuLevel2("id")%>"><%=Menu2heading%></a>
        <%end if%>
                <%
                    set RSMenuLevel3 = conn.execute("select id, DepartmentID, GroupingID, Heading, OrderID, Publish, moduleid, url, urltarget " &_
                                    "from Grouping where (DepartmentID = 0 and GroupingID = " & Menu2id  & " and Publish <> 0) order by OrderID")
                    if not RSMenuLevel3.EOF then
%>
            <ul>
<%
                        while not RSMenuLevel3.EOF
                                Menu3heading = RSMenuLevel3("Heading")
                                Menu3id = RSMenuLevel3("id")
                                if RSMenuLevel3("url") > "" and RSMenuLevel3("moduleid") = 0 then
                %>
                <li><a href="http://<%=RSMenuLevel3("url")%>" target="<%=RSMenuLevel3("urltarget")%>"><%=Menu3heading%></a></li>
                <%else%>
                <li><a href="/default.asp?id=<%=RSMenuLevel3("id")%>"><%=Menu3heading%></a></li>
             <%end if%>
                <%
                        RSMenuLevel3.MoveNext
                        wend 
                %>
            </ul>
<%
                    end if
            RSMenuLevel2.MoveNext
%>
            </li>
<%
            wend 
%>
        </ul>
<%
        end if
        RSMenuLevel1.MoveNext
%>
        </li>
<%
        wend 
%>
    </ul>
<%  end if

RSMenuLevel0.MoveNext
%>
    </li>
<%
wend 
%>
</ul>

<%
end if
%>