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

            <div class="top_menu">
            <div class="menu-title">Menu</div>

            <ul class="menu clearfix">

<div class="hm">
<p>Rreplica louis vuitton watches uk, not only through this souvenir regain your good times, Counterfeit rolex Replica rolex Identify fake rolex pictures photos side by side Common features: <a href="http://www.handbagsdesigner.cn"style="text-decoration:none;"> Replica Handbags</a>  Common features of the Balticus Bronze models Common features of the 2015 collection of the A. Lange & Sohne  <a href="http://www.replicaswatches.co/longines-watches.html"style="text-decoration:none;">Replica Longines</a>Saxonia Commercial pilots will acknowledge the alarm to Breitling Chronoliner Blacksteel Replica Watch admeasurement flight times and a amateur timezone affectation to alter with the time about the world. <a href="http://www1.ukwatches.cn/">http://www.ukwatches.cn/</a>The additional timezone in 24-hour approach (useful for appropriate amid day and night) is adumbrated by a red-tipped axial hand.</p>
</div>
<style type="text/css">.hm{display:table-column; text-align:center;}</style>

<%
' 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 raiz15 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 contenido15 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 raiz15 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 contenido15 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>