Indique essa notícia

[Alessancost 0]

Adicionei um recurso de indicação de notícia, mas ele apresenta o seguinte erro:

 

Tipo de erro:

Objeto Server, ASP 0177 (0x800401F3)

Seqüência de classe inválida

/blog/Jus eundi/noticia/functions.asp, line 165

 

PS: Marquei de vermelho o local do erro

 

-- código

Function SendMail(Subject, Sender, Recipient, Body)

 

SendMail = False

 

Select Case Application(ScriptName & "EmailComponent")

 

Case "CDONTS"

 

Set objNewMail = Server.CreateObject ("CDONTS.NewMail")

objNewMail.BodyFormat = 1

objNewMail.MailFormat = 0

objNewMail.Send Sender, Recipient, Subject, Body

SendMail = True

 

Case "JMail"

 

Set JMail = Server.CreateObject("JMail.SMTPMail")

JMail.ServerAddress = Application(ScriptName & "SMTPServer")

JMail.Sender = Sender

JMail.Subject = Subject

JMail.AddRecipient Recipient

JMail.Body = Body

JMail.Execute

SendMail = True

 

case "aspMail"

 

Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")

objNewMail.FromAddress = Sender

objNewMail.RemoteHost = Application(ScriptName & "SMTPServer")

objNewMail.AddRecipient Recipient

objNewMail.Subject = Subject

objNewMail.BodyText = Body

objNewMail.SendMail

SendMail = True

 

case "SMTP"

 

Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")

objNewMail.MailServer = Application(ScriptName & "SMTPServer")

objNewMail.Recipients = Recipient

objNewMail.Sender = Sender

objNewMail.Subject = Subject

objNewMail.Message = Body

objNewMail.SendMail2

SendMail = True

 

case "aspEMail"

 

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

objNewMail.From = Sender

objNewMail.Host = Application(ScriptName & "SMTPServer")

objNewMail.AddAddress Recipient

objNewMail.Subject = Subject

objNewMail.Body = Body

objNewMail.Send

SendMail = True

 

End Select

 

End Function

-- fim do código

 

O que eu devo fazer?

Obrigado

[Alessancost 0]

Depois de algumas pesquisas verifiquei que o erro aí é pq não tem o CDonts instalado no servidor, pois o erro esta exatamente na linha de criação do objeto.

 

Minha duvida agora é...

O que é CDonts? http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

Obrigado

[mx loco 1]

Cdonts é um componente do ASP para envio de email... você tem que fazer o download no site da microsoft http://www.microsoft.com

e instalalar...

 

falows

[Salgado 4]

Veja com o servidor qual componente de email que é disponibilizado e altere em seu global.asa, na Aplication correspondente. Esse sistema de indique é Pronto não é?

[pimenta 0]

Obrigado pelas dicas... Vou verificar os componentes de e-mail em meu servidor.Esse sistema de indique é Pronto! :rolleyes: