como configurar o smtp nesse codigo para enviar o email

[Nando Leads 0]

<%Dim MailSet Mail = Server.CreateObject("Persits.MailSender")'Conexão com a dll do servidor Mail.Host = "''''''''''''''aqui'''''''''''''''''" 'Local onde você colocará o smtp. Ex. "smtp.ricardo.com"Mail.From ="leandro@leadsnet.com.br" 'request.form("nome") 'Procura no form o nome colocadoMail.AddAddress "leandro@leadsnet.com.br" 'Procura no form o e-mail colocado'Mail.AddRecipient "Fernando","fer_nando_809@hotmail.com" 'O nome de quem está enviando e o E-mail Mail.Subject="teste"'Procura no form o assunto colocadoMail.Body = "testeteste"'Procura no form o texto colocadox = Mail.Sendif x = true thenMSG = "E-MAIL ENVIADO COM SUCESSO!"ElseMSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"end ifResponse.write MSG%>

quando executo aparece esta msg::

Script error detected at line 13.

Source line: x = Mail.Send

Description: Winsock error 11004 (0x2AFC) occurred.

 

 

tentei mudar o smtp para

Mail.Host = 200.229.128.67 'Local onde você colocará o smtp. Ex. "smtp.ricardo.com"

 

quando executo da essa msg

 

Script error detected at line 13.

Source line: x = Mail.Send

Description: 554 : Sender address rejected: Access denied

 

 

oqeu fazer?????????????????????

[Rodrigo1 0]

cara...pelo visto o erro ta na hora q você atribuiu o valor "mail.send" pro x...tenta fazer o if com err.number

[jrcardozo 4]

o mais correto seria

if Mail.Send thenMSG = "E-MAIL ENVIADO COM SUCESSO!"ElseMSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"end if

e retire

x = Mail.Sendif x = true thenMSG = "E-MAIL ENVIADO COM SUCESSO!"ElseMSG = " O E-MAIL NÃO FOI ENVIADO COM SUCESSO!"end if