Current File : C:/Inetpub/vhosts/subidatamaimo.com/httpdocs/2023/control/nuevoadjuntob.asp

<html>
<head>
<meta http-equiv="Content-Language" content="es">

<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="expires" conten="01-mar-94 00:00:01 GMT">
</head>
<body>
<%

if Session("autentificado")<>true then

	Response.Status="401 Prohibido"
	Response.End

end if

usuario=session("usuario")

entrada=request.querystring("entrada")

idpet=request.querystring("id")

directorio="c:\inetpub\vhosts\subidatamaimo.com\httpdocs\documentos\"

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


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


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

Set File = Upload.Files(1)


fichero = file.extractfilename


%>
<p align="center">&nbsp;</p>
<p align="center"><img border="0" src="ok.png"></p>
<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
    <tr>
      <td width="100%">
      <p align="center"><font face="Trebuchet MS" size="2">El siguiente fichero 
      se ha subido correctamente:</font></td>
    </tr>
    <tr>
      <td width="100%">
      <p align="center"><i><b><font face="Trebuchet MS" color="#111111"><%=fichero%></font></b></i></td>
    </tr>
  </table>
  </center>
</div>
<p align="center">&nbsp;</p>
<p align="center"><b><font face="Trebuchet MS" color="#FF0000"><span lang="es">IMPORTANTE: Introduzca la denominaci? del 
adjunto.</span></font></b></p>
<p align="center">&nbsp;</p>
<form method="POST" action="nuevoadjuntoc.asp?id=<%=idpet%>&fichero=<%=fichero%>">
<p align="center">
  <input type="text" name="deno" size="60" tabindex="1"></p>
<p align="center">
  <input type="submit" value="Enviar" name="B1"></p>
</form>

</body>
</html>