Pessoal,
O formulário de Contato está dando o erro abaixo:
CDO.Message.1 error '8004020d'
At least one of the From or Sender fields is required, and neither was found.
/www_novosite_2012/contato.asp, line 107
E eu não estou conseguindo encontrar onde estou errando...
Alguém consegue me ajudar?
Obrigado!
<!--#include virtual="/www_novosite_2012/comum/conexao.asp" -->
<!--#include virtual="/www_novosite_2012/comum/idioma.asp" -->
<%
botao_enviar = trim(request.Form("botao_enviar"))
if botao_enviar <> "" then
faleconosco = trim(request.Form("faleconosco"))
' response.Write(faleconosco)&"<br />"
nome = trim(request.Form("nome"))
' response.Write(nome)&"<br />"
assunto = trim(request.Form("assunto"))
' response.Write(assunto)&"<br />"
email = trim(request.Form("emailx"))
' response.Write(email)&"<br />"
tipo_msg = trim(request.Form("tipo_msg"))
if tipo_msg <> "" then
select case tipo_msg
case "R"
tipo_msg = "reclamaçao "
case "S"
tipo_msg = "sugestao "
case "D"
tipo_msg = "dúvida"
end select
else
tipo_msg = "Outro"
end if
promocoes = trim(request.Form("promocoes"))
if promocoes <> "S" then
promocoes = "Nao"
else
promocoes = "Sim"
end if
linha = trim(request.Form("linha"))
mensagem = trim(request.Form("mensagem"))
'response.Write(faleconosco)
'response.End()
' Campo da mensagem
corpo_email = "Fale Conosco Site Strahl"&Chr(10)&Chr(13)
corpo_email = corpo_email & "Assunto: "&assunto&Chr(10)&Chr(13)
corpo_email = corpo_email & "Nome: "&nome&Chr(10)&Chr(13)
corpo_email = corpo_email & "Email: "&email&Chr(10)&Chr(13)
corpo_email = corpo_email & promocoes&", quero receber o boletim informativo."&Chr(10)&Chr(13)
corpo_email = corpo_email & "Quero receber promoçoes das seguintes linhas: "&linha&Chr(10)&Chr(13)
corpo_email = corpo_email & "Tipo de Mensagem: "&tipo_msg&Chr(10)&Chr(13)
corpo_email = corpo_email & "Mensagem: "&mensagem
' response.Write(corpo_email)&"<br />"
' response.End()
'Envio de email anterior
' Cria o componente aspmail
' Set myMail = CreateObject("CDO.Message")
' myMail.Subject= assunto
' ' E-mail do Rementente
' myMail.From=email
' ' Nome / EndereA§o de quem recebera o E-mail
' myMail.To = faleconosco
' myMail.TextBody = corpo_email
' myMail.Send
' set myMail=nothing
'Envio de email no ar Ascent
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mx01.anaxanet.com"
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
Set objCDOSYSMail.Configuration = objCDOSYSCon
' objCDOSYSMail.From = "elaineamoraes@yahoo.com.br"
' objCDOSYSMail.To = "elaine@ascentbrand.com.br"
' objCDOSYSMail.Subject = "Teste do CDOSYS"
' objCDOSYSMail.HtmlBody = "Teste do componente CDOSYS Disauto "
objCDOSYSMail.From = email
objCDOSYSMail.To = faleconosco
objCDOSYSMail.Subject = assunto
objCDOSYSMail.HtmlBody = corpo_email
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
'response.write "E-mail enviado ascent"
session("msg") = "Sua mensagem foi encaminhada com sucesso."
response.redirect("/www_novosite_2012/index.asp")
' end if
'else
' session("msg") = "Erro no envio da mensagem tente novamente."
end if
%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>.:: <%=ucase(session("site_atual"))%> ::.</title>
<link href="css/reset.css" type="text/css" rel="stylesheet">
<link href="css/style.css" type="text/css" rel="stylesheet">
<link href="css/custom-theme/jquery-ui-1.8.23.custom.css" type="text/css" rel="stylesheet">
<link rel="stylesheet" href="css/jquery.fancybox.css?v=2.1.0" type="text/css" media="screen" />
<script src="js/jquery.min.js" type="text/javascript"></script>
<script src="js/jquery.kwicks-1.5.js" type="text/javascript"></script>
<script src="js/jquery-ui-1.8.23.custom.min.js" type="text/javascript"></script>
<script type="text/javascript" src="js/jquery.fancybox.js?v=2.1.0"></script>
<script src="js/script.js" type="text/javascript"></script>
<script>
function limpa() {
if(document.getElementById('nome').value!="") {
document.getElementById('nome').value="";
}
if(document.getElementById('empresa').value!="") {
document.getElementById('empresa').value="";
}
if(document.getElementById('email').value!="") {
document.getElementById('email').value="";
}
if(document.getElementById('faleconosco').value!="") {
document.getElementById('faleconosco').value="";
}
if(document.getElementById('assunto').value!="") {
document.getElementById('assunto').value="";
}
if(document.getElementById('tipo_msg').value!="") {
document.getElementById('tipo_msg').value="";
}
if(document.getElementById('mensagem').value!="") {
document.getElementById('mensagem').value="";
}
if(document.getElementById('promocoes').value!="") {
document.getElementById('promocoes').value="";
}
}
</script>
</head>
<body>
<div id="header">
<div class="banner">
<div class="base">
<!--#include virtual="/www_novosite_2012/include/menusuperior.asp" -->
</div>
<div class="banner_layer"></div>
<!--#include virtual="/www_novosite_2012/include/banner.asp" -->
</div>
</div>
<div id="base">
<div id="conteiner">
<div class=" header"></div>
<div class="cont">
<div class="interno">
<h1>Contato</h1>
<div class="mapacontato"><!--#include virtual="/www_novosite_2012/include/contato_mapa.asp" --></div>
<div class="infocontato">
<!--#include virtual="/www_novosite_2012/include/contato.asp" -->
</div>
</div>
</div>
</div>
<!--#include virtual="/www_novosite_2012/include/rodape.asp" -->
</div>
<script type="text/javascript">
var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-16847609-1']);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
</script>
</body>
</html>