Isacc Garza No. 333,
Col. Centro
Monterrey, Nuevo León. México.

Tels. 4040 - 0345

<% 'esta es la cuenta de "from" o "sender" y tambien es la que recibe el correo... cambiar para hacer pruebas strtmpmailto = "carlos@phiproducciones.com.mx" 'es el servidor de correo saliente que se utilizara para enviar el correo mailserver = "mail.phiproducciones.com.mx" if request("action")="envia" then contenido = vbcrlf&vbcrlf&"Nombre: " & request("Nombre") & vbcrlf & vbcrlf & _ "Email: " & request("Email") & vbcrlf & vbcrlf & _ "Telefono: " & request("Telefono") & vbcrlf & vbcrlf & _ "Empresa: " & request("Empresa") & vbcrlf & vbcrlf & _ "Asunto: " & request("Asunto") & vbcrlf & vbcrlf & _ "Mensaje: " & request("Mensaje") & vbcrlf & vbcrlf response.write SendEmail(strtmpmailto,strtmpmailto,"Mensaje desde sitio web", contenido) function SendEmail(mailfromaddress,mailtoaddress,titulo,mensaje) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromAddress = mailfromaddress Mailer.AddRecipient mailtoaddress, mailtoaddress Mailer.RemoteHost = mailserver Mailer.Subject = titulo Mailer.BodyText = mensaje if Mailer.SendMail then SendEmail = "Su mensaje ha sido enviado.

Gracias por comunicarse con nosotros.
" else SendEmail = "Error.

Por favor reporte esta falla a: "&strtmpmailto &"
" end if Set Mailer = Nothing end function else %>
Nombre:
 Empresa:
E-mail:
Teléfono:
Asunto:
Mensaje:
<% end if %>

carlos@phiproducciones.com.mx
:: VENTAS ::
marco@phiproducciones.com.mx
:: PRODUCCIÓN ::
patricia@phiproducciones.com.mx
 :: POST PRODUCCIÓN ::

Quienes Somos   |   Servicios  |  Clientes  |  Info de Contacto
Copyright 2006, PHI Producciones. Desarrollado por: EureKa Soluciones Gráficas