<% IF Request.ServerVariables("REQUEST_METHOD")="POST" THEN HTML="" For Each field In Request.Form if field<>"Submit" and mid(field,1,6)<>"Submit" and field <> "y" and field <> "x" and field <> "Contenido" then HTML=HTML&"" end if next HTML=HTML&"" HTML=HTML&"

	Planilla de Contacto
"&field&":	"&""&request.form(field)&""&"
Contenido:	"&""&request.form("Contenido")&""&"

" Dim objMessage Set objMessage = Server.CreateObject ("CDO.Message" ) objMessage.To = "ventas@neutron.com.ve" objMessage.From = "ventas@neutron.com.ve" objMessage.Cc = "jmorales@neutron.com.ve" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.cantv.net" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail.neutron.com.ve" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "satnev" objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objMessage.Configuration.Fields.Update objMessage.HTMLBody = html objMessage.Subject ="Ventas Neutron - Contacto" objMessage.Send Set objMessage = nothing END IF %>

Dirección: Neutron C.A. Calle 84 # 4 - 20 Edificio Unión, P.B., Local número 5, Maracaibo 4001. Venezuela. Teléfonos: 58-261-792.65.43 Fax: 58-261-7926635 Vo/IP USA: 305-357.83.38 Formulario en Línea • Nombre: • Cargo: • Empresa: • Teléfonos: • Email: • Asunto: • Mensaje:       Tel.: 58-261-792.65.43 • Fax: 58-261-792.66.35 Vo/IP USA: 305-357.83.38   info@neutron.com.ve