Herrajes de estilo - Manijas, Manijones, Chapas, Pomos, Aldabones, Cubetas, Fallebas, Pomitos
LA EMPRESA HERRAJES ESTILO HERRAJES LISOS ARTICULOS CONTACTO

 
  Inicio | Contacto  

Complete el formulario de contacto para despejar sus dudas o inquietudes. Le responderemos a la brevedad.

<%@ Language = "VBScript" %> <%if request.form="" then 'no recibo formulario, entonces lo muestro %>

Nombre:
Empresa:
Telefono:

E-Mail:
Asunto:
Mensaje:
 

 

 
 
<% else nombre = request.form("nombre") empresa = request.Form("compania") telefono= request.form("telefono") email = request.form("email") asunto= request.Form("asunto") consulta= request.Form("mensaje") 'compongo el cuerpo del mensaje cuerpo = "CONSULTA DE UN VISITANTE DE LA PAGINA WEB" & VBNEWLINE & VBNEWLINE cuerpo = cuerpo & "Nombre: " & nombre & VBNEWLINE cuerpo = cuerpo & "Empresa: " & empresa & VBNEWLINE cuerpo = cuerpo & "Email: " & email & VBNEWLINE cuerpo = cuerpo & "Telefono: " & telefono & VBNEWLINE cuerpo = cuerpo & VBNEWLINE & VBNEWLINE cuerpo = cuerpo & consulta & VBNEWLINE set Mail = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1" iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 iConf.Fields.Update Set Mail.Configuration = iConf 'asunto mail.subject = asunto 'remitente mail.from = email 'destinatario mail.to = "info@herrajescuccarese.com.ar" 'cuerpo del mensaje mail.textbody = cuerpo 'lo envio 'aseguro que no se presenten errores en la página si se producen 'On Error Resume Next mail.send set mail = nothing Set iConf = Nothing Set Flds = Nothing if Err <> 0 then response.Redirect("http://www.herrajescuccarese.com.ar/mailko.html") else response.Redirect("http://www.herrajescuccarese.com.ar/mailok.html") end if end if %>