<% wCPF=request.item("CPF") wDT_NASC=Year(request.item("Dt_Nascimento")) & "-" & Month(request.item("Dt_Nascimento")) & "-" & Day(request.item("Dt_Nascimento")) wSENHA=request.item("SENHA") wAchou="N" if (wDT_NASC <> "") and (wCPF <> "") and (wSENHA <> "") then Set Database = Server.CreateObject("ADODB.Connection") Database.Open session("stringconexaobomdesorte") SQL="SELECT * " &_ " FROM CLIENTES " &_ " WHERE CPF = '" & wCPF & "'" &_ " AND DT_NASCIMENTO = '" & wDT_NASC & "'" &_ " AND SENHA = '" & wSENHA & "'" Set rstemp = DataBase.Execute(SQL) if rstemp.EOF then wAchou="N" else wAchou="S" end if end if %>
<% end if %>
<% if wAchou = "N" then %> <% else %>
 

Digite os dados abaixo...

 

CPF

:

  Digite sem pontos e traço.
Data Nascimento :

  Ex.: 10/01/2000

Senha : Digite sua senha.  
    Ainda não tem Senha?
    Esqueceu sua Senha?

 

 

Confirme os dados e clique no botão continuar...

 

Nome

:

<%=rstemp("Nome")%>

CPF

:

<%=rstemp("CPF")%>

Data Nascimento

:

<%=rstemp("DT_NASCIMENTO")%>

 

">