Á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.
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
%>
|