Sobre erros de CDOSYS

[NaNDa.Net 0]

Olá.

 

Utilizo o formulário de reservas do site da Pousada, tive que reprogramar devido as regras do spam do servidor de hospedagem LOCAWEB. Mas até agora ainda não descobri o erro porque não consigo enviar os dados atraves da ASP. Avisando que sou iniciante do ASP ainda.

<%
'Aqui estamos recebendo a condição passada pelo formulário, fazendo 
'com que o Script em ASP só seja executado caso o formulário seja enviado
If Request.QueryString("envia") = "sim" Then

emailFrom = "contato@caminhodosol.com.br"
emailTo = "reservas@caminhodosol.com.br"

nome = Request.Form("nome")
email = Request.Form("email")
endereco = Request.Form("endereco")
cidade = Request.Form("cidade")
uf = Request.Form("uf")
cep = Request.Form("cep")
pais = Request.Form("pais")
telefone = Request.Form("telefone")
fax = Request.Form("fax")
cheg_dia = Request.Form("cheg_dia")
cheg_mes = Request.Form("cheg_mes")
cheg_ano = Request.Form("cheg_ano")
part_dia = Request.Form("part_dia")
part_mes = Request.Form("part_mes")
part_ano = Request.Form("part_ano")
criancas_04anos = Request.Form("criancas_04anos")
criancas_12anos = Request.Form("criancas_12anos")
termo = Request.Form("termo")
mensagem = Request.Form("mensagem")
categoria = Request.Form("categoria")

partida = part_dia & "/" & part_mes & "/" & part_ano
chegada = cheg_dia & "/" & cheg_mes & "/" & cheg_ano	

REM Montando o corpo da mensagem com os dados preenchidos no formulário
corpoMensagem = corpoMensagem & "Nome: " & Request.Form("nome") & "<br />"
corpoMensagem = corpoMensagem & "E-mail: " & Request.Form("email") & "<br />"
corpoMensagem = corpoMensagem & "Endereco: " & Request.Form("endereco") & "<br />"
corpoMensagem = corpoMensagem & "Cidade: " & Request.Form("cidade") & "<br />"
corpoMensagem = corpoMensagem & "UF: " & Request.Form("UF") & "<br />"
corpoMensagem = corpoMensagem & "Cep: " & Request.Form("cep") & "<br />"
corpoMensagem = corpoMensagem & "Pais: " & Request.Form("pais") & "<br />"
corpoMensagem = corpoMensagem & "Telefone: " & Request.Form("telefone") & "<br />"
corpoMensagem = corpoMensagem & "Fax: " & Request.Form("fax") & "<br />"
corpoMensagem = corpoMensagem & "Chegada: " & Request.Form("Chegada") & "<br />"
corpoMensagem = corpoMensagem & "Ida: " & Request.Form("partida") & "<br />"
corpoMensagem = corpoMensagem & "Categoria de Suíte: " & Request.Form("categoria") & "<br />"
corpoMensagem = corpoMensagem & "Acima de 04 anos: " & Request.Form("criancas_04anos") & "<br />"
corpoMensagem = corpoMensagem & "Acima de 12 anos: " & Request.Form("criancas_12anos") & "<br />"
corpoMensagem = corpoMensagem & "Outras informações: " & Request.Form("mensagem") & "<br />"
corpoMensagem = corpoMensagem & "Li e aceito os termos de reserva e hospedagem. " & Request.Form("termo") & "<br />"	

'As quebra-linhas utilizadas no campo "textarea" não são convertidas para HTML automaticamente, 
'fazendo com que tudo que o usuário digite neste campo fique alocado em uma única linha.
'Neste ponto nós convertemos essas quebra-linhas em HTML
corpoMensagem = Replace(corpoMensagem, vbCrLf, "<br />")

Set objCDOSYSMail = Server.CreateObject("CDO.Message")

'Cria o objeto para configuração do SMTP	
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

'SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP.caminhodosol.com.br"

'Porta do SMTP
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Porta do CDO
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Timeout
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = emailFrom & " <" & emailFrom & ">"
objCDOSYSMail.To = emailTo

'O campo ReplyTo pode ser preenchido com o e-mail do visitante do site evitando
'assim a necessidade de preencher o campo From incorretamente com o e-mail do visitante
'objCDOSYSMail.ReplyTo = emailVisitante

'objCDOSYSMail.Cc = "comCopia@dominio"
'objCDOSYSMail.Bcc = "comCopiaOculta@dominio"

'objCDOSYSMail.Subject = assunto

'Configura e preeche o corpo da mensagem
objCDOSYSMail.HtmlBody = corpoMensagem

'Envia o e-mail
objCDOSYSMail.Send

'Destruímos os objetos utilizados
set objCDOSYSMail = nothing
set objCDOSYSCon = nothing

response.write "<h1>Mensagem enviada com sucesso!!</h1>"
response.write "Mensagem enviada de:  "&emailFrom&"<br />"
response.write "Mensagem enviada para:  "&emailTo&"<br />"
'response.write "Resposta do e-mail será enviada para:  "&emailVisitante&"<br />"
response.write "<p>Conteúdo do e-mail enviado: <br />"&corpoMensagem&"</p>"
response.write "<a href=javascript:history.go(-1) target=_self>Voltar</a>"
End if%>

[Vinicius Ianni 189]

Verificou junto a hospedagem se não estão pedindo alguma autenticação que não incluiu no código ?

 

Você cria variaveis que armazenam os valores vindos do formulário, mas não as usa, poderia usa-las ou retira-las:

nome=request.form("nome")

 

e aqui

corpoMensagem = corpoMensagem & "Nome: " & Request.Form("nome") & "<br />"

 

poderia ficar assim:

corpoMensagem = corpoMensagem & "Nome: " & nome & "<br />"