<% Set Database = Server.CreateObject("ADODB.Connection") Database.Open session("stringconexaobomdesorte") wCPF=request.item("CPF") Set rsConsulta = DataBase.Execute("SELECT * FROM CLIENTES WHERE CPF = " & wCPF ) if rsConsulta.Eof then wCliente=request.item("OutroTicket") if wCliente = "" then wCliente=Numera("CBS") wNOME=request.item("Nome") wENDERECO=Request.item("Endereco") wNUMERO=Request.item("Numero") wBAIRRO=request.item("Bairro") wCIDADE=request.item("Cidade") wESTADO=request.item("Estado") wE_MAIL=request.item("E_Mail") wDT_NASCIMENTO=Year(request.item("DATANASCIMENTO")) & "-" & Month(request.item("DATANASCIMENTO")) & "-" & Day(request.item("DATANASCIMENTO")) wCEP=request.item("CEP") wTELEFONE=request.item("TELEFONE") wSENHA=request.item("SENHA") w_dt_hoje= Day(now()) & "." & Month(now()) & "." & Year(Now()) wSorteio=request.item("Sorteio") SQL="INSERT INTO CLIENTES(CLIENTE, NOME, CPF, ENDERECO, NUMERO, BAIRRO, CIDADE, ESTADO, E_MAIL, DT_NASCIMENTO, CEP, TELEFONE, SENHA, DT_CADASTRO) values (" & wCliente & ",UPPER('" & wNOME & "'),'" & wCPF & "','" & wENDERECO & "','" & wNUMERO & "','" & wBAIRRO & "','" & wCIDADE & "','" & wESTADO & "','" & wE_MAIL & "','" & wDT_NASCIMENTO & "','" & wCEP & "','" & wTELEFONE & "','" & wSENHA & "','" & w_dt_hoje & "')" Set rsCadastro = DataBase.Execute( SQL ) end if Set rsCadastro = DataBase.Execute("SELECT * FROM CLIENTES WHERE CLIENTE = " & wCliente ) %> <% else %> <% end if %>
 

CADASTRO EFETUADO COM SUCESSO

 

<% if (rsCadastro("DT_NASCIMENTO") > (Date() - (18*365))) or (rsCadastro("DT_NASCIMENTO") < (Date() - (85*365))) then %> <% end if%>

Nome

:

 <%=rsCadastro("Nome")%>
CPF :
<%=rsCadastro("CPF")%>

Dt. de Nascimento

 : <%=rsCadastro("Dt_Nascimento")%>
Endereço : <%=rsCadastro("Endereco")%>

Nº

 : <%=rsCadastro("Numero")%>
Bairro :
<%=rsCadastro("Bairro")%>

Cidade

 : <%=rsCadastro("Cidade")%>
Estado :
<%=rsCadastro("Estado")%>

Cep

 : <%=rsCadastro("CEP")%>
E-mail : <%=rsCadastro("e_mail")%>

Telefone

 : <%=rsCadastro("Telefone")%>
           

Anote sua Senha para ter acesso a seus dados.

Senha

 : <%=rsCadastro("Senha")%>
 
Ver meus Tickets Cadastrados

Conforme condições gerais da Apólice do Seguro por Morte Acidental, seus Tickets cadastrados não participará das Coberturas do Seguro, mas você estará concorrendo a 4 prêmios mensais.

DIGITE AQUI SEU CÓDIGO DE CADASTRO, E CLIQUE EM ADICIONAR

 

CÓDIGO DE CADASTRO

 
Erro . . .

CPF já Cadastrado. Clique Aqui!