Current File : C:/Inetpub/vhosts/derecha3kmotor.com/httpdocs/2025/admin/anadir3.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">
<%

id_contenido=request.querystring("id_contenido")
id_cliente=request.querystring("id_cliente")


directorio="c:\inetpub\vhosts\derecha3kmotor.com\httpdocs\admin\files\" & id_cliente & "\"

   proceso="OK"
   
   On Error Resume Next
   Dim Upload
        
Set Upload = Server.CreateObject("Persits.Upload") 
Upload.ProgressID = Request.QueryString("PID")

   Upload.SetMaxSize 30000000, True 
	' Upload.OverwriteFiles = False
      Upload.Save (directorio)   


If Err.Number = 8 Then 
   Response.Write "El tamaño del archivo es superior a 30 Mb. Por favor, reduzca el tamaño del archivo e inténtelo de nuevo." 
Else 
   If Err <> 0 Then 
      Response.Write "Se ha producido un error: " & Err.Description & "<br>" & "Por favor, inténtelo más tarde."
      proceso="no"
   Else 
   End If 
End If 

Set File = Upload.Files(1)


' EDITAR BD CON NUEVO ENLACE

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open conexion

sSQL="update contenido25 set enlace='" & file.extractfilename & "' where id='" & id_contenido & "'"

set RS = Conn.Execute(sSQL)

Conn.Close

%>
<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">
				<p class="p16b"><font color="#FF0000">ACTUALIZADO</font><br>
				<p class="p12n"><%=texto%></td>
				<td align="center" valign="top">&nbsp;</td>
				<td align="center" valign="top">
				<a href="admina.asp" target="_self">
				<img border="0" src="back.png" width="40" height="40" alt="Volver atrás" Title="Volver atrás"></a></td>
				<td align="center" valign="top">&nbsp;</td>
			</tr>
		</table>
		</td>
		<td>&nbsp;</td>
	</tr>
</table>
</body>

</html>