Erro No Meu Formulario De E-mail!

[ROLLL!!!!]

Alguém pode me explicar como resolver esse problema:

----aqui vai meu código de asp (que nunca deu problema antes) que envia o formulário:-----

<%
Set Mail = Server.CreateObject("Persits.MailSender")
' coloca aqui o seu smtp
   Mail.Host = "smtp.dominio.com.br"

   Mail.From = Request.form("frm_email") ' From address
   Mail.FromName = Request("frm_nome") ' optional
   'endereço de quem vai receber isso na empresa.
   Mail.AddAddress  "email@dominio.com.br"
   Mail.isHTML = True
   ' assunto da mensagem 
   Mail.Subject = "contato via site"
   ' message body
   Mail.Body = "Empresa: "&request.form("frm_empresa")&"<br>"
   mail.body = Mail.body & "Nome: "& request.form("frm_nome")&"<br>"
   mail.body = Mail.body & "Email: "& request.form("frm_email")&"<br>"
   mail.body = Mail.body & "Cargo: "& request.form("frm_cargo")&"<br>"
   mail.body = Mail.body & "Endereço: "& request.form("frm_endereco")&"<br>"
   mail.body = Mail.body & "CEP: "& request.form("frm_cep")&"-"& request.form("frm_cep2")&"<br>"
   mail.body = Mail.body & "Cidade: "& request.form("frm_cidade")&"<br>"
   mail.body = Mail.body & "Estado: "& request.form("frm_estado")&"<br>"
   mail.body = Mail.body & "Mensagem: "& request.form("frm_mensagem")&"<br>"
   mail.body = Mail.body & "Visita: "& request.form("visita")&"<br>"
   mail.body = Mail.body & "Autoriza: "& request.form("autorizarrecebimento")&"<br>"
   
   strErr = ""
   bSuccess = False
   On Error Resume Next ' catch errors
   Mail.Send ' send message
   If Err <> 0 Then ' error occurred
      strErr = Err.Description
   else
      bSuccess = True
   End If%>

e esse aí debaixo é o erro que esta dando...

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/teste_tito/enviar.asp, line 266

System message, messageid = 0x800401f3

Valeww, galera!

[kuroi]

qual a linha 266??

acredito que seja esta:

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

não??

tem certeza que seu servidor suporta esse componente persits.mailsender?? e você digitou certinho o nome dele?? da uma olhada nisso...

ou você está rodando local??

[bareta]

verifique se o server possui o componente...persists aspmail

[ROLLL!!!!]

então, é essa linha mesmo....o foda é que isso nunca deu errado, tenho vários sites com esse código e todos estão rodando e enviando bem, só agora que tenho que fazer um faleconosco prum site novo está dando esse pau...

estou rodando ele em rede, e sim, o provedor suporta..

esse persists aspmail não está lá, eu colocaria ele nessa linha mesmo? tipo isso:

Set Mail = Server.CreateObject("persists aspmail.MailSender")

vê se é isso.

valeu aí, galeraa!

[Marcos-rj]

Da uma ligada p/ seu provedor e vê se eles mudaram alguma coisa e se ainda tem este componente.

[ROLLL!!!!]

pode cre, cara, vou ligar, ninguém pode me passar um código pra eu da uma olhada e comparar...sei lá, me ajudem aí..

valeu, qualquer coisa eu posto aew!

[kuroi]

mas é persists ou persits?

o codigo que você postou esta assim:

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

o certo seria esse:

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

??

[Marcos-rj]

O nome do componente é Persits ASPEmail

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

Manual ASPEmail

[ROLLL!!!!]

é Set Mail = Server.CreateObject("Persits.MailSender") mesmo... realmente não sei o que pode estar acontecendo..., vou ser com o provedor, mas ainda num sei se é realmente isso.

caso aleguém tenha um código de aspemail atualizado, passe pra eu dar uma olhada e testar de booa...to precisando.

abraço a todos!

[ROLLL!!!!]

galera, problema resolvidoo!!!

Obrigado a todos!!!

:D :D :D