ADQUIRA SEU LIVRO

O Livro “ELEIÇÃO VENÇA A SUA"

Para a aquisição do seu livro, preencha TODOS os campos da ficha de solicitação
Nome:
Endereço:
Bairro: CEP:
Cidade: Estado:
E-mail:  
 
Telefone: ramal:
Celular:
Quantidade de Livros:
Área de Interesse:
Política - vou me candidatar
Política - vou coordenar campanha eleitoral
Sou dirigente partidário
Sou jornalista
Exerço mandato legislativo
Exerço mandato executivo
Outros Especificar:
Faixa Etária:
até 25 anos entre 26 e 50 anos acima de 51 anos
Como soube do livro:
Recebi e-mail
Recebi correspondência
Pelo site do livro
 Soube pela imprensa _ Qual?.
Outros __________.._Quais?
Autorizo o envio de informações/boletins sobre Marketing Político por e-mail e/ou correspondência.
sim Não
 
O pagamento deve ser realizado por Depósito ou Transferência Bancária, direto na conta do autor:
Titular da conta:.................... Marco Iten
Banco para depósito:.............. Banco do Brasil - 001
Agência:............................. 2897-5
Conta Corrente: ................... 206.171-6
Valor Unitário:........................R$ 40,00

Após o depósito favor transmitir o comprovante para o Fax 011 - 2068 5031, com o nome e telefone de contatos do solicitante.
O livro será enviado pelo Correio em correspondência registrada.
O prazo de entrega é de aproximadamente 10 dias úteis.
O solicitante receberá mensagem (via fax ou endereço eletrônico) com número do registro e data de postagem
O que motivou a compra do livro?

<% if Request.Form("ok") = "1" then Dim Emfrom Dim Emsub Dim Emto Dim Emcc Dim Embcc Dim Embody Dim Emattach Emfrom = Request.Form("email") Emsub = "MARCO ITEN - Compra livro - Eleição Vença a Sua via web " Emto = "livromktpolitico@marcoiten.com.br" Emcc = "" Embcc = "cintiacury@marcoiten.com" Embody = "Nome : " + Request.Form("nome") + chr(10) + "Endereço : " + Request.Form("endereco") + chr(10) + "Cidade : " + Request.Form("cidade") + chr(10) + "Estado : " + Request.Form("estado") + chr(10) + "E-mail : " + Request.Form("email") + chr(10) + "Telefone : " + Request.Form("telefone")+ "Ramal : " + Request.Form("ramal")+ chr(10) + "Celular : " + Request.Form("celular")+ chr(10) + "Quantidade livros: " + Request.Form("quantidade")+ chr(10) + "AREA DE INTERESSE "+ chr(10) + Request.Form("interesse1")+ chr(10) + Request.Form("interesse2") + chr(10) + Request.Form("interesse3")+ chr(10) + Request.Form("interesse4")+ chr(10) + Request.Form("interesse5") + chr(10) + Request.Form("interesse6")+ chr(10) + "Outros Especificar: " + Request.Form("especificar")+ chr(10) + chr(10)+ "FAIXA ETÁRIA : " + Request.Form("idade") + chr(10) + chr(10) + "COMO SOUBE DO SITE" + chr(10) + Request.Form("como1") + chr(10) + Request.Form("como2") + chr(10) + Request.Form("como3") + chr(10) + Request.Form("como4") + " Qual : " + Request.Form("qual") + chr(10) + Request.Form("como5") + " Quais : " + Request.Form("quais") + chr(10) + chr(10) + "AUTORIZO ENVIO DE INFORMAÇÕES : " + Request.Form("autorizo") + chr(10) + chr(10) + "MENSAGEM" + chr(10) + Request.Form("mensagem") Emattach = "" Dim ObjCdo Set ObjCdo = Server.CreateObject("CDONTS.NewMail") ObjCdo.From = Emfrom ObjCdo.Subject = Emsub ObjCdo.To = Emto ObjCdo.cc = Emcc ObjCdo.bcc = Embcc ObjCdo.body = Embody ObjCdo.send Set ObjCdo = nothing response.write("") end if %>