Ir para conteúdo
Fórum Script Brasil
  • 0

Server Object Error 'asp 0177 : 800401f3'

Guest - dani -

Perguntado por Guest - dani -,

 Share

Pergunta

Guest - dani -

Guest - dani -

Postado
Postado

Olá o meu servidor aceita a componente aspmail então criei uma pagina para enviar emails com este codigo:

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer") «linha 2»

Mailer.FromName = Request("name")

Mailer.FromAddress = Request("email")

Mailer.RemoteHost = "mail.teras.com"

Mailer.AddRecipient "teste", request.form("xavier@teras.com")

Mailer.Subject = "Contato"

Mailer.BodyText = "Olá, <br>você recebeu uma nova mensagem de <b>"+Request("name")+"</b.<br><br>Mensagem:"+Request("comments")

%>

mas da-me este erro dry.gif

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/EN/send.asp, line 2

800401f3

O que está mal? no meu computador rola sem problemas.

Link para o comentário
Compartilhar em outros sites

17 respostass a esta questão

Posts Recomendados

  • 0
dark0

dark0

Postado
Postado

é isso ae

seu servidor não suporta o componente aspMail

Link para o comentário
Compartilhar em outros sites
  • 0
fantasma

fantasma

Postado
Postado

roda este escript e ve se esta instalado

<title>Marcelo P. Matos -</title>

<body bgcolor="#FFFFFF" text="#640000" link="#660000" vlink="#660000" alink="#660000">

<%

Dim arrListaComponentes(47)

arrListaComponentes(0) = Array( "AB Mailer","ABMailer.Mailman" )

arrListaComponentes(1) = Array( "ABC Upload","ABCUpload4.XForm" )

arrListaComponentes(2) = Array( "ActiveFile","ActiveFile.Post" )

arrListaComponentes(3) = Array( "ActiveX Data Object","ADODB.Connection" )

arrListaComponentes(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )

arrListaComponentes(5) = Array( "ASP DNS", "AspDNS.Lookup" )

arrListaComponentes(6) = Array( "ASP HTTP","AspHTTP.Conn" )

arrListaComponentes(7) = Array( "ASP Image","AspImage.Image" )

arrListaComponentes(8) = Array( "ASP Mail","SMTPsvg.Mailer" )

arrListaComponentes(9) = Array( "ASP NNTP News", "AspNNTP.Conn" )

arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" )

arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )

arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )

arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )

arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )

arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" )

arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )

arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )

arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )

arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )

arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" )

arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" )

arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" )

arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" )

arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )

arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" )

arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" )

arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")

arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")

arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")

arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )

arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" )

arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" )

arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" )

arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" )

arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" )

arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" )

arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )

arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" )

arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )

arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )

arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" )

arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )

arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" )

arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )

arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )

arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" )

arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )

' Rotina que verifica o componente do array é um objeto.

Function VerificaObjeto(pComponente)

Dim objComponente

On Error Resume Next

VerificaObjeto = False

Err.Clear

Set objComponente = Server.CreateObject(pComponente)

If Err = 0 Then VerificaObjeto = True

Set objComponente = Nothing

Err.Clear

End Function

Public Function VerificaComponentes()

Dim intCont, strTxt

Dim intIndex, strProv

intCont = 0

strTxt = "<table border='1' bordercolor='#A00000' cellspacing='0' cellpadding='0' align='center' width='400'>"

For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)

strProv = intIndex

strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='1'>" & arrListaComponentes(intIndex)(0) & "</font></td>"

If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then

strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='1'>Instalado</font></td>"

intCont = intCont + 1

Else

strTxt = strTxt & "<td align='center'><font face='tahoma' size='1'>Não Instalado</font></td>"

End If

strTxt = strTxt & "</tr>"

Next

strTxt = strTxt & "</table><p align='center'><font face='tahoma' size='2'><b>" & intCont & "</b> componentes instalados de "

strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> no provedor.</font> </p>"

VerificaComponentes = strTxt

End Function

Response.Write "<center><a href='http://www.kissseedonuts.com.br'><font size='1' color='660000' face='tahoma'>Ni7o7olii8i</font></a></p>"

caminho = server.MapPath("\")

response.write "<center><font face='tahoma' size='1'>" & caminho & "</font></center>"

Response.Write VerificaComponentes

Response.Write "<p><center><font face='tahoma' size='1'>&copy; Copyright 2004 <a href='mailto:crincy_rio@terra.com.br'> Crincy_Rio &reg;</a>. Todos os direitos reservados.</font></center>"

'-------------------------

%>

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - dani -

Guest - dani -

Postado
Postado

Olha ai a mensagem que eles me enviaram:

O server usa aspmail como componente de email, mas tem de usar o Outlook ou

outro programa externo para receber e vnair emails, o Helm não permite esse

serviço diretamente no painel de controle.

Link para o comentário
Compartilhar em outros sites
  • 0
cyberalexxx

cyberalexxx

Postado
Postado
Olha ai a mensagem que eles me enviaram:

O server usa aspmail como componente de email, mas tem de usar o Outlook ou

outro programa externo para receber e vnair emails, o Helm não permite esse

serviço diretamente no painel de controle.

Nunca ouvi falar isso!!

Ao meu ver basta o server ter o componente registrado e um servidor para envio de mensagens (SMTP)

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - dani -

Guest - dani -

Postado
Postado

bem pelo que me estou a perceber tenho que mudar para

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

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

vou testar

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - dani -

Guest - dani -

Postado
Postado

Ao menos descubriram onde estava o problema, vamos lá ver se á aqui tutorial sobre aspEmail para poder corrigir o erro. Muito obrigado fantasma cyberalexxx ajudaram-me imenso biggrin.gif

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

heheh

aki na sb tem de tudo !!

Tem tópico exclusivo de quase todos os componentes de e-mails

Voltando ao assunto..

Como sempre.. a qualidade do suporte dos hosts está cada dia pior...

Link para o comentário
Compartilhar em outros sites
  • 0
Guest - dani -

Guest - dani -

Postado
Postado

Andam a prestar um péssimo serviço é tudo trocado responder tarde isto quando sabem a resposta. Mas tem uma coisa infalível são baratos smile.gif que traz estes problemas. Lembra-me de a tempos mandar-lhes uma dúvida sobre asp, responde-me que não é entendido na matéria que não sabia a resposta. Uma pessoa presta um serviço de host com aplicações em asp e não percebe nada do assunto, isto é de rir. Eu percebo pouco mas quem me presta o serviço ainda é pior que eu. biggrin.gifbiggrin.gif

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

huahuauhahua

pois é ..

Hoje eu to usando um servidor não muito caro, e não to tendo nenhum problema, e ainda o suporte sempre me atendeu direitinho

Vai muito de servidor pra servidor..

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...