Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

ddelucca

erro '8004020f'

Por , em ASP Clássico

Recommended Posts

ddelucca    0

ddelucca
Postado

malz galera, mas nenhuma informação que achei aqui sobre esse erro funcionou comigo

 

fica dando esse erro direto no form e preciso resolver:

 

erro '8004020f'

 

/processa_contato.asp, line 40

 

a página toda ta assim:

 

<%@LANGUAGE="VBSCRIPT"%>
<%

dim m1, objMail
Dim objCDOSYSMail
Dim objCDOSYSCon

'CRIA A INSTÂNCIA COM O OBJETO CDOSYS
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
objCDOSYSCon.Fields.update

texto_ = request.Form("mensagem")
texto =CStr(Replace(texto_,str,"<br>"))
texto =CStr(Replace(texto_,vbcr,"<br>"))


'   = espaço na mensagem
m1 = "<html>"
m1 = m1+ "<b>Mensagem enviada pelo Site</b><br><br>"
m1 = m1+ "Nome: "& request.Form("nome") &"<br>"
m1 = m1+ "E-mail: "& request.Form("email") &"<br>"
m1 = m1+ "Telefone: "& request.Form("telefone") &"<br>"
m1 = m1+ "Cidade: "& request.Form("cidade") &"<br>"
m1 = m1+ "Estado: "& request.Form("estado") &"<br>"
m1 = m1+ "Mensagem: "& request.Form("mensagem") &""
m1 = m1+ "</html>"


Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = request.form("email")
objCDOSYSMail.To = "contato@wellingtonefabricio.com"
objCDOSYSMail.Subject = "Mensagem Enviada por "& request.Form("nome") &" "
objCDOSYSMail.HtmlBody = m1
objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.Redirect("enviado.htm")


'Modificado para CDONSYS do meu jeito em 23/11/2007 - 16:57 PM - por Dede Delucca
%>

se alguém puder me ajudar

valeu msm

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você jogou ele na net e esta usando o smtpserver do localhost,

precisa mudar isso...

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

se você deixar ele no "ar" e com 127.0.0.1, nao vai mesmo, entra em contato com seu host, para ver a config. certa e saber se esta passndo por probelmas.

Compartilhar este post

Link para o post
Compartilhar em outros sites

ddelucca    0

ddelucca
Postado

eles ñ dão suporte a dúvidas em programação cara :huh:

 

só sei desse smtp e essa configuração q sempre funcionou. no meu site por exemplo, funciona

Compartilhar este post

Link para o post
Compartilhar em outros sites

ddelucca    0

ddelucca
Postado

usei o smtp q eles me forneceram e agora fica dando esse erro galera:

 

CDO.Message.1 erro '80040213'

 

Falha na conexão do transporte com o servidor.

 

/processa_contato.asp, line 40

 

a linha 40 é: objCDOSYSMail.Send

 

 

e o código, é o msm postado mais acima, só com a troca do smtp.

será q alguém pode me ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

verificou se seu server.dominio.com esta OK, isso pode ser uma instabilidade do serviço,

isso provavelmente pode ser instabilidade do serviço

tenta um outro dominio para testar, e qual porta esta usando ? é a 25 !

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

e dá uma olhada neste link

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

pode ser uma instabilidade do serviço de SMTP do seu host

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito