:: Kroton ::

<% txtMensaje = "" if Request("txtNombre")<>"" and Request("txtApellido")<>"" and Request("txtEmail")<>"" then strNombre = Request("txtNombre") & " " & Request("txtApellido") txtEmail = Request("txtEmail") strSubject = "Pagina de Contactanos - WebSite Pigmalion" strMensaje = "Pagina de Contactanos - WebSite Pigmalion Consultores" & vbCrLf & vbCrLf strMensaje = strMensaje & "Nombre : " & Request("txtNombre") & vbCrLf strMensaje = strMensaje & "Apellido : " & Request("txtApellido") & vbCrLf strMensaje = strMensaje & "Empresa :" & Request("txtEmpresa") & vbCrLf strMensaje = strMensaje & "Cargo : " & Request("txtCargo") & vbCrLf strMensaje = strMensaje & "Telefono de Contacto : " & Request("txtTlfContacto") & vbCrLf strMensaje = strMensaje & "Email : " & Request("txtEmail") & vbCrLf strMensaje = strMensaje & "Consulta : " & Request("txtConsulta") & vbCrLf & vbCrLf & vbCrLf strMensaje = strMensaje & "Este e-mail se genera automaticamente desde el website." 'EnviarEmail(BodyFormat, FromEmail, FromName, Recipiente, RecipienteCC, RecipienteBCC, ReplyTo, Subject, Mensaje) if EnviarEmail("TEXT",txtEmail,strNombre,"consultas@pigmalion.com.pe","","","",strSubject,strMensaje) then txtMensaje = "Gracias por contactarnos. En breve nos pondremos en contacto contigo." else txtMensaje = "Ocurrio un error. Por favor, intente en otra oportunidad." end if end if %> :: Kroton ::

by solutions

by trademark


	Cable Television
	Security and Surveillance
	Radiofrecuency
	Networking
	Structured Cabling
	Channeling System
	Automation & Control
	Audio, video and digital electronics

Name :
E-Mail :
City :
Country :
Telephone :
Fax :
Comments :

Address: Av. Petit Thouars 3460 – San Isidro - Lima – Perú
Telephone: (511) 611-1200 Fax: (511) 421-4191
E-mail: info@kroton.com.pe

English | Español