<% else %> <% 'Campos del formulario nombre = request("nombre") apellidos = request("apellidos") telefono = request("telefono") email = request("email") obs = request("obs") 'Esto será el cuerpo del mensaje cuerpo= "UNETE AL EQUIPO" & Chr(13) & Chr(10) cuerpo = cuerpo & "Nombre: " & nombre & Chr(13)& Chr(10) cuerpo = cuerpo & "Apellidos: " & apellidos & Chr(13)& Chr(10) cuerpo = cuerpo & "Teléfono: " & telefono & Chr(13)& Chr(10) cuerpo = cuerpo & "E-Mail: " & email & Chr(13)& Chr(10) cuerpo = cuerpo & "Curriculum: " & obs & Chr(13)& Chr(10) %> <% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.buenavistatoledo-el-mejor-hotel-en-toledo-y-cerca-de-madrid.es" ' Specify a valid SMTP server Mail.From = "equipo@buenavistatoledo-el-mejor-hotel-en-toledo-y-cerca-de-madrid.es" ' Specify sender's address Mail.FromName = "Únete al Equipo" ' Specify sender's name Mail.Username = "kdb920c" Mail.Password = "Equipo123" Mail.AddAddress email, "UNETE AL EQUIPO" Mail.AddBcc "equipo@buenavistatoledo-el-mejor-hotel-en-toledo-y-cerca-de-madrid.es", "UNETE AL EQUIPO" Mail.AddReplyTo "amigo@buenavistatoledo-el-mejor-hotel-en-toledo-y-cerca-de-madrid.es" Mail.Subject = "UNETE AL EQUIPO" Mail.Body = cuerpo On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If %>