P&Z Servicios Ltda.
Calle 12 C 79-A-25 Parque Industrial Alsacia Bodega 10
Telèfonos: 4247838 - 4460694
Fax: 2627414
Bogotá D.C - Colombia.
<%IF Request.QueryString("env")=1 THEN%>
<% IF request.form("interes")="" THEN
Response.Redirect "contactos.asp"
END IF %>
Sr (a). <%=Request.Form("nombre") %>
Gracias por su información.
Pronto estaremos respondiendo su solicitud |
| <%
REM --- VARIABLES PARA INGRESAR EN EL MENSAJE ---
var_nombre = Request.Form("nombre")
var_apellido = Request.Form("apellido")
var_dir = Request.Form("dir")
var_tel = Request.Form("tel")
var_fax = Request.Form("fax")
var_mail = Request.Form("mail")
var_ciudad = Request.Form("ciudad")
var_interes = Request.Form("interes")
var_comentarios = Request.Form("comentarios")
var_fecha = Date()
var_hora = time()
REM --- PASOS ENVIAR CORREO ---
Set JMail = Server.CreateObject ("JMail.SMTPMail")
JMail.ServerAddress = "127.0.0.1"
JMail.Sender = var_mail
JMail.AddRecipient "info@pyzservicios.com"
'JMail.AddRecipient "ruby_manjarres@hotmail.com"
JMail.Subject="P&Z - Contáctenos"
JMail.Body = "Contactenos." & CHR(10)
JMail.Body = JMail.Body & "Nombre: " & var_nombre & CHR(10)
JMail.Body = JMail.Body & "Apellido: " & var_apellido & CHR(10)
JMail.Body = JMail.Body & "Dirección: " & var_dir & CHR(10)
JMail.Body = JMail.Body & "Teléfono: " & var_tel & CHR(10)
JMail.Body = JMail.Body & "Fax: " & var_fax & CHR(10)
JMail.Body = JMail.Body & "Correo Electrónico: " & var_mail & CHR(10)
JMail.Body = JMail.Body & "Ciudad: " & var_ciudad & CHR(10)
JMail.Body = JMail.Body & "Comentarios: " & var_comentarios & CHR(10)
JMail.Body = JMail.Body & "Interés: " & var_interes & CHR(10)
JMail.Body = JMail.Body & "Fecha y hora del mensaje " & var_fecha & " " & var_hora & CHR(10)
JMail.Execute
Set JMail = Nothing
REM --- AUTORESPONDER ---
Set JResp = Server.CreateObject ("JMail.SMTPMail")
JResp.ServerAddress = "127.0.0.1"
JResp.Sender = "info@pyzservicios.com"
JResp.SenderName = "P&Z Servicios Ltda."
JResp.AddRecipient var_mail
JResp.Subject="P&Z Servicios Ltda - Contáctenos"
JResp.Body = CHR(10) & var_nombre & "," & CHR(10)
JResp.Body = JResp.Body & "Gracias por contactarnos." & CHR(10) & CHR(10)
JResp.Body = JResp.Body & "Pronto estaremos respondiendo su solicitud." & CHR(10) & CHR(10)
JResp.Body = JResp.Body & "http://www.pyzservicios.com" & CHR(10)
JResp.Execute
Set JResp = Nothing
%> |
<%END IF%>
<%IF Request.QueryString("env")<>1 THEN%>
<%END IF%>