Erro em Script Pronto

[marra³ 0]

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/marra/cartao/incgenmail.asp, line 4

 

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Esse foi o erro... o sistema esta funcionando perfeitamente, porem no ultimo passo, em que ele realmente ira mandar o cartao para o destinatario, ele acusa o erro no arquivo "incgenmail.asp".

 

Esse é o arquivo "incgenmail.asp":

<%Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )   Dim objMail   set objMail = server.createobject("SMTPsvg.Mailer")   objMail.FromName = sFromEmail   objMail.FromAddress = sFromEmail   objMail.RemoteHost = sEmailServer   objMail.AddRecipient sToEmail, sToEmail   objMail.Subject = sSubject   objMail.BodyText = sText   if objMail.SendMail then	 SendEmail = ""   else	  ' Message send failure	  SendEmail = objMail.Response   end if   Set objMail = nothing End Function%>

Meu HOST de Asp é gratuito, talvez seja isso?

 

Espero Ajuda!

 

Grato.

[leo_davi 0]

Acho que você deve verificar se o componente esta instalado no Servidor de Hospedagem

[CassianoVix 0]

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/marra/cartao/incgenmail.asp, line 4

 

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Esse foi o erro... o sistema esta funcionando perfeitamente, porem no ultimo passo, em que ele realmente ira mandar o cartao para o destinatario, ele acusa o erro no arquivo "incgenmail.asp".

 

Esse é o arquivo "incgenmail.asp":

<%Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )   Dim objMail   set objMail = server.createobject("SMTPsvg.Mailer")   objMail.FromName = sFromEmail   objMail.FromAddress = sFromEmail   objMail.RemoteHost = sEmailServer   objMail.AddRecipient sToEmail, sToEmail   objMail.Subject = sSubject   objMail.BodyText = sText   if objMail.SendMail then	 SendEmail = ""   else	  ' Message send failure	  SendEmail = objMail.Response   end if   Set objMail = nothing End Function%>

Meu HOST de Asp é gratuito, talvez seja isso?

 

Espero Ajuda!

 

Grato.

 

Sim... deve ser isso. Provavelmente seu servidor de hospedagem não suporta o SMTPsvg.Mailer.

 

Verfique qual ele suporta, e troca o componente. Deve suportar pelo menos o CDONTS.

 

Ou troca de servidor de hospedagem... hehehe...