Erro

<% if Request("Action") = "Enviar" then produtos = Request.Form("produtos") empreendimento = Request.Form("empreendimento") quantidade = Request.Form("quantidade") cidade = Request.Form("cidade") estado = Request.Form("estado") contato = Request.Form("contato") telefone = Request.Form("telefone") email = Request.Form("email") mensagem = Request.Form("mensagem") Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.entersec.com.br" JMail.Sender = email JMail.Subject = "Fale Conosco" JMail.AddRecipient("entersec@entersec.com.br") ' JMail.AddRecipient("entersec@entersec.com.br") JMail.silent = true corpo = "Fale Conosco" & chr(10) corpo = corpo & "Produto: " & produtos & chr(10) corpo = corpo & "Empreendimento: " & empreendimento & chr(10) corpo = corpo & "Quantidade: " & quantidade & chr(10) corpo = corpo & "Cidade: " & cidade & chr(10) corpo = corpo & "Estado: " & estado & chr(10) corpo = corpo & "Contato: " & contato & chr(10) corpo = corpo & "Telefone: " & telefone & chr(10) corpo = corpo & "E-Mail: " & email & chr(10) corpo = corpo & "Mensagem: " & mensagem & chr(10) JMail.Body = Corpo if JMail.Execute() then response.redirect "contato.asp" else response.write "Seu Emprendimento é:" & empreendimento & " e seu email é:" & email response.write "Erro" response.write "" response.write "

Houve um erro ao enviar a sua mensagem.

" response.write "

A mensagem de erro é:" & JMail.ErrorMessage & "

" response.write "

Clique aqui para voltar e tente novamente.

" response.write "

" response.end end if Set Jmail = Nothing end if %> .: Grupo CF Entersec - Soluções Integradas :.