Mandar email

Boa Tarde, GaleraQuero que ao efetuar a alteração a pessoa que gerencia o programa receba um email, dizendo que algo foi alterado, o codigo esta abaixo, mas naum sei o por que que naum envia o email......ValeuBjnhos<%'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveisOption Explicit'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, strQuery, sql_query, RsQuery, campo, sql, contadorDim data,descricao,quantidade,req,unidade,solicitante,informacao,aplicacao,datarequerida,entregue,preco, ObjRs'Atrubuição dos valores as respectivas variáveisdata = Request.Form("data")descricao = Request.Form("descrição")quantidade = Request.Form("quantidade")req = Request.Form("req")unidade = Request.Form("unidade")solicitante = Request.Form("solicitante")informacao = Request.Form("informação")aplicacao= Request.Form("aplicação")datarequerida= Request.Form("datarequerida")entregue=request.form("entregue")preco = Request.Form("preço")if descricao = "" then descricao = " "end ifif preco = "" then preco = " "end ifcontador = Request.Form("contador")'Cria o objeto RecordSet e atribui a variável Set objConn = Server.CreateObject("ADODB.Connection")'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)'(.mdb) indica que o arquivo utiliza extensão mdbobjConn.Open "DBQ=" & Server.MapPath("Lab_xp.mdb") & ";Driver={Microsoft Access Driver (.mdb)}","username","password"strQuery = "UPDATE SOLIC_COMPRA SET data = '"&data&"', descrição='"&descricao&"', quantidade='"&quantidade&"',req='"&req&"', unidade='"&unidade&"',solicitante='"&solicitante&"',informação='"&informacao&"',aplicação='"&aplicacao&"',datarequerida='"&datarequerida&"',entregue='"&entregue&"',preço = '"&preco&"' WHERE contador ="&contador 'Caso ocorra um erro esta função de erro será chamada On error Resume Next 'Executaa inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery) 'Fecha o Objeto de Conexão objConn.close '"APAGA" qualquer instancia que possa ter no objeto objRs e objConn Set objRs = Nothing Set objConn = Nothing if err = 0 Then 'Caso não haja nenhum erro, um correio é enviado para o responavél, informando que um novo cadastro foi realizado. e a mensagem de sucesso é mostrada. Set objeto = CreateObject("Scripting.FileSystemObject") Set escrita = objeto.OpenTextFile(txtPath,ForWriting,True) Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "LAB.NET" Mailer.To = "iiiii@bbbb.com.br, xaa@bbbb.com.br" Mailer.BodyFormat = 1 Mailer.MailFormat = cdoMailFormatText Mailer.Subject = "Alteração Efetuada" Mailer.Body = "Foi realizada uma alteração!" Mailer.Send Set Mailer = Nothing end if %>