Current File : C:/Inetpub/vhosts/subidalosloros.com/httpdocs/2023/menu.asp

<nav>
  <div>
    <i class="fa fa-bars"></i>
  </div>

  <ul class="left">

<%
' leo todas las RAIZ

id_cl=1


conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=subidalosloros;PWD=Cocococo1;DATABASE=subidalosloros"
conexionb="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=subidalosloros;PWD=Cocococo1;DATABASE=subidalosloros"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From raiz23 where id_cl='" & id_cl & "'order by id_cl, id"
set RS = Conn.Execute(sSQL)


do while not rs.eof

id_raiz=rs("id")


cascada=0

Set bConn = Server.CreateObject("ADODB.Connection")
bConn.Open(conexionb)
bsSQL="Select * From contenido23 where id_raiz='" & id_raiz & "' order by texto"
set bRS = bConn.Execute(bsSQL)

do while not bRS.eof

if cascada=0 then
%>

    <li><a href="#"><%=RS("texto")%> <i class="fa fa-sort-desc"></i></a>
      <ul class="left">

<%
else
end if

cascada=1


mostrar=bRS("texto")

posi=instr(mostrar,")")

mostrar=mid(mostrar,(posi+1),len(mostrar))


if left(bRS("enlace"),4)="http" then

%>
        <li><a href="<%=bRS("enlace")%>"><%=mostrar%></a></li>

<%

else
%>

        <li><a href="http://www.subidalosloros.com/2020/admin/files/<%=id_cl%>/<%=bRS("enlace")%>"><%=mostrar%></a></li>

<%
end if

bRS.movenext

loop

bConn.Close

if cascada=0 then
%>

    <li><a href="#"><%=RS("texto")%></a></li>

<%
else
%>      </ul>
</li><%
end if




RS.movenext

loop
Conn.close

%>
  </ul>
</nav>