<%
if request("sw") = "1" then sw = 1
if request.Form<>"" then
On error resume next
If request("nombre")="" OR request("email")="" OR request("sugerencia")="" then
sw = 1
else
sw = 2
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.ecodes.org"
Mail.From = request("email")
Mail.FromName = request("nombre")
Mail.AddAddress "consumoresponsable@ecodes.org"
Mail.AddBCC "susana.ortega@ecodes.org"
Mail.AddBCC "ciro.artigot@ecodes.org"
Mail.AddReplyTo request("email")
Mail.Subject = "Sugerencia www.consumoresponsable.org"
Mail.Body = request("sugerencia")
Mail.Send
end if
end if
today = Date()
%>
Consumo Responsable : buzón de sugerencias
