Boletín
<%
if Request.Form("Enviado") = "OK" then
msg = ""
msg2 = ""
if request.Form("Accion") = "alta" OR request.Form("Accion") = "baja" then
if Request.Form("EMail") = "" then
msg = "e-mail"
else
msg = ""
end if
if not isValidEmail(Request.Form("EMail")) then
msg2 = "e-mail."
end if
end if
if msg = "" AND msg2 = "" then ' Si el e-mail es vĂ¡lido
if Request.Form("Accion") = "alta" then
' Si solicita un alta comprobamos que NO exista
connOpen conn
set rsEMail = Server.CreateObject("ADODB.Recordset")
sql = "SELECT Email FROM BoletinEmails WHERE Email = '"& Request.Form("Email") &"'"
rsEmail.Open sql, conn, 2, 3
if not rsEMail.EOF then ' Si existe mensaje de error
msg2 = "El e-mail facilitado ya está suscrito a nuestro boletín"
else ' Si no... lo guardamos
sql = "INSERT INTO BoletinEmails (Email, FechaAlta) VALUES ('"& Request.Form("Email") &"', '"& Now() &"')"
conn.Execute(sql)
end if
rsEMail.Close
set rsEMail = nothing
connClose conn
else ' Si solicita una baja comprobamos que exista ya en la BDs
connOpen conn
set rsEMail = Server.CreateObject("ADODB.Recordset")
sql = "SELECT Email FROM BoletinEmails WHERE EMail = '"& Request.Form("Email") &"'"
rsEmail.Open sql, conn, 2, 3
if not rsEMail.EOF then ' Si existe lo borramos
sql = "DELETE FROM BoletinEmails WHERE Email = '"& Request.Form("Email") &"'"
conn.Execute(sql)
else ' Si no... mensaje de error
msg2 = "El e-mail facilitado no está suscrito a nuestro boletín"
end if
rsEMail.Close
set rsEMail = nothing
connClose conn
end if
end if
end if
%>
<% if msg <> "" then %>
ATENCIÓN:
Faltan por rellenar los siguientes campos:
<%=msg%>.
<% elseif msg2 <> "" then %>
ATENCIÓN:
Hay algún campo incorrecto :
<%=msg2%>.
<%end if %>
<% if Request.Form("Enviado") <> "OK" or (msg <> "" or msg2 <> "") then %>
Si quieres recibir directamente en tu e-mail las
ofertas, novedades... que llevamos a cabo en Infosegur no dudes en suscribirte
a nuestro boletín. Es rápido, sencillo, gratuito y podrás
darte de baja cuando quieras.
<% else %>
<% if Request.Form("Accion") = "alta"then %>
El proceso de suscripción
ha concluido satisfactoriamente.
Muchas gracias por tu interés.
aceptar
<% else %>
Tu e-mail ha sido dado
de baja correctamente.
Muchas gracias.
aceptar
<% end if %>
<% end if %>