Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/2023_01/menu.asp

	<nav id="cd-lateral-nav">
		<ul class="cd-navigation">
<%
Response.CharSet = "UTF-8"

' leo todas las RAIZ

id_cl=1


conexion="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=admind3km;PWD=KyoshoChurri6791;DATABASE=derecha3kmotor"
conexionb="PROVIDER=SQLOLEDB;DATA SOURCE=147.135.183.197;UID=admind3km;PWD=KyoshoChurri6791;DATABASE=derecha3kmotor"

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open(conexion)
sSQL="Select * From raiz2301 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 contenido2301 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.derecha3kmotor.com/2023/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 -->

		<div class="cd-navigation socials">
			<a class="cd-facebook cd-img-replace" href="https://www.facebook.com/Derecha3kmotor/?locale=es_ES" target="_blank">Facebook</a>
		</div> <!-- socials -->

	</nav>