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

	<nav id="cd-lateral-nav">
		<ul class="cd-navigation">
<%
' leo todas las RAIZ

id_cl=1


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

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

do while not rs.eof

id_raiz=rs("id")

%>
			<li class="item-has-children">
				<a href="#0"><%=RS("texto")%></a>
				<ul class="sub-menu">
<%

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><a href="<%=bRS("enlace")%>" target="_self"><%=mostrar%></a></li>
<%

else
%>
					<li><a href="https://www.escuderiaarico.com/admin/files/<%=id_cl%>/<%=bRS("enlace")%>" target="_blank"><%=mostrar%></a></li>
<%
end if

bRS.movenext

loop

bConn.Close

%>
				</ul>
			</li> <!-- item-has-children -->
<%

RS.movenext

loop
Conn.close

%>
		</ul> <!-- cd-navigation -->

		<ul class="cd-navigation cd-single-item-wrapper">
			<li><a href="contacto.asp">Contacto</a></li>
		</ul> <!-- cd-single-item-wrapper -->


	</nav>