<%@ Language=VBScript %>
<%
'Script para envio de e-mail em formulário

Dim vErro,vSucesso,vErr
vErro = ""
vSucesso = "layout_executivereport.pdf"
vErr = "erro.htm"
if Request.Form.Count + Request.QueryString.Count > 0 then
	Call Respform
	Call Resp
end if
'-----------------------------------------------------------
Sub Respform()
	On Error Resume Next
	Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom
	vNomeForm = "Executive Report - Avocent"
	vPara = "pedro@thopus.com.br"
	vFrom = "postmaster@decisionreport.com.br"
	vCc = "pedro@conteudoeditorial.com.br; pedro@thopus.com.br"
	vAssunto = "Registro DRM Crimes Digitais"
	vData = Date()
	vData = day(vData) & "/" & month(vData) & "/" & year(vData)
	vHora = Time()
	vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s"
	msg = "Formulário " & vNomeForm
	msg = msg & " submetido em " & vData & " às " & vHora & VbCrLf & VbCrLf

	msg = msg & string(60,"-") & vbcrlf & "E-mail" & " : " & Request.Form("email") & VbCrLf
	msg = msg & string(60,"-") & vbcrlf & "Nome" & " : " & Request.Form("nome") & VbCrLf
	msg = msg & string(60,"-") & vbcrlf & "Sobrenome" & " : " & Request.Form("sobrenome") & VbCrLf
	msg = msg & string(60,"-") & vbcrlf & "Cargo" & " : " & Request.Form("cargo") & " - "
	If Request.Form("cargo") = "1" Then
		msg = msg & "Corporativo: CEO / Presidente / Proprietário / Sócio" & VbCrLf
	ElseIf Request.Form("cargo") = "2" Then
		msg = msg & "Corporativo: Vice-Presidente" & VbCrLf
	ElseIf Request.Form("cargo") = "3" Then
		msg = msg & "Corporativo: CMO - CFO - Controller - COO" & VbCrLf
	ElseIf Request.Form("cargo") = "4" Then
		msg = msg & "Corporativo: CIO - CTO - CSO" & VbCrLf
	ElseIf Request.Form("cargo") = "5" Then
		msg = msg & "Corporativo: Superintendente" & VbCrLf
	ElseIf Request.Form("cargo") = "6" Then
		msg = msg & "Corporativo: Diretor (Não Tecnologia)" & VbCrLf
	ElseIf Request.Form("cargo") = "7" Then
		msg = msg & "Corporativo: Diretor (Tecnologia)" & VbCrLf
	ElseIf Request.Form("cargo") = "8" Then
		msg = msg & "Tecnologia: Gerente - Chefe" & VbCrLf
	ElseIf Request.Form("cargo") = "9" Then
		msg = msg & "Tecnologia: Supervisor - Coordenador" & VbCrLf
	ElseIf Request.Form("cargo") = "10" Then
		msg = msg & "Tecnologia: Administrador de Banco de Dados (DBA)" & VbCrLf
	ElseIf Request.Form("cargo") = "11" Then
		msg = msg & "Tecnologia: Administrador de E-Business" & VbCrLf
	ElseIf Request.Form("cargo") = "12" Then
		msg = msg & "Tecnologia: Administrador de Rede - Networking" & VbCrLf
	ElseIf Request.Form("cargo") = "13" Then
		msg = msg & "Tecnologia: Administrador de Sistemas de Telecomunicações" & VbCrLf
	ElseIf Request.Form("cargo") = "14" Then
		msg = msg & "Tecnologia: Analista" & VbCrLf
	ElseIf Request.Form("cargo") = "15" Then
		msg = msg & "Tecnologia: Assistente" & VbCrLf
	ElseIf Request.Form("cargo") = "16" Then
		msg = msg & "Tecnologia: Consultor" & VbCrLf
	ElseIf Request.Form("cargo") = "17" Then
		msg = msg & "Tecnologia: Vendedor" & VbCrLf
	ElseIf Request.Form("cargo") = "36" Then
		msg = msg & "Tecnologia: Webmaster" & VbCrLf
	ElseIf Request.Form("cargo") = "18" Then
		msg = msg & "Tecnologia: Desenvolvedor - Programador" & VbCrLf
	ElseIf Request.Form("cargo") = "19" Then
		msg = msg & "Tecnologia: Designer Gráfico - Web Designer" & VbCrLf
	ElseIf Request.Form("cargo") = "20" Then
		msg = msg & "Tecnologia: Suporte Técnico - Help Desk" & VbCrLf
	ElseIf Request.Form("cargo") = "21" Then
		msg = msg & "Tecnologia: Revendedor de Informática" & VbCrLf
	ElseIf Request.Form("cargo") = "22" Then
		msg = msg & "Não Tecnologia: Gerente - Chefe" & VbCrLf
	ElseIf Request.Form("cargo") = "23" Then
		msg = msg & "Não Tecnologia: Supervisor - Coordenador" & VbCrLf
	ElseIf Request.Form("cargo") = "24" Then
		msg = msg & "Não Tecnologia: Consultor - Assessor" & VbCrLf
	ElseIf Request.Form("cargo") = "25" Then
		msg = msg & "Não Tecnologia: Assistente - Analista" & VbCrLf
	ElseIf Request.Form("cargo") = "26" Then
		msg = msg & "Não Tecnologia: Profissional de Administração Pública" & VbCrLf
	ElseIf Request.Form("cargo") = "27" Then
		msg = msg & "Não Tecnologia: Professor - Reitor" & VbCrLf
	ElseIf Request.Form("cargo") = "28" Then
		msg = msg & "Não Tecnologia: Profissional Liberal" & VbCrLf
	ElseIf Request.Form("cargo") = "29" Then
		msg = msg & "Não Tecnologia: Vendedor - Representante" & VbCrLf
	ElseIf Request.Form("cargo") = "30" Then
		msg = msg & "Não Tecnologia: Jornalista" & VbCrLf
	ElseIf Request.Form("cargo") = "31" Then
		msg = msg & "Não Tecnologia: Assessor de Imprensa - Relações Públicas" & VbCrLf
	ElseIf Request.Form("cargo") = "32" Then
		msg = msg & "Não Tecnologia: Publicitário - Mídia" & VbCrLf
	ElseIf Request.Form("cargo") = "33" Then
		msg = msg & "Estudante" & VbCrLf
	ElseIf Request.Form("cargo") = "34" Then
		msg = msg & "Não Trabalhando no Momento" & VbCrLf
	ElseIf Request.Form("cargo") = "35" Then
		msg = msg & "Outros" & VbCrLf
	Else
		msg = msg & Request.Form("cargo") & VbCrLf
	End if
	msg = msg & string(60,"-") & vbcrlf & "Departamento" & " : " & Request.Form("departamento") & " - "
	If Request.Form("departamento") = "1" Then
		msg = msg & "Não se aplica" & VbCrLf
	ElseIf Request.Form("departamento") = "2" Then
		msg = msg & "Presidência / Conselho Administrativo / Gerência Geral" & VbCrLf
	ElseIf Request.Form("departamento") = "3" Then
		msg = msg & "Administrativo / Recursos Humanos" & VbCrLf
	ElseIf Request.Form("departamento") = "4" Then
		msg = msg & "Comercial / Vendas" & VbCrLf
	ElseIf Request.Form("departamento") = "5" Then
		msg = msg & "Consultoria / Assessoria / Agência de Publicidade" & VbCrLf
	ElseIf Request.Form("departamento") = "6" Then
		msg = msg & "Editorial / Redação" & VbCrLf
	ElseIf Request.Form("departamento") = "7" Then
		msg = msg & "Escolas / Institutos / Universidades / Bibliotecas" & VbCrLf
	ElseIf Request.Form("departamento") = "8" Then
		msg = msg & "Financeiro / Controladoria" & VbCrLf
	ElseIf Request.Form("departamento") = "9" Then
		msg = msg & "Governo" & VbCrLf
	ElseIf Request.Form("departamento") = "10" Then
		msg = msg & "Industrial / Produção" & VbCrLf
	ElseIf Request.Form("departamento") = "11" Then
		msg = msg & "Jurídico / Legal" & VbCrLf
	ElseIf Request.Form("departamento") = "12" Then
		msg = msg & "Logística / Operações" & VbCrLf
	ElseIf Request.Form("departamento") = "13" Then
		msg = msg & "Marketing / Telemarketing / Comunicação" & VbCrLf
	ElseIf Request.Form("departamento") = "14" Then
		msg = msg & "Tecnologia (TI)" & VbCrLf
	ElseIf Request.Form("departamento") = "15" Then
		msg = msg & "Outros" & VbCrLf
	Else
		msg = msg & Request.Form("departamento") & VbCrLf
	End if
	msg = msg & string(60,"-") & vbcrlf & "Nome Empresa" & " : " & Request.Form("nome_empresa") & VbCrLf	
	msg = msg & string(60,"-") & vbcrlf & "CEP" & " : " & Request.Form("cep") & VbCrLf
	msg = msg & string(60,"-") & vbcrlf & "Endereço" & " : " & Request.Form("endereco") & VbCrLf
	msg = msg & string(60,"-") & vbcrlf & "N°" & " : " & Request.Form("Numero") & VbCrLf
	msg = msg & string(60,"-") & vbcrlf & "Complemento" & " : " & Request.Form("Complemento") & VbCrLf
	msg = msg & string(60,"-") & vbcrlf & "Telefone" & " : (" & Request.Form("ddd") & ") " & Request.Form("telefone") & VbCrLf
	msg = msg & string(60,"-") & vbcrlf & "Area de atuação da empresa" & " : " & Request.Form("area_atuacao") & " - "
	If Request.Form("area_atuacao") = "1" Then
		msg = msg & "Não se aplica" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "2" Then
		msg = msg & "Comércio: Atacadista (Ligado a TI)" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "3" Then
		msg = msg & "Comércio: Varejista (Ligado a TI)" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "4" Then
		msg = msg & "Comércio: Atacadista/Varejista (Não Ligado a TI)" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "5" Then
		msg = msg & "Indústria: Aeronáutica" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "6" Then
		msg = msg & "Indústria: Agropecuária/Pesca" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "7" Then
		msg = msg & "Indústria: Alimentos e Bebidas" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "8" Then
		msg = msg & "Indústria: Automobilística" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "9" Then
		msg = msg & "Indústria: Computadores, Comunicações, Periféricos" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "10" Then
		msg = msg & "Indústria: Construção/Arquitetura/Engenharia Civil" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "11" Then
		msg = msg & "Indústria: Eletrodomésticos" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "12" Then
		msg = msg & "Indústria: Eletrônica" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "13" Then
		msg = msg & "Indústria: Informática" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "14" Then
		msg = msg & "Indústria: Equipamentos de Telecomunicações" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "15" Then
		msg = msg & "Indústria: Farmacêutica" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "16" Then
		msg = msg & "Indústria: Laboratórios de Pesquisa e Desenvolvimento" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "17" Then
		msg = msg & "Indústria: Madeira, Móveis e Instalações" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "18" Then
		msg = msg & "Indústria: Maquinário Industrial e Comercial" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "19" Then
		msg = msg & "Indústria: Mineração/Química/Petroquímica" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "20" Then
		msg = msg & "Indústria: Outros" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "21" Then
		msg = msg & "Indústria: Papel e Celulose" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "22" Then
		msg = msg & "Indústria: Produtos Têxteis e Couro" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "23" Then
		msg = msg & "Indústria: Siderúrgicas" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "24" Then
		msg = msg & "Indústria: Software" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "25" Then
		msg = msg & "Governo: Estadual ou Municipal" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "26" Then
		msg = msg & "Governo: Forças Armadas" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "27" Then
		msg = msg & "Governo: Justiça, Ordem Pública e Segurança" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "28" Then
		msg = msg & "Governo: Federal" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "29" Then
		msg = msg & "Serviços: Advocacia/Serviços Legais" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "30" Then
		msg = msg & "Serviços: Agências de Publicidade ou RP" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "31" Then
		msg = msg & "Serviços: Consultor (Ligado a TI)" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "32" Then
		msg = msg & "Serviços: Consultorias de Negócios (Não Ligado a TI)" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "33" Then
		msg = msg & "Serviços: E-commerce/Internet" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "34" Then
		msg = msg & "Serviços: Editora/Emissoras de TV e Rádio" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "35" Then
		msg = msg & "Serviços: Educação" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "36" Then
		msg = msg & "Serviços: Finanças/Bancos/Seguros" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "37" Then
		msg = msg & "Serviços: Hoteleira/Recreação/Entretenimento" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "38" Then
		msg = msg & "Serviços: Logística/Transporte" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "39" Then
		msg = msg & "Serviços: Outros" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "40" Then
		msg = msg & "Serviços: Processamento de Dados" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "41" Then
		msg = msg & "Serviços: Provedores (ISP, Telecomunicaçoes)" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "42" Then
		msg = msg & "Serviços: Saúde/Medicina/Dental" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "43" Then
		msg = msg & "Serviços: VAR, VAD, Sistemas ou Integrador de Rede" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "44" Then
		msg = msg & "Serviços: Provedor de Serviços (ASP, ESP, Web Hosting)" & VbCrLf
	ElseIf Request.Form("area_atuacao") = "45" Then
		msg = msg & "Outros" & VbCrLf
	Else
		msg = msg & Request.Form("area_atuacao") & VbCrLf
	End if
	msg = msg & string(60,"-") & vbcrlf & "Funcionários" & " : " & Request.Form("numero_funcionarios") & " - "
	If Request.Form("numero_funcionarios") = "1" Then
		msg = msg & "Não se aplica" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "2" Then
		msg = msg & "1 a 9" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "3" Then
		msg = msg & "10 a 19" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "4" Then
		msg = msg & "20 a 49" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "5" Then
		msg = msg & "50 a 99" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "6" Then
		msg = msg & "100 a 499" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "7" Then
		msg = msg & "500 a 999" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "8" Then
		msg = msg & "1000 a 2499" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "9" Then
		msg = msg & "2500 a 2999" & VbCrLf
	ElseIf Request.Form("numero_funcionarios") = "10" Then
		msg = msg & "A partir de 3000" & VbCrLf
	Else
		msg = msg & Request.Form("numero_funcionarios") & VbCrLf
	End if
	msg = msg & string(60,"-") & vbcrlf & "Faixa de faturamento" & " : " & Request.Form("faturamento") & " - "
	If Request.Form("faturamento") = "1" Then
		msg = msg & "Até R$ 35 Milhões/ano" & VbCrLf
	ElseIf Request.Form("faturamento") = "2" Then
		msg = msg & "De R$ 35 Milhões/ano até R$ 70 Milões /ano" & VbCrLf
	ElseIf Request.Form("faturamento") = "3" Then
		msg = msg & "De R$70 Milhões/ano até R$150 Milhões/ano" & VbCrLf
	ElseIf Request.Form("faturamento") = "4" Then
		msg = msg & "De R$150 Milhões/ano até R$300 Milhões/ano" & VbCrLf
	ElseIf Request.Form("faturamento") = "5" Then
		msg = msg & "De R$300 Milhões/ano até R$600 Milhões/ano" & VbCrLf
	ElseIf Request.Form("faturamento") = "6" Then
		msg = msg & "Superior a R$ 600 Milhões/ano" & VbCrLf
	Else
		msg = msg & Request.Form("faturamento") & VbCrLf
	End if
	msg = msg & string(60,"-") & vbcrlf & "Investimento" & " : " & Request.Form("investimento_futuro") & " - "
	If Request.Form("investimento_futuro") = "1" Then
		msg = msg & "Não pretende investir" & VbCrLf
	ElseIf Request.Form("investimento_futuro") = "2" Then
		msg = msg & "0-3 meses" & VbCrLf
	ElseIf Request.Form("investimento_futuro") = "3" Then
		msg = msg & "3-6 meses" & VbCrLf
	ElseIf Request.Form("investimento_futuro") = "4" Then
		msg = msg & "6-9 meses" & VbCrLf
	ElseIf Request.Form("investimento_futuro") = "5" Then
		msg = msg & "9-12 meses" & VbCrLf
	ElseIf Request.Form("investimento_futuro") = "6" Then
		msg = msg & "mais de 12 meses" & VbCrLf
	Else
		msg = msg & Request.Form("investimento_futuro") & VbCrLf
	End if
	msg = msg & string(60,"*") & vbcrlf
	EnviaEmail msg,vFrom,vPara,vCc,vAssunto
	If Err then
		vErro = Err.number & " : "
		vErro = Err.description
		Err.Clear
	End if
End Sub
'-----------------------------------------------------------
Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject)
	On Error Resume Next
	Dim iMsg, Flds, iConf, status
	Const SERVIDOR_SMTP = "localhost"
	status = true
	Set iMsg = Server.CreateObject("CDO.Message")
	Set iConf = Server.CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP
	Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	Flds.Update
	With iMsg
		Set .Configuration = iConf
		.To = p_to
		.CC = p_cc
		.From = p_from
		.Sender = p_from
		.Subject = p_subject
		.TextBody = p_body
		.Send
	End With
	If Err.number <> 0 Then
		status = false
	End If
	If IsObject(iMsg) Then Set iMsg = Nothing
	If IsObject(Flds) Then Set Flds = Nothing
	If IsObject(iConf) Then Set iConf = Nothing
	EnviaEmail = status
End Function
'-----------------------------------------------------------
Sub Resp()
	if vErro = "" then
		Response.Redirect(vSucesso)
	else
		Response.Redirect(vErr)
	end if
End Sub
%>
<html>
<head>
	<title>Decision Report Meeting - Crimes Digitais</title>

<script language="javascript" type="text/javascript">
function marca(id){
	var obj = document.getElementById(id);
	obj.className = "requiredForm";
}
function validar(){
	var erro = '';
	var tel = 0;
	if(!verificaPreenchimento('email',5) ){
		erro = erro + "O e-mail deve ser preenchido e ter no minimo 5 caracteres!\n";
	}else{
		if(!verificaEmail('email') ){
			erro = erro + "O e-mail deve ser preenchido corretamente!\n";
		}
	}
	if(!verificaPreenchimento('nome',5)){
		erro = erro + "O nome deve ser preenchido e ter no minimo 5 caracteres!\n";
		//marca('nome');
	}
	if(!verificaPreenchimento('sobrenome',3)){
		erro = erro + "O sobrenome deve ser preenchido e ter no minimo 3 caracteres!\n";
		//marca('nome');
	}
	if(!verificaSelect('cargo')){
		erro = erro + "Selecione um cargo!\n";
	}
	if(!verificaSelect('departamento')){
		erro = erro + "Selecione um departamento!\n";
	}
	if(!verificaPreenchimento('nome_empresa',3)){
		erro = erro + "Preencha o nome da empresa!\n";
	}
	if(!verificaPreenchimento('cep',8)){
		erro = erro + "Preencha o CEP!\n";
	}
	if(!verificaPreenchimento('endereco',3)){
		erro = erro + "Preencha o endereço!\n";
	}
	if(!verificaPreenchimento('numero',1)){
		erro = erro + "Preencha o número!\n";
	}
	if(!verificaPreenchimento('telefone',7) && !verificaPreenchimento('ddd',2)){
		erro = erro + "Preencha o telefone com DDD!\n";	
	}
	if(!verificaSelect('area_atuacao')){
		erro = erro + "Selecione uma area de atuação!\n";
	}
	if(!verificaSelect('numero_funcionarios')){
		erro = erro + "Selecione o número de funcionários!\n";
	}
	if(!verificaSelect('faturamento')){
		erro = erro + "Selecione uma faixa de faturamento!\n";
	}
	if(!verificaSelect('investimento_futuro')){
		erro = erro + "Selecione a periodicidade de investimentos!\n";
	}
	if(erro == "")
		return true;
	else{
		alert(erro);
		return false;
	}
}
function verificaSelect(id){
	var campo = document.getElementById(id);	
	return !(campo.selectedIndex == 0 || campo.selectedIndex == null || campo.selectedIndex == "" );
}
function showt(id) {
	var campo = document.getElementById(id);
	if(campo != null){
   		campo.style.display='inline';
	}
}
function show(id) {
	var campo = document.getElementById(id);
	if(campo != null){
   		campo.style.display='inline';
	}
}

function hide(id) {
   var campo = document.getElementById(id);
	if(campo != null){
		campo.style.display='none';
	}
}

function habilita(id) {
	var campo = document.getElementById(id);
	if(campo != null){
   		campo.disabled=false;
	}
}

function desabilita(id) {
	var campo = document.getElementById(id);
	if(campo != null){
   		campo.disabled=true;
	}
}

function verificaradio(nome){
	var controle = 0;
	for (i=0;i<document.forms[0].elements.length;i++){
		if (document.forms[0].elements[i].type == "radio"){
			if(document.forms[0].elements[i].name == nome)
				if (document.forms[0].elements[i].checked == true){
					controle++;
				}
		}
	}
	
	if (controle <= 0){
		return false;
	}
	else
		return true;
}
function verificaPreenchimento(id,minimo){
	var campo = document.getElementById(id);
	if(campo.value == '' || campo.value == null || campo.value.length < minimo)
		return false;
	else
		return true;
}
function soNumeros(e){
	var tecla = (e.which) ? e.which : e.keyCode;
	//alert(tecla);
	if ((tecla < 47 && tecla !=8 && tecla !=9 && tecla !=46 && tecla !=37 && tecla !=38 && tecla !=39 && tecla !=40) || (tecla > 58 && tecla!=116) || tecla == 45 || tecla == 47) 
		return false;
}
function verificaEmail(id){
	var campo = document.getElementById(id);
	str = campo.value;
	var result;
	//return (str.indexOf('.') > 2) && (str.indexOf('@') > 0);
	if (str.search(/^[\w!#$%&'*+\/=?^`{|}~-]+(\.[\w!#$%&'*+\/=?^`{|}~-]+)*@(([\w-]+\.)+[A-Za-z]{2,6}|\[\d{1,3}(\.\d{1,3}){3}\])$/)==-1) result='erro';
	if (result=='erro')
	{
		return false;
	}else
	{
		return true;
	}
}
</script>

</head>

<style type="text/css">
<!--
body {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; line-height: 12px;}
/* tag <A> default */
a {color:#003366;text-decoration : none;}
a:hover	{color:#000066;text-decoration : underline;}
/* tag <A> dos menus */
.textop {font-family:  Arial, Helvetica, sans-serif;color:#666666;font-size: 11px;}
.texto {font-family: tahoma,Verdana, Arial, Helvetica, sans-serif;font-size: 12px;}
.texto10 {font-family: tahoma,Arial, Helvetica, sans-serif;font-size: 11px;}
.asterisco {font-family: tahoma,Arial,Helvetica, sans-serif;font-size: 11px; color:#ff0000;}
.texto12 {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 14px;}
a.assina:hover {color:#990000;}
a.topico2 { font-family: Verdana, Arial, Helvetica, sans-serif; color:#000000; text-decoration:none; font-size: 11px;}
a.topico2:hover {color:#000000;text-decoration: underline;}
-->
</style>

<body marginheight=0 marginwidth=0 topmargin="0" leftmargin="0" rightmargin="0" bgcolor="#ffffff" link="#3a699b" alink="#3a699b" vlink="#3a699b">

<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="600">
<tr>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/cab_1_lateral.jpg" width="15" height="80" alt=""></td>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/cab_1_logo.jpg" width="600" height="80" alt=""></td>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/cab_1_lateral.jpg" width="15" height="80" alt=""></td>
</tr>
<tr bgcolor="#dbddd4">
<td></td>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/cab_2_crime.jpg" width="600" height="40" alt=""></td>
<td></td>
</tr>
<tr bgcolor="#dfe7ee">
<td></td>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/cab_3_crime.jpg" width="600" height="87" alt=""></td>
<td></td>
</tr>
<tr>
<td bgcolor="#efefef"></td>
<td bgcolor="#ffffff" width="600"><!--- texto --->
<table cellpadding="10"><tr><td>
<font style='color:#666666;font-size:16px;font-family:georgia,tahoma,verdana;'> 


<font size="+1"><strong>
Participe!<br>
O debate será transmitido ao vivo pela <br>
TV Decision, na internet, com interatividade 
</strong></font>
<br>
<br>

No momento em que o assunto ganha repercussão nacional, com a polêmica em torno da aprovação do Projeto de Lei que tipifica os delitos virtuais, é necessário discutir o avanço dos crimes digitais e o impacto no mundo corporativo. Esse é o momento para que todos os executivos envolvidos com a questão avaliem o assunto, troquem experiências e apontem alternativas. 

<br>
<br>

<strong><em>PAINEL</em></strong>

<UL>
<LI> O impacto do avanço dos crimes digitais no mundo corporativo; 
<LI> Políticas de proteção mais utilizadas; 
<LI> Nova lei de crimes digitais; 
<LI> O papel dos fornecedores de soluções e produtos nesse cenário. 
</UL>


<br>

<strong><em>PARTICIPANTES </em></strong>
<br>
<br>

Mediadora: 

<UL>
<LI> Graça Sermoud, jornalista e diretora da Conteúdo Editorial e das revistas Decision Report e Risk Report
</UL>
<br>

Painelistas:

<br>

<UL>
<LI> Glória Guimarães, Diretora de TI do Banco do Brasil 
<LI> Carlos Eduardo Fonseca, VP da Febraban 
<LI> Waldir , CSO da Nossa Caixa 
<LI> Dorival Dourado, CIO da Serasa 
<LI> José Mariano, delegado especializado em crimes digitais 
<LI> Patricia Peck - Advogada
</UL>

<br>

Platéia presencial
<UL>
<LI> Grupo seleto de 30 executivos convidados pela jornalista Graça Sermoud, constituído de CIOs, CSOs, CFOs e COOs
</UL>

<br>

Público remoto

<UL>
<LI> O debate será transmitido ao vivo, para todo o Brasil, por meio da TV Decision. O público remoto também poderá contribuir com questões, a serem selecionadas por um grupo de editores da publicação, ao longo do evento. Previsão de 300 acessos 
</UL>


<br>

<div align="center"><font style='color:#3a699b;font-size:20px;font-family:georgia,tahoma,verdana;'> 
<strong>Decision Report Meeting: <br>
Crimes Digitais e o impacto nas empresas</strong><br>
Dia: 24 de setembro<br>
Horário: 10h00 às 11h30
</font>

<br><br>

Inscreva-se através do e-mail: 
<a href="mailto:tvdecision@conteudoeditorial.com.br">tvdecision@conteudoeditorial.com.br</a>,<br>
pelo telefone: 11.5049.0202 ou preenchendo o formulário abaixo. 


<br>
<br>


<form name="frm" METHOD="POST" onSubmit="return validar();">

<table border="0" cellpadding="4" cellspacing="0" class="texto" bgcolor="#cfe0f1"><tr><td>

<table border="0" cellpadding="5" cellspacing="0" class="texto" bgcolor="#ebf2f8">
<tr>
<td class="texto"><b class="asterisco">*</b> E-mail:</td>
<td class="texto"><input type="text" id="email" name="email" maxlength="50" size="55" class="texto"></td>
</tr><tr>
<td><b class="asterisco">*</b> Nome:</td>
<td><input type="text" id="nome" name="nome" maxlength="50" size="55" class="texto"></td>
</tr><tr>
<td class="texto"><b class="asterisco">*</b> Sobrenome:</td>
<td class="texto"><input type="text" id="sobrenome" name="sobrenome" maxlength="50" size="55" class="texto"></td>
</tr><tr>
<td><b class="asterisco">*</b> Cargo:</td>
<td><select name="cargo" id="cargo" class="texto10">
<option value="">Selecione</option>
<option value="1">Corporativo: CEO / Presidente / Proprietário / Sócio</option>
<option value="2">Corporativo: Vice-Presidente</option>
<option value="3">Corporativo: CMO / CFO / Controller/ COO</option>
<option value="4">Corporativo: CIO / CTO / CSO</option>
<option value="5">Corporativo: Superintendente</option>
<option value="6">Corporativo: Diretor (Não Tecnologia)</option>
<option value="7">Corporativo: Diretor (Tecnologia)</option>
<option value="8">Tecnologia: Gerente / Chefe</option>
<option value="9">Tecnologia: Supervisor / Coordenador</option>
<option value="10">Tecnologia: Administrador de Banco de Dados (DBA)</option>
<option value="11">Tecnologia: Administrador de E-Business</option>
<option value="12">Tecnologia: Administrador de Rede / Networking</option>
<option value="13">Tecnologia: Administrador de Sistemas de Telecomunicações</option>
<option value="14">Tecnologia: Analista</option>
<option value="15">Tecnologia: Assistente</option>
<option value="16">Tecnologia: Consultor</option>
<option value="17">Tecnologia: Vendedor</option>
<option value="36">Tecnologia: Webmaster</option>
<option value="18">Tecnologia: Desenvolvedor / Programador</option>
<option value="19">Tecnologia: Designer Gráfico / Web Designer</option>
<option value="20">Tecnologia: Suporte Técnico / Help Desk</option>
<option value="21">Tecnologia: Revendedor de Informática</option>
<option value="22">Não Tecnologia: Gerente / Chefe</option>
<option value="23">Não Tecnologia: Supervisor / Coordenador</option>
<option value="24">Não Tecnologia: Consultor / Assessor</option>
<option value="25">Não Tecnologia: Assistente / Analista</option>
<option value="26">Não Tecnologia: Profissional de Administração Pública</option>
<option value="27">Não Tecnologia: Professor / Reitor</option>
<option value="28">Não Tecnologia: Profissional Liberal</option>
<option value="29">Não Tecnologia: Vendedor / Representante</option>
<option value="30">Não Tecnologia: Jornalista</option>
<option value="31">Não Tecnologia: Assessor de Imprensa / Relações Públicas</option>
<option value="32">Não Tecnologia: Publicitário / Mídia</option>
<option value="33">Estudante</option>
<option value="34">Não Trabalhando no Momento</option>
<option value="35">Outros</option>
</select>
</td>
</tr><tr>
<td class="texto"><b class="asterisco">*</b> Departamento:</td>
<td class="texto"><select name="departamento" id="departamento" class="texto10">
<option value="">Selecione</option>
<option value="1">Não se aplica</option>
<option value="2">Presidência / Conselho Administrativo / Gerência Geral</option>
<option value="3">Administrativo / Recursos Humanos</option>
<option value="4">Comercial / Vendas</option>
<option value="5">Consultoria / Assessoria / Agência de Publicidade</option>
<option value="6">Editorial / Redação</option>
<option value="7">Escolas / Institutos / Universidades / Bibliotecas</option>
<option value="8">Financeiro / Controladoria</option>
<option value="9">Governo</option>
<option value="10">Industrial / Produção</option>
<option value="11">Jurídico / Legal</option>
<option value="12">Logística / Operações</option>
<option value="13">Marketing / Telemarketing / Comunicação</option>
<option value="14">Tecnologia (TI)</option>
<option value="15">Outros</option>
</select>
</td>
</tr><tr>
<td><b class="asterisco">*</b> Nome da empresa:</td>
<td><input type="text" id="nome_empresa" name="nome_empresa" maxlength="55" size="55" class="texto"></td>
</tr><tr>
<td class="texto"><b class="asterisco">*</b> CEP:</td>
<td class="texto"><input type="text" id="cep" name="cep" size="8" onKeyPress="return soNumeros(event);" maxlength="8" class="texto"><i class="asterisco"> (apenas números)</i></td>
</tr><tr>
<td><b class="asterisco">*</b> Endereço:</td>
<td><input type="text" id="endereco" name="endereco" size="55" maxlength="100" class="texto"></td>
</tr>
<tr>
<td>&nbsp;</td>
<td>
<table border="0" cellpadding="0" cellspacing="0" class="texto">
<tr>
<td><b class="asterisco">*</b> Número: <input type="text" id="numero" name="numero" size="8" maxlength="10" onKeyPress="return soNumeros(event);" class="texto">&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td>Complemento: <input type="text" id="complemento" name="complemento" size="15" maxlength="30" class="texto"></td>
</tr>
</table>
</td></tr>
<tr><td class="texto"><b class="asterisco">*</b> Telefone:</td>
<td class="texto"><input type="text" id="ddd" name="ddd" size="2" maxlength="2" class="texto"> - <input type="text" id="telefone" name="telefone" size="8" maxlength="8" class="texto"> <i class="asterisco">(apenas números)</i></td>
</tr>
<tr>
<td class="texto10"><b class="asterisco">*</b> Área de atuação da empresa:</td>
<td>
<select id="area_atuacao" name="area_atuacao" class="texto10">
<option value="">Selecione</option>
<option value="1">Não se aplica</option>
<option value="2">Comércio: Atacadista (Ligado a TI)</option>
<option value="3">Comércio: Varejista (Ligado a TI)</option>
<option value="4">Comércio: Atacadista/Varejista (Não Ligado a TI)</option>
<option value="5">Indústria: Aeronáutica</option>
<option value="6">Indústria: Agropecuária/Pesca</option>
<option value="7">Indústria: Alimentos e Bebidas</option>
<option value="8">Indústria: Automobilística</option>
<option value="9">Indústria: Computadores, Comunicações, Periféricos</option>
<option value="10">Indústria: Construção/Arquitetura/Engenharia Civil</option>
<option value="11">Indústria: Eletrodomésticos</option>
<option value="12">Indústria: Eletrônica</option>
<option value="13">Indústria: Informática</option>
<option value="14">Indústria: Equipamentos de Telecomunicações</option>
<option value="15">Indústria: Farmacêutica</option>
<option value="16">Indústria: Laboratórios de Pesquisa e Desenvolvimento</option>
<option value="17">Indústria: Madeira, Móveis e Instalações</option>
<option value="18">Indústria: Maquinário Industrial e Comercial</option>
<option value="19">Indústria: Mineração/Química/Petroquímica</option>
<option value="20">Indústria: Outros</option>
<option value="21">Indústria: Papel e Celulose</option>
<option value="22">Indústria: Produtos Têxteis e Couro</option>
<option value="23">Indústria: Siderúrgicas</option>
<option value="24">Indústria: Software</option>
<option value="25">Governo: Estadual ou Municipal</option>
<option value="26">Governo: Forças Armadas</option>
<option value="27">Governo: Justiça, Ordem Pública e Segurança</option>
<option value="28">Governo: Federal</option>
<option value="29">Serviços: Advocacia/Serviços Legais</option>
<option value="30">Serviços: Agências de Publicidade ou RP</option>
<option value="31">Serviços: Consultor (Ligado a TI)</option>
<option value="32">Serviços: Consultorias de Negócios (Não Ligado a TI)</option>
<option value="33">Serviços: E-commerce/Internet</option>
<option value="34">Serviços: Editora/Emissoras de TV e Rádio</option>
<option value="35">Serviços: Educação</option>
<option value="36">Serviços: Finanças/Bancos/Seguros</option>
<option value="37">Serviços: Hoteleira/Recreação/Entretenimento</option>
<option value="38">Serviços: Logística/Transporte</option>
<option value="39">Serviços: Outros</option>
<option value="40">Serviços: Processamento de Dados</option>
<option value="41">Serviços: Provedores (ISP, Telecomunicaçoes)</option>
<option value="42">Serviços: Saúde/Medicina/Dental</option>
<option value="43">Serviços: VAR, VAD, Sistemas ou Integrador de Rede</option>
<option value="44">Serviços: Provedor de Serviços (ASP, ESP, Web Hosting)</option>
<option value="45">Outros</option>
</select>
</td></tr>
<tr><td class="texto10"><b class="asterisco">*</b> Número de funcionários:</td>
<td class="texto">
<select id="numero_funcionarios" name="numero_funcionarios" class="texto10">
<option value="">Selecione</option>
<option value="1">Não se aplica</option>
<option value="2">1 a 9</option>
<option value="3">10 a 19</option>
<option value="4">20 a 49</option>
<option value="5">50 a 99</option>
<option value="6">100 a 499</option>
<option value="7">500 a 999</option>
<option value="8">1000 a 2499</option>
<option value="9">2500 a 2999</option>
<option value="10">A partir de 3000</option>
</select>
</td>
</tr>

<tr><td class="texto10"><b class="asterisco">*</b> Faixa de faturamento:</td>
<td class="texto">
<select id="faturamento" name="faturamento" class="texto10">
<option value="">Selecione</option>
<option value="1">Até R$ 35 Milhões/ano</option>
<option value="2">De R$ 35 Milhões/ano até R$ 70 Milões /ano</option>
<option value="3">De R$70 Milhões/ano até R$150 Milhões/ano</option>
<option value="4">De R$150 Milhões/ano até R$300 Milhões/ano</option>
<option value="5">De R$300 Milhões/ano até R$600 Milhões/ano</option>
<option value="6">Superior a R$ 600 Milhões/ano</option>
</select>
</td>
</tr>

<tr><td class="texto10"><b class="asterisco">*</b> Com qual periodicidade sua empresa pretende investir em novos projetos de tecnologia?</td>
<td class="texto">
<select id="investimento_futuro" name="investimento_futuro" class="texto10">
<option value="">Selecione</option>
<option value="1">Não pretende investir</option>
<option value="2">0-3 meses</option>
<option value="3">3-6 meses</option>
<option value="4">6-9 meses</option>
<option value="5">9-12 meses</option>
<option value="6">mais de 12 meses</option>
</select>
</td>
</tr>
 

</table>
</td></tr></table>
<br>
<font class="texto10">Obs: Os campos marcados por <b class="asterisco">*</b> são obrigatórios.</font>
<br>
<br>

<INPUT class="texto" TYPE="submit" VALUE="Enviar">

</FORM>


<hr size="1" color="#dadada">

<font style='color:#666666;font-size:11px;font-family:georgia,tahoma,verdana;'> 
Patrocínio Gold: 
<br>
<table cellpadding="5"><tr>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/logo_cp.jpg" alt=""></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/logo_westcon.jpg" alt=""></td>
</tr></table>


<br>
<font style='color:#666666;font-size:11px;font-family:georgia,tahoma,verdana;'> 
Patrocínio Standard: 
<br>
<table cellpadding="5"><tr>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/logo_mcafee.jpg" alt=""></td>
</tr></table>


<br>

<font style='color:#666666;font-size:11px;font-family:georgia,tahoma,verdana;'> 
Apoio de mídia: 
<br>
<table cellpadding="5"><tr>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/logo_dr.jpg" alt=""></td>
<td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
<td><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/logo_rr.jpg" alt=""></td>
</tr></table>


</div>

</font>
</td></tr></table>
<!--- fim texto ---></td>
<td bgcolor="#efefef"></td>
</tr>
<tr>
<td bgcolor="#e5e5e5"></td>
<td align="center" bgcolor="#efefef">
<table><tr>
<td><font style='color:#666666;font-size:11px;font-family:georgia,tahoma,verdana;'> 
Realização: </td>
<td><a href="http://www.conteudoeditorial.com.br" target="_blank"><img src="http://www.decisionreport.com.br/meeting/crimesdigitais/logo_ce.jpg" width="160" height="40" alt="" border="0"></a></td>
</tr></table>
</td>
<td bgcolor="#e5e5e5"></td>
</tr>
</table>


<br>
<br>
<br>
<br>

</div>

</body>
</html>