Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>"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
Carregando comentários...