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

		<div align="center">
		<table border="0" width="980" cellspacing="0" cellpadding="0">
			<tr>
				<td>
				<p align="center">
			<ul id="nav-one" class="nav">
<%
' 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 raizca15 where id_cl='" & id_cl & "' order by id"
set RS = Conn.Execute(sSQL)

do while not rs.eof

id_raiz=rs("id")

%>
			<li>
				<a href="#item2"><%=RS("texto")%></a>
				<ul>
<%

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

if left(bRS("enlace"),6)="mailto" then

%>
					<li><a href="<%=bRS("enlace")%>" target="_self"><%=mostrar%></a></li>
<%

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

end if

bRS.movenext

loop

bConn.Close

%>
				</ul>
			</li>
<%

RS.movenext

loop
Conn.close

%>
		</ul>
				</td>
			</tr>
		</table>
		</div>