E-mail Automatico

[diegocrosa]

tenho este codigo que é para buscar as informaçoes do db e enviar altomaticamente um e-mail para o e-mail que esta cadastrado, mnas ele não dá nenhum erro e nem envia o email dão uma olhada tem urgencia

<%

Set conexao = Server.CreateObject("ADODB.Connection")

cnpath="DBQ=" & server.mappath("anderson.mdb")

conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath

listar = "SELECT nome, email, login, senha FROM usuarios WHERE login = '"& request.form("login") &"'"

Set lista = conexao.Execute(listar)

nome = lista("nome")

email = lista("email")

login = lista("login")

senha = lista("senha")

Set Mail = Server.CreateObject("Persits.MailSender")

Mail.Host = "127.0.0.1" 'voce tinha escrito sem aspas

Mail.From = "anderson@anderson.com.br" ' Troque pelo email do remetente

Mail.FromName = "Anderson" ' Troque pelo nome do remetente

' Troque pelo email e nome do destinatário

Mail.AddAddress "&email&", "Destinatário"

Mail.Subject = "Cadastro no Folow-Up da Anderson" ' Assunto do e-mail

Mail.Body = "Nome:" &nome& "<br> Login:" &login& "<br> Senha:" &senha& "<br>"

On Error Resume Next

Mail.Send

If Err.number <> 0 Then

Response.Write "Error encountered: " & Err.Description

End If

On Error Goto 0

%>

[Eddie_666]

Que tipo de erro ele retorna?