%
if trim(request("accion")) = "Enviar" and trim(request("nombre")) <> "" then
linea = "
"
xbody = ""
xbody = xbody & "Nombre: " & request("nombre") & linea
xbody = xbody & "Empresa: " & request("empresa") & linea
xbody = xbody & "Giro de Empresa: " & request("giro") & linea
xbody = xbody & "Teléfono: " & request("telefono") & linea
xbody = xbody & "Email: " & request("email") & linea
xbody = xbody & "Direccion: " & request("direccion") & linea & linea
xbody = xbody & "Tipo de Equipo: " & request("tipo_equipo") & linea
xbody = xbody & "Lugar de Uso: " & request("lugar_uso") & linea
xbody = xbody & "Periodo de Arriendo: " & request("periodo_arriendo") & linea & linea
xbody = xbody & "Mensaje: " & request("mensaje") & linea & linea
xbody = xbody & "Fecha: " & now() & linea
Set bmr_mail = Server.CreateObject("Persits.MailSender")
bmr_mail.Helo = "plesk3.puntohost.cl"
bmr_mail.Host = "mail.tecsaequipos.cl"
bmr_mail.Username = "contacto@tecsaequipos.cl"
bmr_mail.Password = "c5059"
bmr_mail.FromName = "TECSA EQUIPOS"
bmr_mail.From = "contacto@tecsaequipos.cl"
bmr_mail.AddAddress("mmlopez@tecsa.cl")
bmr_mail.IsHTML = True
bmr_mail.Subject = "TECSA EQUIPOS - Contacto"
bmr_mail.Body = xbody
bmr_mail.send
%>
<%end if%>
|
||||||||||||||||||||