<%@language=VbScript%> <%Option Explicit%> <% dim EnviarEmail, mensagem, enviar enviar = request("enviar") if enviar <> "" then mensagem = mensagem & "

" mensagem = mensagem & "DADOS DA EMPRESA

" mensagem = mensagem & "
" mensagem = mensagem & "Nome: " & Request("nome") & "
" mensagem = mensagem & "E-mail: " & Request("email") & "
" mensagem = mensagem & "Empresa: " & Request("empresa") & "
" mensagem = mensagem & "Atividade: " & Request("atividade") & "
" mensagem = mensagem & "Departamento: " & Request("departamento") & "
" mensagem = mensagem & "País: " & Request("pais") & "
" mensagem = mensagem & "Endereço: " & Request("endereco") & "
" mensagem = mensagem & "Cidade: " & Request("cidade") & "
" mensagem = mensagem & "Estado: " & Request("estado") & "
" mensagem = mensagem & "Cep: " & Request("cep") & "
" mensagem = mensagem & "Telefone: " & Request("telefone") & "
" mensagem = mensagem & "Fax: " & Request("fax") & "
" mensagem = mensagem & "Mensagem: " & Request("mensagem") & "
" mensagem = mensagem & "
" mensagem = mensagem & "

" Set EnviarEmail = Server.CreateObject("SMTPsvg.Mailer") EnviarEmail.ContentType = "text/html" EnviarEmail.FromName = Request("nome") EnviarEmail.FromAddress = Request("email") ' EnviarEmail.RemoteHost = "smtp2.locaweb.com.br" EnviarEmail.RemoteHost = "192.168.0.1" '' EnviarEmail.AddRecipient "Teklatur", "teklatur@teklatur.com.br" EnviarEmail.AddRecipient "Alexandre (Local)", "alexandre@enterprise" EnviarEmail.Subject = "Solicitação de Orçamento" EnviarEmail.BodyText = mensagem EnviarEmail.SendMail set EnviarEmail=nothing end if '--- Fim do Envio ----------------------------------------------------------------------------------- %>

<%if enviar = "" then%> <%else%> <%end if%>

Nome
E-mail
Empresa
Ramo de Atividade
Departamento
País
Endereço
Cidade
Estado
Cep
Telefone
Fax
Mensagem