<% Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = "Prática Intranet " objMail.To = "virgilio@pratica.eti.br" objMail.Subject = "Intranet - " & request("titulo") ObjMail.Body = request("mensagem") objMail.Send Set ObjMail = Nothing response.redirect "http://micro-2/intranet/noticias.asp?codigo=" & request("codigo") & "&tipopesq=" & request("tipopesq") %>