Current File : C:/Inetpub/vhosts/subidatamaimo.com/httpdocs/2017/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 raiz 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 contenido 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="http://www.subidatamaimo.com/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 id="megamenu-row-2" class="megamenu-row row megamenu-row-2">
				
				<div id="column-2-1" class="megamenu-col megamenu-col-2-1 col-sm-12 ">
				<ul class="content">
				<li >
    			<a href="http://www.belivehotels.com/hotel/ES/ficha_hotel/playa_la_arena/descripcion.jsp?utm_source=subidaatamaimo.net&utm_medium=banner&utm_campaign=EPLA-tamaimo&utm_novverride=1" target="_blank">
    	    	<img class="img-responsive" src="img/promo_menu_belive.jpg" alt="baner1" />
		   	     </a>
   			 	</li>
				</ul>
				</div>

				
				</div>


				</div>
				</li>
<%

RS.movenext

loop
Conn.close

%>




            <li class=""><a href="#">TABLON OFICIAL</a>
				<div class="is-megamenu">
				<div id="megamenu-row-1" class="megamenu-row row megamenu-row-1">
<%' leo todas las RAIZ

id_cl=2

r=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 raiz where id_cl='" & id_cl & "' order by id_cl, id"
set RS = Conn.Execute(sSQL)


do while not rs.eof

id_raiz=rs("id")

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

Set bConn = Server.CreateObject("ADODB.Connection")
bConn.Open(conexionb)
bsSQL="Select * From contenido 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))



%>
				<li class="category"><a href="http://www.subidatamaimo.com/admin/files/1/<%=bRS("enlace")%>" title="<%=mostrar%>" target="_blank">
						<%=mostrar%></a></li>

<%

bRS.movenext

loop

bConn.Close

%>
				</ul>
				</li>
				</ul>
				</div>
						
<%
r=r+1

RS.movenext

loop
Conn.close

%>
							
							
							
				</div>
							
							





				</div>
				</li>


				
				</ul>
    
            </div>