ASP Menü problemi

Arkadaşlar mevcutta asp ile yazılmış bir sistemim var bunun tasarımını bootstrap template'e geçirmek istiyorum. Yönetim paneline giriş yaptığımda menu.asp dosyasını include ediyor. Burdaki yapıyı oturtamadım destek olabilecek olursa sevinirim.

Şu anki menu.asp dosyası bu şekilde;

<%If QS3="" Then QS3="pano" End If%>


<ul class="sidebar-menu"><%
	SQL="SELECT * FROM admin_menu WHERE (main=1) AND (sirketID Like '%"&Session("sirketID")&"%') ORDER BY sira,baslik"
	SQL="SELECT * FROM admin_menu WHERE (main=1) AND (FIND_IN_SET("&Session("userID")&",userID)>0) ORDER BY sira,baslik"
	Set rs=Conn.Execute(SQL):Do Until rs.EOF%>
	<li><%
	SQL1="SELECT * FROM admin_menu WHERE (menuID="&rs("ID")&")  AND (sirketID Like '%"&Session("sirketID")&"%') ORDER BY sira,baslik"
'response.write SQL1
	Set srs=Conn.Execute(SQL1)
		If srs.EOF Then addClass=" no-submenu" Else addClass=""%>
		<a href="/<%=rs("urlCode")%>" class="dropdown-menu"<%=addClass%><%IF QS3=rs("urlCode") Then Response.Write " current" End If%>"><%=rs("baslik")%></a>
		<ul><%Do Until srs.EOF%>
			<li><a <%IF QS3=srs("urlCode") Then Response.Write "class=""current"" " End If%>href="/<%=srs("urlCode")%>"><%=srs("baslik")%></a></li><%srs.MoveNext
			Loop:srs.Close:Set srs=Nothing%>
		</ul>
	</li><%
	rs.MoveNext:Loop:rs.Close:Set rs=Nothing%>
</ul>
<script type="text/javascript">
	$("li ul li").children(".current").parent().parent().parent().find("a.nav-top-item").addClass('current');
</script>

Bootstrap temadaki menü stilleri ise bu şekilde;

<li class="dropdown">
              <a href="#" class="nav-link has-dropdown"><i class="fas fa-fire"></i><span>Başlık</span></a>
              <ul class="dropdown-menu">
                <li><a class="nav-link" href="#">Açılır menu 1</a></li>
                <li><a class="nav-link" href="#">Açılır menu 2</a></li>
              </ul>
            </li>

Birkaç deneme yanılma yöntemiyle denedim fakat menülerin tamamı açılır durumda kalıyor.