% accion = Request.form("accion") if request.Form("email") = "" then email = "No dispone de e-mail" emailer = "" else email = Request.Form("email") end if if accion = "enviar" then Set Mail = Server.CreateObject("Persits.MailSender") ' E-mail Destinatario correo = "secretaria@forociudadano.org" if emailer = "" then Mail.From = "foro@forodigital.es" else ' E-mail Remitente Mail.From = email end if ' De Mail.FromName = "Web" Mail.AddAddress correo ' Asunto Mail.Subject = "Boletin" ' message body cuerpo = "E-mail: " & email Mail.Body = cuerpo strErr = "" Mail.Queue = True var=Mail.Send ' send message response.Redirect("http://www.forociudadano.org/boletin/ok.asp") end if %>
![]() |
![]() |
![]() |
|||||||
|
|||||||||
|
|
||||||||||||||
| © Foro Ciudadano | |||||||||||||||