Sistema de Indique este site

[Faciroli 0]

Será que alguém pode dar uma ajuda em um sistema de indique o site a um amigo.

 

Quando preenche o formulário e clica em enviar retorna o seguinte erro:

 

***************************************************************

Objeto de servidor erro 'ASP 0177 : 800401f3'

 

Falha em Server.CreateObject

 

/email_marketing/incgenmail.asp, linha 4

 

800401f3

 

***************************************************************

 

Abaixo o arquivo incgenmail.asp:

 

 

<%
Function SendEmail( sEmailServer, sFromEmail, sToEmail, sSubject, sText )
  Dim objMail
[b][color="#ff0000"]Linha 04=> [/color][/b]  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
%>

 

Abaixo endereço dos serviços instalados no servidor onde hospedo o site;

 

http://189.39.80.102/components/

[Vinicius Ianni 189]

Além de ter certeza que o componente está habilitado no plano que contratou, verificou se a autenticação é feita da maneira solicitada pelo host ?

 

Alguns hosts pedem autenticação, outros não.

É bom verificar tudo isso e se o host tem algum exemplo de script usando o componente e que funcione.

[Faciroli 0]

Além de ter certeza que o componente está habilitado no plano que contratou, verificou se a autenticação é feita da maneira solicitada pelo host ?

 

Alguns hosts pedem autenticação, outros não.

É bom verificar tudo isso e se o host tem algum exemplo de script usando o componente e que funcione.

 

Vinicius lanni, Obrigado por responder.

 

Abaixo os componentes instalados no meu servidor de hospedagem, este serviço estava funcionando corretamente após migrarem de um plano para outro parou de funcionar.

 

#CategoriaStatusDetalhesCom1Browser

Instalado

COM Detalhes

Microsoft capacidade do navegador2Diversos

Instalado

COM Detalhes

Componente utilitário de Microsoft registro3XML

Instalado

COM Detalhes

Microsoft ServerXMLHTTP4XML

Instalado

COM Detalhes

Microsoft Component XMLDOM5XML

Instalado

COM Detalhes

Microsoft componente XMLHTTP6Gerenciamento de arquivos

Instalado

COM Detalhes

Objeto MicrosoftFileSystem7Diversos

Instalado

COM Detalhes

Catálogo do Microsoft ADOX8Diversos

Instalado

COM Detalhes

Windows Shell Script9Diversos

Instalado

COM Detalhes

Rede do Windows Script10Diversos

Instalado

COM Detalhes

ADODB.Connection11Diversos

Instalado

COM Detalhes

ADODB.Command12Diversos

Instalado

COM Detalhes

ADODB.Recordset13Diversos

Instalado

COM Detalhes

Scripting.Dictionary14Diversos

Instalado

COM Detalhes

Script Encoder15XML

Instalado

COM Detalhes

Microsoft Component XMLDOM 3,016E-mail

Instalado

COM Detalhes

Persits - ASPEmail17Upload

Instalado

COM Detalhes

Persits - AspUpload18Imagem

Instalado

COM Detalhes

Persits - AspJpeg19E-mail

Instalado

COM Detalhes

Dundas - ASPMailer20Upload

Instalado

COM Detalhes

Dundas - Upload21E-mail

Instalado

COM Detalhes

Dundas Mailer22E-mail

Instalado

COM Detalhes

Dundas Mailer23Upload

Instalado

COM Detalhes

Dundas Upload24Upload

Instalado

COM Detalhes

Dundas Upload

 

[xanburzum 169]

seu server precisa ter o compoenente instalado, caso, nao tenha você pode usar outros tipos de componentes, o mais usado e padrão da Microsoft é o cdosys

[Faciroli 0]

como ficaria essa linha então;

 

está assim;

 

set objMail = server.createobject("SMTPsvg.Mailer")

[xanburzum 169]

olha este exemplo simples de indicar o site

 

<% Option Explicit
' aplicaçao para fazer a indicaçao da paginade um user para outro
' atraves de um form ( indique_form.asp na pag. default )
' recupero as variaveis remetente e destinatario e crio um objeto
' para o envio de email ( CDONTS ), onde eu envio um email,  para o
' destinatario, redireciono para a pag. default.asp?msg=2
' declara as var
dim varremetente, vardestinatario, varassunto, objmail, htmlemail
'recupera as var
vardestinatario=Trim(request.form("destinatario"))
varremetente=Trim(request.form("remetente"))
varassunto=" Acesse este site - www.site.com.br"

	' crio o objeto para o envio do email (CDONTS)

Set objMail = Server.CreateObject("CDONTS.Newmail" ) 
    objMail.To = vardestinatario ' destino do email
    objMail.From = varremetente  ' site do Email
    objMail.Subject = varassunto  ' Assunto do Email

' definindo a var para o corpo da mesagem

htmlemail = htmlemail & "<HTML>"
htmlemail = htmlemail & "<HEAD>"
htmlemail = htmlemail & "<TITLE>Empresa</TITLE>"
htmlemail = htmlemail & "</HEAD>"
htmlemail = htmlemail & "<BODY BGCOLOR=#E6E6E6>"
htmlemail = htmlemail & "<P> Você foi indicado por " & varremetente & "</P>"
htmlemail = htmlemail & "<P> acesse o site www.site.com.br ,e veja as novidades</P>"
htmlemail = htmlemail & "<BR>"
htmlemail = htmlemail & "<BR>"
htmlemail = htmlemail & "<p>Visite  </p>"
htmlemail = htmlemail & "<a href='http://www.site.com.br'>Empresa</A>"
htmlemail = htmlemail & "</BODY>"
htmlemail = htmlemail & "</HTML>"

    objMail.Bodyformat = 0     
    objMail.MailFormat = 0
    objMail.Body = htmlemail
    objMail.Send
 Set objMail = Nothing 
response.redirect("default.asp?msg=2") 
%> 

 

aqui um linkde artigo