<% 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. Dim uploadsDirVar uploadsDirVar = Server.MapPath(".") uploadsDirVar = uploadsDirVar & "\curriculums\" 'uploadsDirVar = "C:\Inetpub\wwwroot\" ' **************************************************** Function SaveFiles Dim nombreFile Dim Upload, fileName, fileSize, ks, i, fileKey, resumen Set Upload = New FreeASPUpload Upload.Save(uploadsDirVar) If Err.Number <> 0 then Exit function ks = Upload.UploadedFiles.keys if (UBound(ks) = -1) then resumen = "ERROR" else for each fileKey in Upload.UploadedFiles.keys 'resumen = resumen & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) " resumen = Upload.UploadedFiles(fileKey).FileName next end if SaveFiles = resumen end function Function enviarMail(nombreArchivo) Dim Mail, resumen Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "correo.sumenor-scs.local" Mail.Port = 25 Mail.From = "asenac@tuempotrado.com" Mail.FromName = "Web. Curricullum" Mail.AddAddress "asenac@tuempotrado.com", "ASENAC" Mail.Subject = "Web. Curricullum" Mail.AddAttachment Server.MapPath(".") & "\curriculums\" & nombreArchivo Mail.Body = "Web. Curricullum" Mail.IsHTML = False 'Mail.IsHTML = True On Error Resume Next Mail.Send ' Mail.SendToQueue If Err <> 0 Then resumen = "An error occurred: " & Err.Description else resumen = "OK" End If enviarMail = resumen end function Function borrarArchivo(nombreArchivo) Dim fso,resumen Set fso = CreateObject("Scripting.FileSystemObject") resumen = Server.MapPath(".") & "\curriculums\" & nombreArchivo if (fso.FileExists(Server.MapPath(".") & "\curriculums\" & nombreArchivo)) then fso.DeleteFile (Server.MapPath(".") & "\curriculums\" & nombreArchivo) end if set fso = nothing borrarrArchivo = resumen End function %> ASENAC. Fabricantes e instaladores de armarios empotrados.

Bolsa de trabajo

quieres trabajar con nosotros?


Si eres montador de armarios empotrados,
autónomo o por cuenta agena,
o si eres operario de taller:
envíanos tu curriculum.

ASENAC fabricantes e instaladores de armarios empotrados. Trápaga. Teléfono: 94 437 94 03 ASENAC. © 2008
<% 'solo llamo al UPLOAD si hay envio de formulario if Request.ServerVariables("REQUEST_METHOD") = "POST" then Dim wf wf = SaveFiles() if wf = "ERROR" then %> <% else if enviarMail(wf) = "OK" then %> <% else %> <% end if end if borrarArchivo(wf) end if %>