· · :: JET Internacional

Contáctenos

<%if request.Form="" then %> <%else contexto = "Información de Página de Contacto " & VbCrLf & VbCrLf contexto = contexto&"Datos del Usuario:" & VbCrLf & VbCrLf contexto = contexto&"Departamento: "&Request.form("departamento") & VbCrLf contexto = contexto&"Nombre: "&replace(Request.form("nombres"),"'","''") & VbCrLf contexto = contexto&"Apellido: "&replace(Request.form("apellidos"),"'","''") & VbCrLf 'contexto = contexto&"Sexo: "&Request.form("Sexo") & VbCrLf contexto = contexto&"Teléfono: "&replace(Request.form("cod"),"'","''") &"-"&replace(Request.form("telefono"),"'","''") & VbCrLf contexto = contexto&"Celular: "&replace(Request.form("cod2"),"'","''") &"-"&replace(Request.form("celular"),"'","''") & VbCrLf contexto = contexto&"E-mail: "&replace(Request.form("email"),"'","''") & VbCrLf contexto = contexto&"Fecha: "&now & VbCrLf contexto = contexto&"Comentarios: "&replace(Request.form("comentarios"),"'","''") & VbCrLf '********************************************************************** '*********************************** Enviar correo a Cliente e Itmedia Dim Mail host="mail.jet.com.ve" nombrecliente="... JET INTERNACIONAL ..." correo_cliente_desde="registros@jet.com.ve" correo_cliente_hasta="jet@jet.com.ve" 'correo_cliente_hasta="antonieta@litho-media.com" correo_cc="antonieta@litho-media.com,jorge@litho-media.com" set Mail=Server.CreateObject("Persits.MailSender") Mail.reset Mail.Host = host Mail.From = correo_cliente_desde Mail.FromName = Nombrecliente Mail.AddAddress correo_cliente_hasta Mail.AddBcc correo_cc Mail.Subject = "Nuevo Contacto Web" Mail.Body = contexto On Error Resume Next Mail.Send %> <%end if%>

Formulario de Contacto


Nombres *()**
Apellidos *()**
Teléfono *()**	-
Celular *()**	-
E-mail *()**
Comentario *()**
Los campos marcados con (*) son obligatorios

Su Mensaje fue recibido con éxito, estaremos en contacto con usted en la brevedad posible.