Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/admin/admina.asp

<!--#include file="leercliente.asp"-->
<html>

<head>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<title>Administración de Menús</title>
<link href='http://fonts.googleapis.com/css?family=Electrolize' rel='stylesheet' type='text/css'>
<style type="text/css">

A.p12n:link { text-decoration: none; }
A.p12n:active { text-decoration: none; }
A.p12n:visited { text-decoration: none; }
A.p12n:hover { text-decoration: underline; }

.p12n {
color: rgb(0, 0, 0); 
font-family: 'Electrolize', sans-serif; 
font-size: 12px; 
font-style: normal; 
font-variant: normal; 
font-weight: normal; 
letter-spacing: normal; 
line-height: 18px; 
text-indent: 0px; 
text-transform: none; 
white-space: normal; 
widows: 2; 
word-spacing: 0px; 
-webkit-text-size-adjust: auto; 
-webkit-text-stroke-width: 0px; 
'background-color: rgb(255, 255, 255); 
display: inline !important; 
float: none;
}



.p16b {
color: rgb(50, 100, 255); 
font-family: 'Electrolize', sans-serif; 
font-size: 16px; 
font-style: normal; 
font-variant: normal; 
font-weight: normal; 
letter-spacing: normal; 
line-height: 18px; 
text-indent: 0px; 
text-transform: none; 
white-space: normal; 
widows: 2; 
word-spacing: 0px; 
-webkit-text-size-adjust: auto; 
-webkit-text-stroke-width: 0px; 
'background-color: rgb(255, 255, 255); 
display: inline !important; 
float: none;
}

</style>
</head>

<body bgcolor="#FFFFFF">


<table border="0" width="100%" cellspacing="3">
	<tr align="center">
		<td colspan="3" align="center" class="p16b">
		<b>Administración de menu en Webs</b>
		</td>
	</tr>
	<tr>
		<td  class="p12n" align="center">Web: <%=web%><br>Propietario: <%=nombre%></td>
	</tr>
</table>


<table border="0" width="100%" cellspacing="5">
	<tr>
		<td>&nbsp;</td>
		<td>
		<table border="0" width="100%" cellspacing="5" cellpadding="0">
			<tr>
				<td align="center" valign="top">
				&nbsp;</td>
				<td align="center" valign="top">
				<a target="_self" href="admina.asp">
				<img border="0" src="reload.png" width="40" height="40"></a></td>
				<td align="center" valign="top">&nbsp;</td>
				<td align="center" valign="top">
				<a href="index.asp?resp=5" target="_top">
				<img border="0" src="logout.png" width="51" height="40"></a></td>
				<td align="center" valign="top">&nbsp;</td>
			</tr>
		</table>
		</td>
		<td>&nbsp;</td>
	</tr>
</table>
<div align="center">
	<table border="0" width="600" cellspacing="5" cellpadding="2">
<%
' leo todas las RAIZ


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

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

do while not rs.eof

id_raiz=rs("id")

%>
		<tr onmouseover="this.style.backgroundColor = '#E4E4E4'" onmouseout="this.style.backgroundColor = '#FFFFFF'">
			<td align="left" valign="top">
			<p class="p12n"><%=RS("texto")%></td>
			<td align="left" valign="top" width="50">&nbsp;</td>
			<td align="left" valign="top" width="50">&nbsp;</td>
			<td align="left" valign="top" width="50">
			<a target="_self" href="anadir1.asp?id=<%=id_raiz%>&texto=<%=RS("texto")%>">
			<img border="0" src="add.png" width="30" height="30"></a></td>
		</tr>
<%

Set bConn = Server.CreateObject("ADODB.Connection")
bConn.Open(conexionb)
bsSQL="Select * From contenido26 where id_raiz='" & id_raiz & "' order by texto"
set bRS = bConn.Execute(bsSQL)

do while not bRS.eof
%>
		<tr onmouseover="this.style.backgroundColor = '#E4E4E4'" onmouseout="this.style.backgroundColor = '#FFFFFF'">
			<td align="left" valign="top">
			<p class="p12n">
			<img border="0" src="linea.png" width="37" height="20">&nbsp;<%=bRS("texto")%></td>
			<td align="center" valign="top" width="50">
<%
if bRS("enlace")<>"" then
%>			
<a target="_blank" href="http://www.derecha3kmotor.com/admin/files/<%=id_cliente%>/<%=bRS("enlace")%>">
			<img border="0" src="abrir.png" width="30" height="30"></a>
<%
else
end if
%>
			</td>
			<td align="center" valign="top" width="50">
			<p class="p12n">
			<a target="_self" href="editc1.asp?id=<%=bRS("id")%>&texto=<%=RS("texto")%>">
			<img border="0" src="edit.png" width="30" height="30"></a></td>
			<td align="left" valign="top" width="50">
			<a href="delete1.asp?id=<%=bRS("id")%>&texto=<%=RS("texto")%>" target="_self">
			<img border="0" src="delete.png" width="30" height="30"></a></td>
		</tr>
<%

bRS.movenext

loop

bConn.Close


RS.movenext

loop
Conn.close

%>
	</table>
</div>
</body>

</html>