Current File : C:/Inetpub/vhosts/subidatamaimo.com/httpdocs/2024/menu.asp

            <div class="top_menu">
            <div class="menu-title">Menu</div>
            <ul class="menu clearfix">
<%
' leo todas las RAIZ

id_cl=1


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

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

rs.movenext

do while not rs.eof

id_raiz=rs("id")

%>
				<li class=""><a href="#"><%=RS("texto")%></a>
				<div class="is-megamenu">
				<div id="megamenu-row-1" class="megamenu-row row megamenu-row-1">
				
				<div id="column-1-1" class="megamenu-col megamenu-col-1-1 col-sm-3 ">
				<ul class="content">
				<li class="category">
				<ul>
<%

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

do while not bRS.eof

mostrar=bRS("texto")

posi=instr(mostrar,")")

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


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

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

<%

else
%>

				<li class="category"><a href="https://www.subidatamaimo.com/2024/admin/files/<%=id_cl%>/<%=bRS("enlace")%>" title="<%=mostrar%>" target="_blank">
						<%=mostrar%></a></li>
<%
end if

bRS.movenext

loop

bConn.Close

%>
				</ul>
				</li>
				</ul>
				</div>
						
							
				</div>
							



				</div>
				</li>
<%

RS.movenext

loop
Conn.close

%>


            <li class=""><a href="https://www.tiemposonline.com/online/hillclimb200/index.asp?pr=tamaimo24&pg=tablon" target="_blank">TABLÓN OFICIAL</a>

				
				</ul>
    
            </div>