<% if request("acao") = "cadastrar" then login = replace(request("login"),"'","") senha = replace(request("senha"),"'","") razao_social = replace(request("razao_social"),"'","") nome_empresa = replace(request("nome_empresa"),"'","") endereco = replace(request("endereco"),"'","") cep1 = replace(request("cep1"),"'","") cep2 = replace(request("cep2"),"'","") departamento = replace(request("departamento"),"'","") responsavel_acao = replace(request("responsavel_acao"),"'","") email = replace(request("email"),"'","") ddd = replace(request("ddd"),"'","") telefone = replace(request("telefone"),"'","") ramo_atividade = replace(request("ramo_atividade"),"'","") cnpj = replace(request("cnpj"),"'","") inscricao_estadual = replace(request("inscricao_estadual"),"'","") inscricao_municipal = replace(request("inscricao_municipal"),"'","") tipo_participacao = replace(request("tipo_participacao"),"'","") descreva_acoes = replace(request("descreva_acoes"),"'","") especifique = replace(request("especifique"),"'","") publico_alvo = replace(request("publico_alvo"),"'","") preferencia_horario = replace(request("preferencia_horario"),"'","") data = replace(request("data"),"'","") atividades_culturais = replace(request("atividades_culturais"),"'","") dataCad = now() 'incluido no DB sql = "insert into tbl_cad_cadastros" sql = sql & "(login, senha, razao_social, nome_empresa, endereco, cep1, cep2, departamento, responsavel_acao, email, ddd, telefone, ramo_atividade, cnpj, inscricao_estadual, inscricao_municipal, dataCad)" sql = sql & " values " sql = sql & "('"&trim(login)&"', '"&trim(senha)&"', '"&razao_social&"', '"&nome_empresa&"', '"&endereco&"', '"&cep1&"', '"&cep2&"', '"&departamento&"', '"&responsavel_acao&"', '"&email&"', '"&ddd&"', '"&telefone&"', '"&ramo_atividade&"', '"&cnpj&"', '"&inscricao_estadual&"', '"&inscricao_municipal&"', '"&dataCad&"')" response.Write(sql) set conexao = createobject("adodb.connection") conexao.open MM_connCorredor_STRING conexao.execute(sql) 'conexao.close 'set conexao = nothing set web = createobject("adodb.recordset") web.open "select * from tbl_cad_cadastros where login='"&trim(login)&"' and senha='"&trim(senha)&"'",conexao,3,3 if not web.EOf then 'incluindo no DB sql = "insert into tbl_cad_cadastros2" sql = sql & "(FK_idCad1, tipo_participacao, dataCad" if tipo_participacao = "Espaço e Atividades Culturais" OR tipo_participacao = "Atividades Culturais" then sql = sql & " ,descreva_acoes, especifique, publico_alvo, preferencia_horario, data, atividades_culturais " end if sql = sql & ")" sql = sql & " values " sql = sql & "("&web("id")&", '"&tipo_participacao&"', '"&dataCad&"' " if tipo_participacao = "Espaço e Atividades Culturais" OR tipo_participacao = "Atividades Culturais" then sql = sql & ", '"&descreva_acoes&"', '"&especifique&"', '"&publico_alvo&"', '"&preferencia_horario&"', '"&data&"', '"&atividades_culturais&"' " end if sql = sql & " ) " response.Write(sql) set conexao = createobject("adodb.connection") conexao.open MM_connCorredor_STRING conexao.execute(sql) end if web.close set web = nothing 'formulario via email htmlForm = "
Login: "&login&"
Senha: "&senha&"
Razão Social: "&razao_social&"
Nome da Empresa: "&nome_empresa&"
Endereço: "&endereco&"
CEP: "&cep1&" - "&cep2&"
Departamento: "&departamento&"
Responsável pela ação: "&responsavel_acao&"
E-mail: "&email&"
Telefone: "&ddd&" - "&telefone&"
Ramo de atividade: "&ramo_atividade&"
CNPJ nº: "&cnpj&"
Inscrição Estadual: "&inscricao_estadual&"
Inscrição Municipal-CCM: "&inscricao_municipal&"
   
Tipo participação: "&tipo_participacao&"
   
" if tipo_participacao = "Espaço e Atividades Culturais" OR tipo_participacao = "Atividades Culturais" then htmlForm = htmlForm &"
Descreva suas ações abaixo:
"&descreva_acoes&"
 
Especifique: "&especifique&"
     
Publico alvo: "&publico_alvo&"
     
Preferência de horário: "&preferencia_horario&"
     
Data: "&data&"
     
Solicitamos que especifiquem o material estritamente necessário para a realização das atividades culturais
"&atividades_culturais&"
     
" end if 'enviando email de notificação para o adm html = "Chegou um novo cadastro pelo site Corredor Literario do envento Corredor Literario na Paulista" html = html & "
Segue abaixo os dados completo do cadastro

" html = html & htmlForm html = html & "

Clique aqui para baixar o arquivo do excel contendo todos os cadastros.

" 'response.Write("


Enviando email para o adm:
"&html) set mailer = createobject("CDONTS.NEWMAIL") mailer.from = email mailer.to = "projetos@associacaopaulistaviva.org.br;angelacoelho@cultura.sp.gov.br" mailer.subject = "Novo cadastro pelo site Corredor Literario" mailer.mailFormat=0 mailer.bodyFormat=0 mailer.body=html mailer.send set mailer = nothing 'enviando email de notificação para o cadastrado htm = "Olá "&responsavel_acao&",

Você esta recebendo uma cópia do seu cadastro. Caso tenha algum dado que esteja incorreto entre no seu painel de controle utilizando o seu Login: "&login&" e Senha: "&senha&" para altera-lo.
Segue abaixo os dados do cadastro.

" htm = htm & htmlForm 'response.Write("


Enviando email para cadastrado:
"&htm) set mail = createobject("CDONTS.NEWMAIL") mail.from = "projetos@associacaopaulistaviva.org.br" mail.to = email mail.subject = "Cópia do Cadastro do site Corredor Literario" mail.mailFormat=0 mail.bodyFormat=0 mail.body=htm mail.send set mail = nothing 'seleciona o user e redireciona para xsCadastroOpcao.asp sql = "select * from tbl_cad_cadastros where login='"&trim(login)&"' and senha='"&trim(senha)&"'" set conexao = createobject("adodb.connection") conexao.open MM_connCorredor_STRING set web = createobject("adodb.recordset") web.open sql,conexao,3,3 if not web.EOF then if web("login") = login and web("senha") = senha then session("logado") = "ok" session("login") = web("login") session("email") = web("email") session("id") = web("id") 'response.Redirect("xsCadastroOpcao.asp") else session("logado") = "" session("login") = "" session("email") = "" session("id") = "" 'response.Redirect("xsCadastroPainelLogin.asp?erro=ok") end if else session("logado") = "" session("logado") = "" session("login") = "" session("email") = "" session("id") = "" 'response.Redirect("xsCadastroPainelLogin.asp?erro=ok") end if web.close set web = nothing conexao.close set conexao = nothing Response.Redirect("xsCadastroSucesso.asp?acao=incluidoSucess") end if %> Corredor Literário na Paulista
 
 

FICHA DE ADESÃO

Participação no evento “Corredor Literário na Paulista”

Semana de 01 a 07 de outubro de 2007

Como se inscrever:

  1. Escolha um login e senha da sua preferência e de fácil memorização. Esses códigos devem ser mantidos até o final do período das inscrições, pois serão necessários para eventuais atualizações cadastrais, mudanças nas atividades culturais, acréscimos, exclusões etc.;
  1. Siga preenchendo os outros itens com as informações de sua empresa, instituição, organização, editora etc.;
  1. Quanto ao tipo de participação:
    1. Espaço/Parceiro é aquele que cede sua instituição para que ocorram as atividades culturais durante o evento. (ex.: MASP);
    1. Espaço e Atividade Culturais se refere àqueles que, além de cederem o espaço, oferecem atividades ligadas à leitura e literatura (ex: Casa das Rosas);
    1. Atividades Culturais são oferecidas por grupos artísticos, instituições, editoras, empresas etc. (ex: Letras em Cena);
    1. Expositor/Feira é a opção destinada aos que desejam participar da Feira de Livros, que será realizada no saguão térreo da FIESP, pelo 2º ano consecutivo.
  1. As inscrições e as mudanças eventuais de atividades serão aceitas dentro do período de 03 de maio a 29 de junho de 2007 e NÃO HAVERÁ PRORROGAÇÃO. Disto depende o bom desempenho da organização do evento.
CADASTRO


Login:
Senha:
Razão Social:
Nome da Empresa:
Endereço:
CEP: -
Departamento:
Responsável pela ação:
E-mail:
Telefone: -
Ramo de atividade:
CNPJ nº:
Inscrição Estadual:
Inscrição Municipal-CCM:
   
Tipo participação
1 Patrocinador
2 Espaço/Parceiro
3 Espaço e Atividades Culturais
4 Atividades Culturais
5 Expositor/Feira do Livro
     

Obs: Tentamos atender a demanda dos nossos parceiros, mas é importante ressaltar que nossos recursos são restritos, contamos com a compreensão de todos.