Utskrift av Huvud + Submeny

Hej!
Håller på och gör en meny där vissa val innehåller en sub.
Problemet är det det blir helt konstigt vid utskriften, det skrivs inte alls ut på det sätt jag vill.

Här är koden:

	<%
	sSql =	"SELECT mId, mItem_SE " &_
		"FROM tbl_mMenu " &_
		"WHERE mPageId = 3 " &_
		"ORDER BY mSOrder ASC"

	Set oRec = oConn.Execute(sSql)
	If Not oRec.EOF Then
		Response.Write("<ul class=""navlist"">" & VbCrLf)
		Do While Not oRec.EOF
			menuId	= oRec("mId")
			mItem	= oRec("mItem_SE")
			Response.Write("<li><a href=""?mP=" & PageId & "&amp;sP=" & menuId & """>" & mItem & "</a></li>" & VbCrLf)
				sSql =	"SELECT sId, sItem_SE " &_
					"FROM tbl_sMenu " &_
					"WHERE mId = " & SubPageId & " " &_
					"ORDER BY sOrder ASC"
				Set rsSub = oConn.Execute(sSql)
				If Not rsSub.EOF Then
				Response.Write(	"<li>" & VbCrLf &_
						"<ul id=""sub_navlist"">" & VbCrLf)
					Do While Not rsSub.EOF
						sItem = rsSub("sItem_SE")
						Response.Write("<li class=""inactive""><a href=""?mP=3&amp;sP=" & menuId & """>" & sItem & "</a><li>" & VbCrLf)
					rsSub.MoveNext
					Loop
					Response.Write(	"</ul>" & VbCrLf &_
							"</li>" & VbCrLf)
				End If
		oRec.MoveNext
		Loop
		Response.Write("</ul>" & VbCrLf)
	End If
	Set sSql = Nothing
	Set oRec = Nothing
	%>

Resultatet blir enl. följande:

<ul class="navlist">
<li><a href="?mP=3&amp;sP=5">850 Prestanda</a></li>
<li>
<ul id="sub_navlist">
<li class="inactive"><a href="?mP=3&amp;sP=5">Avgassystem</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=5">Bromsar</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=5">ECU-Uppgraderingar</a><li>
</ul>
</li>
<li><a href="?mP=3&amp;sP=6">X40 Prestanda</a></li>
<li>
<ul id="sub_navlist">
<li class="inactive"><a href="?mP=3&amp;sP=6">Avgassystem</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=6">Bromsar</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=6">ECU-Uppgraderingar</a><li>
</ul>
</li>
<li><a href="?mP=3&amp;sP=7">S40 Prestanda</a></li>
<li>
<ul id="sub_navlist">
<li class="inactive"><a href="?mP=3&amp;sP=7">Avgassystem</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=7">Bromsar</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=7">ECU-Uppgraderingar</a><li>
</ul>
</li>
<li><a href="?mP=3&amp;sP=8">S/V/C 70 Prestanda</a></li>
<li>
<ul id="sub_navlist">
<li class="inactive"><a href="?mP=3&amp;sP=8">Avgassystem</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=8">Bromsar</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=8">ECU-Uppgraderingar</a><li>
</ul>
</li>
<li><a href="?mP=3&amp;sP=9">S60 Prestanda</a></li>
<li>
<ul id="sub_navlist">
<li class="inactive"><a href="?mP=3&amp;sP=9">Avgassystem</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=9">Bromsar</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=9">ECU-Uppgraderingar</a><li>
</ul>
</li>
<li><a href="?mP=3&amp;sP=10">V70 n Prestanda</a></li>
<li>
<ul id="sub_navlist">
<li class="inactive"><a href="?mP=3&amp;sP=10">Avgassystem</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=10">Bromsar</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=10">ECU-Uppgraderingar</a><li>
</ul>
</li>
<li><a href="?mP=3&amp;sP=11">XC90 Prestanda</a></li>
<li>
<ul id="sub_navlist">
<li class="inactive"><a href="?mP=3&amp;sP=11">Avgassystem</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=11">Bromsar</a><li>
<li class="inactive"><a href="?mP=3&amp;sP=11">ECU-Uppgraderingar</a><li>
</ul>
</li>
</ul>

Det blir fel, eftersom submenyn endast skall skrivas ut under det val man gjort på huvudmenyn.

Någon som ser något fel i min kod som jag missat?

Tack!