EMPLEO: OFICINA
GRUPO ZENA
I
Camino de la Zarzuela, 1. 28023 Aravaca ( Madrid)
I
Tlf: 91 382 98 00 I
<%
else
Dim Upload
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
'Send mail
nombre = Upload.Form("Nombre Y Apellidos")
telefono = Upload.Form("Telefono")
email = Upload.Form("Mail")
if Upload.Form("check1") = "1" then
c1 = "Si"
else
c1 = "No"
end if
if Upload.Form("check2") = "1" then
c2 = "Si"
else
c2 = "No"
end if
if Upload.Form("check3") = "1" then
c3 = "Si"
else
c3 = "No"
end if
if Upload.Form("check4") = "1" then
c4 = "Si"
else
c4 = "No"
end if
Mensaje = "Nombre y apellidos: " & nombre & VbCrlf & _
"Teléfono: " & telefono & VbCrlf & _
"Mail: " & email & VbCrlf & _
"Ha leído y acepto las condiciones del aviso legal: " & c1 & VbCrlf & _
"No desea recibir comunicaciones por medios electrónicos, incluidas la relativas a la información solicitada: " & c2 & VbCrlf & _
"No desea recibir comunicaciones comerciales, incluidas las relativas a la información solicitada : " & c3 & VbCrlf & _
"Se opone a la cesión indicada : " & c4 & VbCrlf & VbCrLf & _
"(Enviado el " & date() & " a las " & time() & ")"
Dim cvpath
for each fc in Upload.UploadedFiles.keys
doclink = Upload.UploadedFiles(fc).FileName
next
cvpath = uploadsDirVar & doclink
Set mail = Server.CreateObject("CDO.Message")
mail.From = email
mail.To = "seleccion@zena.com"
mail.Subject = "Empleo - Oficina desde la web de zena.com"
mail.TextBody = Mensaje
if doclink <> "" then
mail.AddAttachment cvpath
end if
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "correo.zena.com"
'Server port
mail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
mail.Configuration.Fields.Update
mail.BodyPart.Charset = "utf-8"
mail.Send
set mail = nothing
If Err.Number <> 0 Then
Response.Redirect "error.asp"
Else
Response.Redirect "enviado.asp"
End If
%>
<%
end if
%>
