<% @ LANGUAGE="VBSCRIPT" %> <% ' Altere os valores das variáveis indicadas abaixo se necessário 'String de conexão para o banco de dados do Microsoft Access strCon = "DBQ=" & Server.MapPath("dados.mdb")& ";Driver={Microsoft Access Driver (*.mdb)};" 'Nome da página de consulta pagina_consulta = "consulta.asp" 'Nome da página de alteração pagina_alteracao = "alteracao.asp" 'Nome da página de inclusão pagina_inclusao = "inclusao.asp" 'Nome da página de login pagina_login = "df_login.asp" '******************************************************************* %> Incluir Registro
<% If Not IsEmpty(Request.Form) Then Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon campo_duplicado = false campo_msg = "" Set objRS_duplic = Server.CreateObject("ADODB.Recordset") objRS_duplic.CursorLocation = 3 objRS_duplic.CursorType = 0 objRS_duplic.LockType = 3 strQ_duplic = "SELECT cpf FROM cadastro Where cpf Like '" & Trim(Request.Form("cpf")) & "'" objRS_duplic.Open strQ_duplic, objCon, , , &H0001 If Not objRS_duplic.EOF Then If Trim(campo_msg) = "" Then campo_msg = "CPF" valor_msg = Trim(Request.Form("cpf")) End If campo_duplicado = true End If objRS_duplic.Close Set objRS_duplic = Nothing Set strQ_duplic = Nothing If campo_duplicado = false Then Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 3 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM cadastro Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 objRS.Addnew() If objRS.Fields("cpf").properties("IsAutoIncrement") = False Then objRS("cpf") = Trim(Request.Form("cpf")) End If If objRS.Fields("nome").properties("IsAutoIncrement") = False Then objRS("nome") = Trim(Request.Form("nome")) End If If objRS.Fields("dtnascimento").properties("IsAutoIncrement") = False Then objRS("dtnascimento") = Trim(Request.Form("dtnascimento")) End If If objRS.Fields("endereco").properties("IsAutoIncrement") = False Then objRS("endereco") = Trim(Request.Form("endereco")) End If If objRS.Fields("bairro").properties("IsAutoIncrement") = False Then objRS("bairro") = Trim(Request.Form("bairro")) End If If objRS.Fields("cidade").properties("IsAutoIncrement") = False Then objRS("cidade") = Trim(Request.Form("cidade")) End If If objRS.Fields("cep").properties("IsAutoIncrement") = False Then objRS("cep") = Trim(Request.Form("cep")) End If If objRS.Fields("uf").properties("IsAutoIncrement") = False Then objRS("uf") = Trim(Request.Form("uf")) End If If objRS.Fields("tel").properties("IsAutoIncrement") = False Then objRS("tel") = Trim(Request.Form("tel")) End If If objRS.Fields("email").properties("IsAutoIncrement") = False Then objRS("email") = Trim(Request.Form("email")) End If objRS.Update objRS.Close Set objRS = Nothing %>
Registro salvo
Seu cadastrado foi realizado com sucesso. com sucesso.

Clique aqui para voltar e fazer outro cadastro.

<% Else %>
Atenção!

O campo <%=campo_msg%> "<%=valor_msg%>" não pode ser salvo, pois já está cadastrado.
Clique aqui para voltar ao cadastro.

<% End If objCon.Close Set objCon = Nothing Else Set objCon = Server.CreateObject("ADODB.Connection") objCon.Open strCon Set objRS= Server.CreateObject("ADODB.Recordset") objRS.CursorLocation = 2 objRS.CursorType = 0 objRS.LockType = 3 strQ = "SELECT * FROM cadastro Where 1 <> 1" objRS.Open strQ, objCon, , , &H0001 %>

FORMULARIO DE RECADASTRAMENTO - FESX

Faça o seu recadastramento através do formulário abaixo.

O cadastro tem como finalidade verificar quais são os jogadores ativos, sua ID de jogador FESX permanecerá.

" onSubmit="return valida_campo()">

CPF
<%If objRS.Fields("cpf").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>

Nome Completo
<%If objRS.Fields("nome").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Data Nascimento
<%If objRS.Fields("dtnascimento").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Endereço
<%If objRS.Fields("endereco").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Bairro
<%If objRS.Fields("bairro").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Cidade
<%If objRS.Fields("cidade").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
CEP
<%If objRS.Fields("cep").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
Estado
Telefone
<%If objRS.Fields("tel").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
E-mail
<%If objRS.Fields("email").properties("IsAutoIncrement") = False Then%> <% Else Response.Write "(Automático)" End If %>
   

<% objCon.Close Set objCon = Nothing End If %>