<% option explicit Response.Expires = -1 Server.ScriptTimeout = 600 %> <% ' **************************************************** ' Cambiar el valor de la siguiente variable ' para indicar el directorio de destino. ' El directorio indicado debe tener permisos de escritura ' de caso contrario el script fallará mostrando un error. ' ' *********************************************************** ' fecha: 03/09/2007 ' Implementación variable de sisión para el paso de los nombres de los archivos subidos ' ************************************************************* Dim uploadsDirVar uploadsDirVar = "D:\votebien\votebien\archivos\" ' **************************************************** function SaveFiles Dim Upload, fileName, fileSize, ks, i, fileKey, resumen, archivossub Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar) ' If something fails inside the script, but the exception is handled If Err.Number <> 0 then Exit function SaveFiles = "" ks = Upload.UploadedFiles.keys if (UBound(ks) <> -1) then resumen = "Archivos subidos: " for each fileKey in Upload.UploadedFiles.keys resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) " archivossub= resumen next session("Archivitos")= archivossub else resumen = "El nombre del archivo especificado en el formulario no es valido en el sistema." end if 'comentar la siguiente linea si no se desea mostrar el resumen SaveFiles = resumen end function %> HOYONLINE- VOTEBIEN.EC-ASAMBLEA CONSTITUYENTE-Participe a través de nuestro servicio de Periodismo Ciudadano como corresponsal online HOYONLINE- ASAMBLEA CONSTITUYENTE-Participe a través de nuestro servicio como corresponsal online
ASAMBLEA CONSTITUYENTE 2007
INICIO ASAMBLEA CONSTITUYENTE HOYONLINE ARCHIVO DIGITAL ESPECIALES ONLINE QUIÉNES SOMOS CONTÁCTENOS

LA VOZ DEL CIUDADANO

Participe a través de nuestro servicio de Periodismo Ciudadano como corresponsal online. Envíenos sus sugerencias, comentarios o sus propias noticias sobre el proceso electoral, incluya fotografías o videos, y nosotros los publicaremos.

.. NORMAS DE PARTICIPACIÓN

Antes de ingresar su artículo, por favor adjunte el archivo que desea incluir
Ingresar fotografía:
Ingresar video:

 

Regresar


Las expresiones vertidas en este espacio son propiedad de sus autores y no son responsabilidad ni representan la opinión de HOY OnLine. Si desea publicar o contestar a otros lectores que aquí pubican por favor escríbanos: hoy@hoy.com.ec

REGRESAR AL ESPECIAL

 

© Diario HOY
Av. Mariscal Sucre OE6-116 Teléfono: (593-2) 2490888 Apartado postal 17-07-0969
HOY OnLine Noticias del Ecuador y del mundo
hoy@hoy.com.ec

<% 'solo llamo al UPLOAD si hay envio de formulario if Request.ServerVariables("REQUEST_METHOD") = "POST" then 'Hace el upload de los archivos enviados y muestra el resumen response.write SaveFiles() response.redirect("Formulario_votebiena.asp") end if %>