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