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

            <div class="top_menu">
            <div class="menu-title">Menu</div>
            <ul class="menu clearfix">
<div style="position: absolute; top: -1000px;left: -999px;">
Welcome to visit this great online luxury Replica swiss watches&#160;store and buy our best&#160;<a href="https://www.replicaswatches.co/index.php">Replica watches</a>! Look around this store and you will find that <a href="http://www.perfectrolex.is/">Replica rolex</a> like replica&#160;Rolex,&#160;replica&#160;Cartier,&#160;replica&#160;Tag Heuer and <a href="https://www1.ukwatches.cn/">replica rolex watches</a>&#160;are all available in a great variety of styles and designs. You should buy them without hesitation. These luxury<a href="https://www.handbagsreplicas.co/">Replica handbags</a> are of top quality and good functionality <a href="https://www.vogueluxury.su/">Replica Louis Vuitton handbags</a>.
 </div> 
<%
' 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 raiz19 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 contenido19 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>
				</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 raiz19 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 contenido19 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>