<% strSubject = "Una Descarga de Extension No. 15" strBody = "" strBody = strBody & "Se ha realizado una descarga de Extension No. 15" strBody = strBody & "" Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.Host = "mail.texcocoe.com.mx" objCDOMail.From = "descarga@texcocoe.com.mx" objCDOMail.To = "arte@texcocoe.com.mx" objCDOMail.Subject = strSubject objCDOMail.BodyFormat=0 objCDOMail.Body = strBody objCDOMail.Send Set objCDOMail = Nothing Response.redirect("Publicaciones/Extension_al_Campo_15.exe") %>