<%@ 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
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 %>