<% if Request("Action") = "Enviar" then nome = Request.Form("nome") telefone = Request.Form("telefone") email = Request.Form("email") assunto = Request.Form("assunto") empresa = request.Form("empresa") mensagem = Request.Form("mensagem") Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.agromapa.com.br" JMail.Sender = email JMail.Subject = "Agromapa Ltda - Email do Site" JMail.AddRecipient("djan@agromapa.com.br") ' JMail.AddRecipient("agromapa@agromapa.com.br") JMail.silent = true corpo = "Agromapa Ltda." & chr(10) corpo = corpo & "Nome: " & nome & chr(10) corpo = corpo & "Telefone: " & telefone & chr (10) corpo = corpo & "E-Mail: " & email & chr(10) corpo = corpo & "Empresa: " & empresa & chr(10) corpo = corpo & "Assunto: " & assunto & chr(10) corpo = corpo & "Mensagem: " & mensagem & chr(10) JMail.Body = Corpo if JMail.Execute() then response.redirect "obrigado.asp" else response.write "Seu nome é:" & nome & " e seu email é:" & email & " Seu Telefone é:" & telefone 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 %> Agromapa - Geoprocessamento e Topografia Ltda.
AGRODADOS - Versão de Demonstração

Preencha todo o formulário para receber e-mail com a senha do download.

Nome:

E-mail:

Endereço:

Cidade:

Estado:

Telefone:

Empresa:

Área de Atuação:

Formação:

Software que Utliliza:
 

 
 

Avenida Brasil, 295 - Sala 2
Zona 8 - CEP 87000-000
Fone: (44) 3028-9413
Maringá - Paraná
<% if Request("Action") = "Enviar" then nome = Request.Form("nome") telefone = Request.Form("telefone") email = Request.Form("email") assunto = Request.Form("assunto") empresa = request.Form("empresa") mensagem = Request.Form("mensagem") Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "smtp.agromapa.com.br" JMail.Sender = email JMail.Subject = "Agromapa Ltda - Email do Site" JMail.AddRecipient("djan@agromapa.com.br") ' JMail.AddRecipient("agromapa@agromapa.com.br") JMail.silent = true corpo = "Agromapa Ltda." & chr(10) corpo = corpo & "Nome: " & nome & chr(10) corpo = corpo & "Telefone: " & telefone & chr (10) corpo = corpo & "E-Mail: " & email & chr(10) corpo = corpo & "Empresa: " & empresa & chr(10) corpo = corpo & "Assunto: " & assunto & chr(10) corpo = corpo & "Mensagem: " & mensagem & chr(10) JMail.Body = Corpo if JMail.Execute() then response.redirect "obrigado.asp" else response.write "Seu nome é:" & nome & " e seu email é:" & email & " Seu Telefone é:" & telefone 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 %>