<%@LANGUAGE="VBSCRIPT"%> SETEM - Área Cliente
SETEM English site Site Français

Área Cliente Contactar

<% if not Request.ServerVariables("REQUEST_METHOD") = "POST" then 'no recibo formulario, entonces lo muestro %>

Si deseas hacernos alguna sugerencia simplemente rellena el siguiente formulario y envíanoslo.

Datos de contacto

Nombre
Correo Electrónico

Inserta aquí el texto de tu sugerencia*

 

NOTA: Los campos marcados con asterisco (*) son obligatorios.

 

Horario de Agosto 2014:

    • Durante el mes de Agosto la recepción abrirá de 9:00 a 14:00 excepto del dia 11 al 17 que permanecerá cerrada por vacaciones. Tienen a disposición nuestro contestador telefónico automático en el número habitual 934232238 o nuestro correo electrónico mail@setem.es para contactar con nosotros.

<%Else 'recojo los datos Dim sNombre, sSugerencia, sEmail, mail sNombre = Request.form("Nombre") sEmail = Request.form("Email") sSugerencia = Request.form("txtSugerencia") 'compongo el cuerpo del mensaje cuerpo = "DATOS DEL CLIENTE" & VBNEWLINE & VBNEWLINE cuerpo = cuerpo & "Nombre: " & sNombre & VBNEWLINE cuerpo = cuerpo & "Email: " & sEmail & VBNEWLINE & VBNEWLINE cuerpo = cuerpo & "SUGERENCIA " & VBNEWLINE & VBNEWLINE cuerpo = cuerpo & sSugerencia 'mando el correo 'creo el objeto correo set mail = server.createObject("Persits.MailSender") 'configuro el mensaje 'señalo el servidor de salida para enviar el correo mail.host = Application("Mail_Host") mail.username = Application("Mail_User_Name_Sugerencias") mail.password = Application("Mail_Password_Sugerencias") 'indico la dirección de correo del remitente mail.from = Application("Mail_From_Sugerencias") 'indico la dirección del destinatario del mensaje mail.addAddress Application("Mail_Address_Sugerencias") 'indico el asunto del mensaje mail.Subject = "Sugerencia" 'indico el cuerpo del mensaje mail.body = cuerpo 'lo envio 'aseguro que no se presenten errores en la página si se producen On Error Resume Next mail.send if Err <> 0 then %>

Error, no se ha podido completar la operación.

<% else %>

Gracias por rellenar el formulario. Se ha enviado correctamente.
<% end if ' err <> 0 set mail = nothing end if %>