% Option Explicit %> <% Dim CodigoPessoa Dim Nome Dim Email Dim Senha Dim DataNascimento Dim Sexo Dim GrauInstrucao Dim StatusInstrucao Dim Endereco Dim Bairro Dim Cidade Dim Estado Dim CEP Dim DDDTel Dim Tel Dim DDDCel Dim Cel Dim Newsletter Dim ObjPessoa Dim rsPessoa Dim rsOpcaoNewsletter Dim ListaNewsletter Dim OK Dim Dia Dim Mes Dim Ano Dim MaxAno Dim origem select case Request("origem") case "PROMOCAO" : origem = "PROMOCAO" case "SALAIMPRENSA" : origem = "SALAIMPRENSA" case "BLOQNEWSLETTER" : origem = "BLOQNEWSLETTER" case "TRABALHECONOSCO" : origem = "TRABALHECONOSCO" case else : origem = "CADASTRO" end select Dim flgCaldasAulete 'informa se a origem é do caldas aulete para ser mostrado a página do contrato ao final do cadastro flgCaldasAulete = Request("CA") Dim cadPromocao 'informa se a origem é do caldas aulete para ser mostrado a página do contrato ao final do cadastro cadPromocao = Request("cadPromocao") If Request("info") = "1" Then nome = Request("nomeInfo") email = Request("emailInfo") End If MaxAno=year(date()) Sexo=0 GrauInstrucao=0 StatusInstrucao=0 set ObjPessoa = new TPessoa set rsPessoa = server.CreateObject("adodb.recordset") rsPessoa.CursorLocation = 3 on error resume next ' Códigos de subgênero da newsletter ' 1 Dicionarios ' 2 Gramáticas ' 3 Manuais de texto ' 4 Romance ' 5 Poesia ' 6 Ficcao Cientifica ' 7 Ensaios ' 8 Policial ' 9 Misterio ' 10 Suspense ' 11 Contos ' 12 Cronicas ' 13 Biografias ' 14 Memorias ' 15 Diarios ' 16 Correspondencias ' 17 Depoimentos ' 18 Reportagens ' 19 Entrevistas ' 20 Negocios ' 21 Historia ' 22 Gastronomia ' 23 Religiao ' 24 Artes ' 25 Musica ' 26 Danca ' 27 Pintura ' 28 Teatro ' 29 Cinema ' 30 Comportamento ' 31 Psicologia ' 32 Saude ' 33 Auto-ajuda ' 34 Esoterismo ' 35 Astrologia ' 36 Etiqueta ' 37 Moda ' 38 Decoracao ' 39 Infantil ' 40 Juvenil ' 41 Luxo CodigoPessoa = session("CodigoUsuario") if CodigoPessoa="" then CodigoPessoa = Request.QueryString("CodigoPessoa") end if if CodigoPessoa <> "" then ' Busca os dados do CodPes setado na propriedade ObjPessoa.CodigoPessoa = CodigoPessoa Ok = ObjPessoa.Obtem(rsPessoa) if rsPessoa.state=0 then rsPessoa.Open If Ok then if not rsPessoa.EOF then CodigoPessoa = rsPessoa("CodPes") Nome = rsPessoa("NmePes") Email = rsPessoa("Email") Senha = rsPessoa("SnhPes") DataNascimento = rsPessoa("DtaNsc") if DataNascimento<> "" then Dia = right(DataNascimento,2) Mes = left(right(DataNascimento,4),2) Ano = left(DataNascimento,4) end if Sexo = rsPessoa("SxoPes") GrauInstrucao = rsPessoa("GraItr") StatusInstrucao = rsPessoa("StaItr") Endereco = rsPessoa("EndPes") Bairro = rsPessoa("BaiPes") Cidade = rsPessoa("CidPes") Estado = rsPessoa("UF") CEP = trim(rsPessoa("CEP")) DDDTel = rsPessoa("DDDTel") Tel = trim(rsPessoa("Tel")) DDDCel = rsPessoa("DDDCel") Cel = trim(rsPessoa("Cel")) Newsletter = rsPessoa("FlgNwsLtr") 'Response.Write "Newsletter " & Newsletter 'Response.End if Newsletter = 1 then 'obtem os subgêneros em t_pessoa_subgênero set rsOpcaoNewsletter = server.CreateObject("adodb.recordset") rsOpcaoNewsletter.CursorLocation = 3 ObjPessoa.CodigoPessoa = CodigoPessoa ok=ObjPessoa.ObtemSubGeneroNewsletter(rsOpcaoNewsletter) if rsOpcaoNewsletter.state=0 then rsOpcaoNewsletter.Open If Ok then if not rsOpcaoNewsletter.EOF then ListaNewsletter="" while not rsOpcaoNewsletter.EOF 'Monta lista com subgeneros da newsletter ListaNewsletter = ListaNewsletter &","& rsOpcaoNewsletter("CodSubGnr") rsOpcaoNewsletter.MoveNext wend 'response.Write "ListaNewsletter " & ListaNewsletter ListaNewsletter = ListaNewsletter &"," end if set rsOpcaoNewsletter = nothing else set ObjPessoa = nothing set rsPessoa = nothing set rsOpcaoNewsletter = nothing Response.Redirect("/novo/mensagem.asp?Erro=-33")' Ocorreu um erro ao obter dados sobre newsletter. Por favor, tente novamente end if end if end if else set rsPessoa=nothing set ObjPessoa = nothing Response.Redirect("/novo/mensagem.asp?Erro=-29")' Ocorreu um erro ao salvar os dados. Por favor, tente novamente end if end if set rsPessoa=nothing set ObjPessoa = nothing %>