<%@ Language=VBScript %> <% if Request.Form="" then %>

Contacte con nosotros
Nombre y Apellidos
Empresa
Teléfono
Dirección
E-mail
Comentario

<% else nombre=Request.Form("nombre") empresa=Request.Form("empresa") telefono=Request.Form("telefono") direccion=Request.Form("direccion") email=Request.Form("email") comentario=Request.Form("comentario") Dim correo set correo=Server.CreateObject("CDONTS.NewMail") Dim txtmsg txtmsg="

Mensaje desde la web

"&nombre&", de la empresa "&empresa&", con teléfono "&telefono&" y email "&email&",Con dirección "&direccion&", ha realizado el siguiente comentario: "&comentario&"

" correo.From = "ConsultaWeb" correo.To = "intech@intechsl.com" correo.Subject="Consulta realizada desde la Web www.intechsl.com" correo.Body= txtmsg correo.mailFormat = 0 correo.bodyFormat = 0 correo.Send set correo= Nothing %>

Muchas gracias por sus comentarios. En breve nos pondremos en contacto con usted.

<% end if %>