Web en Castellano Site français SETEM

Client Zone Suggestions

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

If you wish to do some suggestion simply fill up the following form and send it to us.

Contact data

Name
e-mail

Insert here the text of your suggestion*

 

NOTE: The fields marked (*) are required.

<%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!! It has not been possible to complete the operation.

<% else %>

Thank you for filling in the form. It has been correctly sent.
<% end if ' err <> 0 set mail = nothing end if %>