How can I do this?

<%
Set  rsA1 = Server.CreateObject("ADODB.Recordset")
SQLA1= "SELECT Level1E, COUNT(Level1E) AS majorCategories FROM Levels WHERE DUserName = '"&DUserName&"' AND Show = 'y' "
SQLA1= SQLA1 & "GROUP BY Level1E ORDER BY Level1E;"
rsA1.Open SQLA1, Conn, 2, 2
on error resume next
Response.Write "<UL>"
Do While NOT  rsA1.BOF AND NOT  rsA1.EOF
response.write "<LI>"&rsA1("Level1E")&"</LI>"

Set  rsA2 = Server.CreateObject("ADODB.Recordset")
SQLA2= "SELECT Level2E, COUNT(Level2E) AS majorCategories FROM Levels WHERE DUserName = '"&DUserName&"' AND Show = 'y' AND Level1E = '"&rsA1("Level1E")&"' "
SQLA2= SQLA2 & "GROUP BY Level2E ORDER BY Level2E;"
rsA2.Open SQLA2, Conn, 2, 2
on error resume next
Response.Write "<UL>"
Do While NOT  rsA2.BOF AND NOT  rsA2.EOF
response.write "<LI>"& rsA2("Level2E")&"</LI>"

 Set  rsB1 = Server.CreateObject("ADODB.Recordset")
 SQLB1= "SELECT Level3E, COUNT(Level3E) AS majorCategories FROM Levels WHERE DUserName = '"&DUserName&"' AND Show = 'y' AND Level1E = '"&rsA1("Level1E")&"'  AND Level2E = '"&rsA2("Level2E")&"' "
 SQLB1= SQLB1 & "GROUP BY Level3E ORDER BY Level3E;"
 rsB1.Open SQLB1, Conn, 2, 2
 on error resume next
 Response.Write "<UL>"
 Do While NOT  rsB1.BOF AND NOT  rsB1.EOF
 response.write "<LI>"& rsB1("Level3E")&"</LI>"

 Set  rsB2 = Server.CreateObject("ADODB.Recordset")
 SQLB2= "SELECT Level4E, COUNT(Level4E) AS majorCategories FROM Levels WHERE DUserName = '"&DUserName&"' AND Show = 'y' AND Level1E = '"&rsA1("Level1E")&"' AND Level2E = '"&rsA2("Level2E")&"' AND Level3E = '"&rsB1("Level3E")&"' "
 SQLB2= SQLB2 & "GROUP BY Level4E ORDER BY Level4E;"
 rsB2.Open SQLB2, Conn, 2, 2
 on error resume next
 Response.Write "<UL>"
 Do While NOT  rsB2.BOF AND NOT  rsB2.EOF
 response.write "<LI>"& rsB2("Level4E")&"</LI>"

 Set  rsA3 = Server.CreateObject("ADODB.Recordset")
 SQLA3= "SELECT Level5E, COUNT(Level5E) AS majorCategories FROM Levels WHERE DUserName = '"&DUserName&"' AND Show = 'y' AND Level1E = """&rsA1("Level1E")&""" AND Level2E = """&rsA2("Level2E")&""" AND Level3E = """&rsB1("Level3E")&""" AND Level4E = """&rsB2("Level4E")&""" "
 SQLA3= SQLA3 & "GROUP BY Level5E ORDER BY Level5E;"
 rsA3.Open SQLA3, Conn, 2, 2
 on error resume next
 Response.Write "<UL>"
 Do While NOT  rsA3.BOF AND NOT  rsA3.EOF
 response.write "<LI>"& rsA3("Level5E")&"</LI>"

 rsA3.MoveNext
 LOOP : on error goto 0
 Response.Write "</UL>"
 rsA3.Close : Set  rsA3 = Nothing

 rsB2.MoveNext
 LOOP : on error goto 0
 Response.Write "</UL>"
 rsB2.Close : Set  rsB2 = Nothing

 rsB1.MoveNext
 LOOP : on error goto 0
 Response.Write "</UL>"
 rsB1.Close : Set  rsB1 = Nothing

 rsA2.MoveNext
 LOOP : on error goto 0
 Response.Write "</UL>"
 rsA2.Close : Set  rsA2 = Nothing

 rsA1.MoveNext
 LOOP : on error goto 0
 Response.Write "</UL>"
 rsA1.Close : Set  rsA1 = Nothing
%>