<% ' Envio de correo usando ASPEmail en formato Texto. ' Operaciones Triara - JCMN Dim message br = vbCrLf 'Salto de Linea If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") 'Enter valid SMTP host ==> smtp.triara.com, No mover IP Mail.Host = "smtp.rendonyasociados.com" 'Authentification (No usar la de webmaster por seguridad) Mail.Username = "info@rendonyasociados.com" Mail.Password = "1234567890" Mail.From = "info@rendonyasociados.com" Mail.FromName = "InfoRendonYasociados" ' Mail.AddAddress "iscjagg@hotmail.com" 'Viene de la forma HTML 'Se pude enviar a N destinatarios Mail.AddAddress "info@rendonyasociados.com" ' Mail.AddAddress "gcoria30@gmail.com" 'Mail.AddAddress "jcmunoz@rocketmail.com", "Mr. Julio" ' message subject Mail.Subject = "Envio de correo desde el Web" 'message body 'Creamos la variable message con todos los datos message = "Información de forma de bolsa de trabajo" message = message + " " + FormatDateTime(Date) + br + br message = message + "Nombre = " + Request.form("nombre") + br message = message + "Apellido Paterno = " + Request.form("nombre2") + br message = message + "Apellido Materno = " + Request.form("nombre3") + br message = message + "Estado = " + Request.form("estado") + br + br message = message + "E-mail = " + Request.form("email") + br message = message + "telefono = " + Request.form("telefono") + br message = message + "Maestria = " + Request.form("maestria") + br message = message + "Profesional = " + Request.form("profesional") + br message = message + "Operaciones Triara." Mail.Body = message On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encontrado: " & Err.Description Else Response.buffer=true Response.redirect "bolsaok.htm" End If End If %>
¡Ponle precio!
Tu información lo vale
Asegura tu información
R&A te ayuda
Contáctanos
Gracias por interesarte en Rendón y Asociados como opción para tu desarrollo profesional. Envíanos tus datos y en el corto plazo nos comunicaremos contigo
-Nombre
-Apellido paterno
-Apellido materno
-Estado
AGUASCALIENTES
BAJA CALIFORNIA NORTE
BAJA CALIFORNIA SUR
CAMPECHE
CHIAPAS
CHIHUAHUA
COAHUILA
COLIMA
DISTRITO FEDERAL
DURANGO
ESTADO DE MEXICO
GUANAJUATO
GUERRERO
HIDALGO
JALISCO
MICHOACAN
MORELOS
NAYARIT
NUEVO LEON
OAXACA
PUEBLA
QUERETARO
QUINTANA ROO
SAN LUIS POTOSI
SINALOA
SONORA
TABASCO
TAMAULIPAS
TLAXCALA
VERACRUZ
YUCATAN
ZACATECAS
-E-mail
-Teléfono
-Grado profesional
Indicar cual
-Maestría
-Profesional
Envíanos tu Curriculum Vitae a
info@rendonyasociados.com