Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.

Dismiss

una manito con esto: enviar archivo adjnto

33 views

Skip to first unread message

Luis Mata

unread,

Aug 26, 2008, 3:48:06 PM8/26/08

Aqui el codigo en una sola hoja ASP:

<%
'option explicit
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%
Dim uploadsDirVar
uploadsDirVar = "C:\"
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey, resumen
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 = "<B>Archivos subidos:</B> "
for each fileKey in Upload.UploadedFiles.keys
resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" &
Upload.UploadedFiles(fileKey).Length & "B) "
next
else
resumen = "El nombre del archivo especificado en el formulario no es
valido en el sistema."
end if
end function
%>
<HTML>
<HEAD>
<TITLE>Test Free ASP Upload</TITLE>
</HEAD>
<BODY>
<br>
<div style="border-bottom: #A91905 2px solid;font-size:16">Subir
archivos</div>
<div style='margin-left:150'>

<form name="frmSend" method="POST" enctype="multipart/form-data"
action="pruebaUpload.asp">
Ruta de Archivo: <input name="attach1" type="file" size="35"><br>
<input type=submit value="Upload">
</form>

puedo enviar el archivo al servidor web y enviar el correo, ahora quiero
capturar el valor del ATACH1, para poder enviarlo como dato adjunto.
el request no me funciona, que me sugieren.

Luis

Picatoste

unread,

Aug 27, 2008, 3:34:39 AM8/27/08

On 26 ago, 21:48, "Luis Mata" <lm...@hipermercadoceramico.com.pe>
wrote:

> CuentaDesdeDondeSeEenvia = "trab...@hipermercadoceramico.com.pe" 'debe ser

> una creada desde el panel de control nombre@dominio
> rutafile = Form("attach1")
> Set oMail = Server.CreateObject("CDO.Message")
> Set iConf = Server.CreateObject("CDO.Configuration")
> Set Flds = iConf.Fields
> 'Se configuran los parametros necesarios para el envío
> iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")
> = 2
> iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
> = 25
> iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")
> = "dns1.hipermercadoceramico.com.pe"
> iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")

> = "ceramicosempl...@hipermercadoceramico.com.pe"

> iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")
> = "rrhh001"
> iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")
> = 1
> iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
> = 10
> iConf.Fields.Update
> ' Se asignan las propiedades de configuración al objeto
> Set oMail.Configuration = iConf
> oMail.To = "lm...@hipermercadoceramico.com.pe"'DestinatarioCorreo'
> oMail.From =

> "ceramicosempl...@hipermercadoceramico.com.pe"'CuentaDesdeDondeSeEenvia

> oMail.Subject = "Servidor Web: Curriculum Viate"
> oMail.TextBody = "Archivo Adjunto con Archivo DOC"
> ' Attachment using known static physical path
> 'oMail.AddAttachment rutafile'"D:\upload_cv\luism2.txt"
> 'Se envía el correo
> oMail.Send
> 'Se destruyen los objetos
> Set iConf = Nothing
> Set Flds = Nothing
> end if
> %>
> </BODY>
> </HTML>
>
> puedo enviar el archivo al servidor web y enviar el correo, ahora quiero
> capturar el valor del ATACH1, para poder enviarlo como dato adjunto.
> el request no me funciona, que me sugieren.
>
> Luis

En JScript se haría así:

valor = document.forms[0]['attach1'].value;

mmm en VBScript creo que seria algo así:

valor = document.form.attach1.value ...

La verdad no estoy muy seguro pero es algo por el estilo.

Mira encontre un ejemplo en JScript:
http://www.forosdelweb.com/f13/js-para-capturar-datos-formulario-462281/

Seguro que hay en alguno VBScript

Saluditos!

0 new messages